From 47ac96138b3cca69499fc2f295e9a903bf743b13 Mon Sep 17 00:00:00 2001 From: ronesy <rlt@nilu.no> Date: Mon, 3 Mar 2025 14:25:53 +0100 Subject: [PATCH] Change cinitime timestamp for scalars of initial mixing ratios to account for length of back trajectory --- source/init_co2.f90 | 2 +- source/init_ghg.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/source/init_co2.f90 b/source/init_co2.f90 index ba580d1..3e25473 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 63cb925..e8732d2 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 -- GitLab