Changeset 1284

Timestamp:

2009-02-03T14:17:44+01:00 (15 years ago)

Author:

cetlod

Message:

Name of passive tracer restart file in the namelist, see ticket:313

Location:

trunk/NEMO/TOP_SRC

Files:

• TRP/trdmld_trc_oce.F90 (modified) (1 diff)
• trclec.F90 (modified) (2 diffs)

trunk/NEMO/TOP_SRC/TRP/trdmld_trc_oce.F90

@@ -26 +26 @@
    LOGICAL  ::    ln_trdmld_trc_instant   !: flag to diagnose inst./mean ML trc trends
    LOGICAL  ::    ln_trdmld_trc_restart   !: flag to restart mixed-layer trc diagnostics
+   CHARACTER(len=50) ::  cn_trdrst_trc_in  !: suffix of pass. tracer restart name (input)
+   CHARACTER(len=50) ::  cn_trdrst_trc_out !: suffix of pass. tracer restart name (output)
    LOGICAL, DIMENSION (jptra) ::   luttrd   !: large trends diagnostic to write or not (namelist)
 

trunk/NEMO/TOP_SRC/trclec.F90

@@ -75 +75 @@
       NAMELIST/namtoptrd/ ntrd_trc, nctls_trc, ucf_trc, &
                          ln_trdmld_trc_restart, ln_trdmld_trc_instant, &
-                         luttrd
+                         cn_trdrst_trc_in, cn_trdrst_trc_out, luttrd
 #endif
 
@@ -146 +146 @@
       ln_trdmld_trc_instant = .TRUE.
       ln_trdmld_trc_restart =.FALSE.
+      cn_trdrst_trc_in  = "restart_mld_trc"
+      cn_trdrst_trc_out = "restart_mld_trc"
       DO jn = 1, jptra
          luttrd(jn) = .FALSE.