Changeset 8224

Timestamp:

2017-06-27T13:23:01+02:00 (7 years ago)

Author:

frrh

Message:

Merge Marc's fix for MEDUSA NRUN reproducibility since this is the cleanest
way to include this fix in testing and will be required as a permanent fix
anyway.

File:

• branches/UKMO/dev_r5518_GO6M_dev/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6M_dev/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

@@ -1345 +1345 @@
       !!          try to call carb-chem at 1st month's tm-stp : x * 30d + 1*rdt(i.e: mod = rdt)   
       !!          ++ need to pass carb-chem output var through restarts
-      If ( ( kt == nittrc000 .AND. .NOT.ln_rsttr ) .OR. mod(kt*rdt,2592000.) == rdt ) THEN
+      !! We want this to be start of month or if starting afresh from 
+      !! climatology - marc 20/6/17
+      If ( (kt == nittrc000 .AND. .NOT.ln_rsttr) .OR.                        &
+           ((86400*mod(nn_date0,100) + mod(kt*rdt,2592000.)) == rdt) ) THEN
          !!----------------------------------------------------------------------
          !! Calculate the carbonate chemistry for the whole ocean on the first