Changeset 3319 for trunk/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

Timestamp:

2012-03-05T17:03:27+01:00 (12 years ago)

Author:

cetlod

Message:

trunk:minor bugs corrections, see ticket #929

File:

• trunk/NEMOGCM/NEMO/TOP_SRC/trcnam.F90 (modified) (3 diffs)

trunk/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

@@ -60 +60 @@
       !!
       NAMELIST/namtrc/ nn_dttrc, nn_writetrc, ln_rsttr, nn_rsttr, &
-         &             cn_trcrst_in, cn_trcrst_out, sn_tracer, ln_trcdta
+         &             cn_trcrst_in, cn_trcrst_out, sn_tracer, ln_trcdta, ln_trcdmp
 #if defined key_trdmld_trc  || defined key_trdtrc
       NAMELIST/namtrc_trd/ nn_trd_trc, nn_ctls_trc, rn_ucf_trc, &
@@ -92 +92 @@
       END DO
       ln_trcdta = .FALSE.
+      ln_trcdmp = .FALSE.
 
 
@@ -115 +116 @@
          WRITE(numout,*) '   restart  for passive tracer                  ln_rsttr      = ', ln_rsttr
          WRITE(numout,*) '   control of time step for passive tracer      nn_rsttr      = ', nn_rsttr
-         WRITE(numout,*) '    first time step for pass. trac.             nittrc000     = ', nittrc000
-         WRITE(numout,*) '    frequency of outputs for passive tracers    nn_writetrc   = ', nn_writetrc  
-         WRITE(numout,*) '   Read inputs data from file                   ln_trcdta     = ', ln_trcdta
+         WRITE(numout,*) '   first time step for pass. trac.              nittrc000     = ', nittrc000
+         WRITE(numout,*) '   frequency of outputs for passive tracers     nn_writetrc   = ', nn_writetrc  
+         WRITE(numout,*) '   Read inputs data from file (y/n)             ln_trcdta     = ', ln_trcdta
+         WRITE(numout,*) '   Damping of passive tracer (y/n)              ln_trcdmp     = ', ln_trcdmp
          WRITE(numout,*) ' '
          DO jn = 1, jptra