Changeset 490 for trunk/NEMO/TOP_SRC/TRP/trczdf_exp.F90

Timestamp:

2006-09-01T15:50:43+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_053:CE+RB: enable use of ndttrc

File:

• trunk/NEMO/TOP_SRC/TRP/trczdf_exp.F90 (modified) (1 diff)

trunk/NEMO/TOP_SRC/TRP/trczdf_exp.F90

@@ -97 +97 @@
          IF( neuler == 0 .AND. kt == nittrc000 ) THEN
             rdttrc(:) =  rdttra(:) * FLOAT(ndttrc)             ! restarting with Euler time stepping
-         ELSEIF( kt <= nittrc000 + 1 ) THEN
+         ELSEIF( kt <= nittrc000 + ndttrc ) THEN
             rdttrc(:) = 2. * rdttra(:) * FLOAT(ndttrc)         ! leapfrog
          ENDIF