Changeset 8224


Ignore:
Timestamp:
2017-06-27T13:23:01+02:00 (3 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:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6M_dev/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

    r8182 r8224  
    13451345      !!          try to call carb-chem at 1st month's tm-stp : x * 30d + 1*rdt(i.e: mod = rdt)    
    13461346      !!          ++ need to pass carb-chem output var through restarts 
    1347       If ( ( kt == nittrc000 .AND. .NOT.ln_rsttr ) .OR. mod(kt*rdt,2592000.) == rdt ) THEN 
     1347      !! We want this to be start of month or if starting afresh from  
     1348      !! climatology - marc 20/6/17 
     1349      If ( (kt == nittrc000 .AND. .NOT.ln_rsttr) .OR.                        & 
     1350           ((86400*mod(nn_date0,100) + mod(kt*rdt,2592000.)) == rdt) ) THEN 
    13481351         !!---------------------------------------------------------------------- 
    13491352         !! Calculate the carbonate chemistry for the whole ocean on the first 
Note: See TracChangeset for help on using the changeset viewer.