Commit 278f4ed9 authored by Sabine's avatar Sabine
Browse files

message on kernel use in timemanager

parent 2363b24c
...@@ -60,9 +60,6 @@ subroutine conccalc(itime,weight) ...@@ -60,9 +60,6 @@ subroutine conccalc(itime,weight)
real,parameter :: factor=.596831, hxmax=6.0, hymax=4.0, hzmax=150. real,parameter :: factor=.596831, hxmax=6.0, hymax=4.0, hzmax=150.
if (.not.usekernel) then
write (*,*) 'NOT USING THE KERNEL!'
endif
! For forward simulations, make a loop over the number of species; ! For forward simulations, make a loop over the number of species;
! for backward simulations, make an additional loop over the ! for backward simulations, make an additional loop over the
! releasepoints ! releasepoints
......
...@@ -144,6 +144,7 @@ subroutine timemanager ...@@ -144,6 +144,7 @@ subroutine timemanager
!CGZ-lifetime: set lifetime to 0 !CGZ-lifetime: set lifetime to 0
if (interpolhmix) write(*,*) 'Interpolating hmix' if (interpolhmix) write(*,*) 'Interpolating hmix'
if (.not.usekernel) write(*,*) 'Not using the kernel'
write(*,46) float(itime)/3600,itime,numpart write(*,46) float(itime)/3600,itime,numpart
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment