Commit 95b08353 authored by Sabine's avatar Sabine
Browse files

add itime also in timemanager

parent 82422318
......@@ -242,9 +242,9 @@ subroutine timemanager(metdata_format)
if (WATERCYCLE) then ! works only backward for the moment
if (itime.eq.ireleaseend(1)) then !this has to be changed to +- timeintervall
if (verbosity.gt.0) then
write (*,*) 'timemanager> call boundcond_domainfill',itime,ireleasestart(1)
write (*,*) 'timemanager> call init_domainfill',itime,ireleasestart(1)
endif
call init_domainfill
call init_domainfill(itime)
endif
if ( (abs(itime).le.abs(ireleasestart(1))).and. &
(abs(itime).gt.abs( ireleaseend(1))) ) then
......@@ -259,7 +259,7 @@ subroutine timemanager(metdata_format)
if (verbosity.gt.0) then
write (*,*) 'timemanager> call init_domainfill'
endif
call init_domainfill
call init_domainfill(itime)
else
if (verbosity.gt.0) then
write (*,*) 'timemanager> call boundcond_domainfill'
......@@ -639,7 +639,6 @@ subroutine timemanager(metdata_format)
else
itra1(j)=itime+lsynctime
! Dry deposition and radioactive decay for each species
! Also check maximum (of all species) of initial mass remaining on the particle;
! if it is below a threshold value, terminate particle
......
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