Changeset 44 for vendor/nemo/current/NEMOGCM/NEMO/TOP_SRC/trcnam.F90
- Timestamp:
- 08/31/12 15:41:37 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
vendor/nemo/current/NEMOGCM/NEMO/TOP_SRC/trcnam.F90
r4 r44 39 39 !!---------------------------------------------------------------------- 40 40 !! NEMO/TOP 3.3 , NEMO Consortium (2010) 41 !! $Id: trcnam.F90 3 294 2012-01-28 16:44:18Z rblod $41 !! $Id: trcnam.F90 3319 2012-03-05 16:03:27Z cetlod $ 42 42 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 43 43 !!---------------------------------------------------------------------- … … 60 60 !! 61 61 NAMELIST/namtrc/ nn_dttrc, nn_writetrc, ln_rsttr, nn_rsttr, & 62 & cn_trcrst_in, cn_trcrst_out, sn_tracer, ln_trcdta 62 & cn_trcrst_in, cn_trcrst_out, sn_tracer, ln_trcdta, ln_trcdmp 63 63 #if defined key_trdmld_trc || defined key_trdtrc 64 64 NAMELIST/namtrc_trd/ nn_trd_trc, nn_ctls_trc, rn_ucf_trc, & … … 92 92 END DO 93 93 ln_trcdta = .FALSE. 94 ln_trcdmp = .FALSE. 94 95 95 96 … … 115 116 WRITE(numout,*) ' restart for passive tracer ln_rsttr = ', ln_rsttr 116 117 WRITE(numout,*) ' control of time step for passive tracer nn_rsttr = ', nn_rsttr 117 WRITE(numout,*) ' first time step for pass. trac. nittrc000 = ', nittrc000 118 WRITE(numout,*) ' frequency of outputs for passive tracers nn_writetrc = ', nn_writetrc 119 WRITE(numout,*) ' Read inputs data from file ln_trcdta = ', ln_trcdta 118 WRITE(numout,*) ' first time step for pass. trac. nittrc000 = ', nittrc000 119 WRITE(numout,*) ' frequency of outputs for passive tracers nn_writetrc = ', nn_writetrc 120 WRITE(numout,*) ' Read inputs data from file (y/n) ln_trcdta = ', ln_trcdta 121 WRITE(numout,*) ' Damping of passive tracer (y/n) ln_trcdmp = ', ln_trcdmp 120 122 WRITE(numout,*) ' ' 121 123 DO jn = 1, jptra … … 265 267 !!---------------------------------------------------------------------- 266 268 !! NEMO/TOP 3.3 , NEMO Consortium (2010) 267 !! $Id: trcnam.F90 3 294 2012-01-28 16:44:18Z rblod $269 !! $Id: trcnam.F90 3319 2012-03-05 16:03:27Z cetlod $ 268 270 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 269 271 !!======================================================================
Note: See TracChangeset
for help on using the changeset viewer.