Ignore:
Timestamp:
08/31/12 15:41:37 (12 years ago)
Author:
cholod
Message:

Load NEMO_TMP into vendor/nemo/current.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • vendor/nemo/current/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

    r4 r44  
    3939   !!---------------------------------------------------------------------- 
    4040   !! NEMO/TOP 3.3 , NEMO Consortium (2010) 
    41    !! $Id: trcnam.F90 3294 2012-01-28 16:44:18Z rblod $  
     41   !! $Id: trcnam.F90 3319 2012-03-05 16:03:27Z cetlod $  
    4242   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    4343   !!---------------------------------------------------------------------- 
     
    6060      !! 
    6161      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 
    6363#if defined key_trdmld_trc  || defined key_trdtrc 
    6464      NAMELIST/namtrc_trd/ nn_trd_trc, nn_ctls_trc, rn_ucf_trc, & 
     
    9292      END DO 
    9393      ln_trcdta = .FALSE. 
     94      ln_trcdmp = .FALSE. 
    9495 
    9596 
     
    115116         WRITE(numout,*) '   restart  for passive tracer                  ln_rsttr      = ', ln_rsttr 
    116117         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 
    120122         WRITE(numout,*) ' ' 
    121123         DO jn = 1, jptra 
     
    265267   !!---------------------------------------------------------------------- 
    266268   !! NEMO/TOP 3.3 , NEMO Consortium (2010) 
    267    !! $Id: trcnam.F90 3294 2012-01-28 16:44:18Z rblod $  
     269   !! $Id: trcnam.F90 3319 2012-03-05 16:03:27Z cetlod $  
    268270   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    269271   !!====================================================================== 
Note: See TracChangeset for help on using the changeset viewer.