Changeset 3794 for branches/CMIP5_IPSL/NEMO/TOP_SRC/TRP/trdmld_trc.F90

Timestamp:

2013-02-10T20:13:47+01:00 (12 years ago)

Author:

gm

Message:

CMIP_IPSL branch: #960 : correct bug in trdmld & trdmld_trc (time step control)

File:

• branches/CMIP5_IPSL/NEMO/TOP_SRC/TRP/trdmld_trc.F90 (modified) (1 diff)

branches/CMIP5_IPSL/NEMO/TOP_SRC/TRP/trdmld_trc.F90

@@ -1256 +1256 @@
 #  endif
 
-      IF( ( lk_trdmld_trc ) .AND. ( MOD( nitend, ntrd_trc ) /= 0 ) ) THEN
+      IF( ( lk_trdmld_trc ) .AND. ( MOD( nitend-nittrc000+1, ntrd_trc ) /= 0 ) ) THEN
          WRITE(numout,cform_err)
          WRITE(numout,*) '                Your nitend parameter, nitend = ', nitend