diff --git a/source/init_co2.f90 b/source/init_co2.f90 index ba580d1a70c3eaf889da71ea4acc2934f2b07ce6..3e25473bc1dea09452c20c32fa56ef3917235a4e 100644 --- a/source/init_co2.f90 +++ b/source/init_co2.f90 @@ -707,7 +707,7 @@ subroutine init_co2(files, config, fluxes, obs, states, covar) ! assign time stamps to mixing ratio scalar time steps do n = 1, ntcini - states%cinitime(n) = juldatei + dble((n-1)*cinires) + states%cinitime(n) = juldatei + dble((n-1)*cinires) - trajdays end do print*, 'init_co2: cinitime = ',states%cinitime diff --git a/source/init_ghg.f90 b/source/init_ghg.f90 index 63cb9257430f187ae448f95687a24ffed6f485e3..e8732d2cd711072c7354208c2ccbb3fe9bcd1825 100644 --- a/source/init_ghg.f90 +++ b/source/init_ghg.f90 @@ -412,7 +412,7 @@ subroutine init_ghg(files, config, fluxes, obs, states, covar) ! time stamp of initial mixing ratio scalars do n = 1, ntcini - states%cinitime(n) = juldatei + dble((n-1)*cinires) + states%cinitime(n) = juldatei + dble((n-1)*cinires) - trajdays end do print*, 'init_ghg: cinitime = ',states%cinitime