New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 1542 – NEMO

Changeset 1542


Ignore:
Timestamp:
2009-07-27T13:57:49+02:00 (15 years ago)
Author:
cetlod
Message:

rename namelist variable lrsttr to ln_rsttr, see ticket:493

Location:
trunk/NEMO/TOP_SRC
Files:
11 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/TOP_SRC/C14b/trcini_c14b.F90

    r1252 r1542  
    7373      ! Initialization of qint in case of  no restart  
    7474      !---------------------------------------------- 
    75       IF( .NOT. lrsttr ) THEN     
     75      IF( .NOT. ln_rsttr ) THEN     
    7676         IF(lwp) THEN 
    7777            WRITE(numout,*) 

  • trunk/NEMO/TOP_SRC/CFC/trcini_cfc.F90

    r1255 r1542  
    6969      !---------------------------------------------- 
    7070      qtr_cfc(:,:,:) = 0.e0 
    71       IF( .NOT. lrsttr ) THEN     
     71      IF( .NOT. ln_rsttr ) THEN     
    7272         IF(lwp) THEN 
    7373            WRITE(numout,*) 

  • trunk/NEMO/TOP_SRC/LOBSTER/trcini_lobster.F90

    r1146 r1542  
    146146      ! Initialization of tracer concentration in case of  no restart  
    147147      !------------------------------------------------------------- 
    148       IF( .NOT. lrsttr ) THEN     
     148      IF( .NOT. ln_rsttr ) THEN     
    149149 
    150150# if defined key_eel_r6 || defined key_eel_r2 

  • trunk/NEMO/TOP_SRC/MY_TRC/trcini_my_trc.F90

    r1255 r1542  
    4343      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~' 
    4444       
    45       IF( .NOT. lrsttr ) trn(:,:,:,jp_myt0:jp_myt1) = 0. 
     45      IF( .NOT. ln_rsttr ) trn(:,:,:,jp_myt0:jp_myt1) = 0. 
    4646 
    4747      ! 

  • trunk/NEMO/TOP_SRC/PISCES/trcini_pisces.F90

    r1287 r1542  
    8686      ! Initialization of tracer concentration in case of  no restart  
    8787      !-------------------------------------------------------------- 
    88       IF( .NOT. lrsttr ) THEN   
     88      IF( .NOT. ln_rsttr ) THEN   
    8989          
    9090         trn(:,:,:,jpdic) = sco2 

  • trunk/NEMO/TOP_SRC/PISCES/trcsms_pisces.F90

    r1287 r1542  
    6161      !!--------------------------------------------------------------------- 
    6262 
    63       IF( kt == nittrc000  .AND. .NOT. lrsttr )   CALL trc_sms_pisces_init    ! Initialization (first time-step only) 
     63      IF( kt == nittrc000  .AND. .NOT. ln_rsttr )   CALL trc_sms_pisces_init    ! Initialization (first time-step only) 
    6464 
    6565      IF( ndayflxtr /= nday ) THEN      ! New days 

  • trunk/NEMO/TOP_SRC/TRP/trdmld_trc.F90

    r1353 r1542  
    537537      !     1      2     3     4    =5 e.g.                          =10 
    538538      ! 
    539       IF( ( kt >= 2 ).OR.( lrsttr ) ) THEN                        ! ??? 
     539      IF( ( kt >= 2 ).OR.( ln_rsttr ) ) THEN                        ! ??? 
    540540         ! 
    541541         nmoymltrd = nmoymltrd + 1 
    … …  
    10431043      !     1      2     3     4    =5 e.g.                          =10 
    10441044      ! 
    1045       IF( ( kt >= 2 ).OR.( lrsttr ) ) THEN 
     1045      IF( ( kt >= 2 ).OR.( ln_rsttr ) ) THEN 
    10461046         ! 
    10471047         nmoymltrdbio = nmoymltrdbio + 1 
    … …  
    13451345#endif 
    13461346 
    1347       IF( lrsttr .AND. ln_trdmld_trc_restart ) THEN 
     1347      IF( ln_rsttr .AND. ln_trdmld_trc_restart ) THEN 
    13481348         CALL trd_mld_trc_rst_read 
    13491349      ELSE 

  • trunk/NEMO/TOP_SRC/trc.F90

    r1457 r1542  
    5252   INTEGER , PUBLIC  ::  ndttrc     !: frequency of step on passive tracers 
    5353   INTEGER , PUBLIC  ::  nittrc000  !: first time step of passive tracers model 
    54    LOGICAL , PUBLIC  ::  lrsttr     !: boolean term for restart i/o for passive tracers (namelist) 
     54   LOGICAL , PUBLIC  ::  ln_rsttr     !: boolean term for restart i/o for passive tracers (namelist) 
    5555   LOGICAL , PUBLIC  ::  lrst_trc   !: logical to control the trc restart write 
    5656   INTEGER , PUBLIC  ::  nutwrs     !: output FILE for passive tracers restart 

  • trunk/NEMO/TOP_SRC/trcctl.F90

    r1254 r1542  
    5252 
    5353      ! restart for passive tracer (input) 
    54       IF( lrsttr ) THEN 
     54      IF( ln_rsttr ) THEN 
    5555         IF(lwp) WRITE(numout,*) '       READ a restart FILE for passive tracer' 
    5656         IF(lwp) WRITE(numout,*) ' ' 

  • trunk/NEMO/TOP_SRC/trcini.F90

    r1457 r1542  
    109109      ENDIF 
    110110 
    111       IF( .NOT. lrsttr ) THEN  
     111      IF( .NOT. ln_rsttr ) THEN  
    112112#if defined key_off_tra 
    113113         CALL day_init      ! calendar 

  • trunk/NEMO/TOP_SRC/trclec.F90

    r1284 r1542  
    7070 
    7171      !! 
    72       NAMELIST/namtoptrc/ ndttrc, nwritetrc, lrsttr, nrsttr, & 
     72      NAMELIST/namtoptrc/ ndttrc, nwritetrc, ln_rsttr, nrsttr, & 
    7373                          cn_trcrst_in, cn_trcrst_out, tracer 
    7474#if defined key_trdmld_trc || defined key_trc_diatrd 
    … …  
    9090      ndttrc    = 1                 ! default values 
    9191      nwritetrc = 10       
    92       lrsttr    = .FALSE. 
     92      ln_rsttr    = .FALSE. 
    9393      nrsttr    =  0 
    9494      cn_trcrst_in  = 'restart_trc' 
    … …  
    123123         WRITE(numout,*) '    1st time step for pass. trac. nittrc000            = ', nittrc000 
    124124         WRITE(numout,*) '    frequency of outputs for passive tracers nwritetrc = ', nwritetrc   
    125          WRITE(numout,*) '    restart LOGICAL for passive tr. lrsttr             = ', lrsttr 
     125         WRITE(numout,*) '    restart LOGICAL for passive tr. ln_rsttr           = ', ln_rsttr 
    126126         WRITE(numout,*) '    control of time step for p. tr. nrsttr             = ', nrsttr 
    127127         WRITE(numout,*) ' ' 
Note: See TracChangeset for help on using the changeset viewer.