Changeset 3793 for branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/TOP_SRC

Timestamp:

2013-02-10T20:11:06+01:00 (11 years ago)

Author:

gm

Message:

dev_v3_4_STABLE_2012: #960 : correct bug in trdmld & trdmld_trc (time step control) + KPP/TRC compatibility (zdfkpp.F90)

File:

• branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/TOP_SRC/TRP/trdmld_trc.F90 (modified) (2 diffs)

branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/TOP_SRC/TRP/trdmld_trc.F90

@@ -373 +373 @@
       !!       - See NEMO documentation (in preparation)
       !!----------------------------------------------------------------------
-      !
       INTEGER, INTENT(in) ::   kt   ! ocean time-step index
       !
@@ -1174 +1173 @@
       ! -------------------------------------------------
 
-      IF( ( lk_trdmld_trc ) .AND. ( MOD( nitend, nn_trd_trc ) /= 0 ) ) THEN
+      IF( ( lk_trdmld_trc ) .AND. ( MOD( nitend-nittrc000+1, nn_trd_trc ) /= 0 ) ) THEN
          WRITE(numout,cform_err)
          WRITE(numout,*) '                Your nitend parameter, nitend = ', nitend