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 9169 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/AGE – NEMO

Ignore:
Timestamp:
2017-12-26T17:32:56+01:00 (6 years ago)
Author:
gm
Message:

dev_merge_2017: all SRC: finalize the removal of useless warning when reading namelist_cfg + remove all nn_closea + nn_msh replaced by a logical

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/AGE/trcnam_age.F90

    r9119 r9169  
    66   !! History :   2.0  !  2007-12  (C. Ethe, G. Madec)  
    77   !!---------------------------------------------------------------------- 
    8    !! trc_nam_age      : AGE  tracer initialisation 
     8   !! trc_nam_age      : AGE tracer initialisation 
    99   !!---------------------------------------------------------------------- 
    1010   USE oce_trc         ! Ocean variables 
     
    2222   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    2323   !!---------------------------------------------------------------------- 
    24  
    2524CONTAINS 
    2625 
     
    3332      !! ** input   :   Namelist namage 
    3433      !!---------------------------------------------------------------------- 
    35       INTEGER :: ios                 ! Local integer output status for namelist read 
     34      INTEGER ::   ios   ! Local integer 
    3635      !! 
    3736      NAMELIST/namage/ rn_age_depth, rn_age_kill_rate  
    3837      !!---------------------------------------------------------------------- 
     38      ! 
     39      IF(lwp) THEN 
     40         WRITE(numout,*) 
     41         WRITE(numout,*) ' Sea Age Tracer' 
     42         WRITE(numout,*) 
     43         WRITE(numout,*) 'trc_nam_age : Read namage namelist for Age passive tracer' 
     44         WRITE(numout,*) '~~~~~~~~~~~' 
     45      ENDIF 
     46 
    3947      ! Variable setting 
    4048      ctrcnm    (jp_age) = 'Age' 
     
    4856      REWIND( numnat_ref )              ! Namelist namagedate in reference namelist : AGE parameters 
    4957      READ  ( numnat_ref, namage, IOSTAT = ios, ERR = 901) 
    50 901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namage in reference namelist', lwp ) 
    51  
     58901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namage in reference namelist', lwp ) 
    5259      REWIND( numnat_cfg )              ! Namelist namagedate in configuration namelist : AGE parameters 
    5360      READ  ( numnat_cfg, namage, IOSTAT = ios, ERR = 902 ) 
    54 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namage in configuration namelist', lwp ) 
     61902   IF( ios >  0 )  CALL ctl_nam ( ios , 'namage in configuration namelist', lwp ) 
    5562      IF(lwm) WRITE ( numont, namage ) 
    56  
     63      ! 
    5764      IF(lwp) THEN                  ! control print 
    58          WRITE(numout,*) ' ' 
    59          WRITE(numout,*) ' Sea Age Tracer' 
    60          WRITE(numout,*) 
    61          WRITE(numout,*) ' trc_nam_age: Read namage, namelist for Age passive tracer' 
    62          WRITE(numout,*) ' ~~~~~~~' 
    63          WRITE(numout,*) '  depth over which age tracer reset to zero                              rn_age_depth      = ', & 
    64               &          rn_age_depth  
    65          WRITE(numout,*) '  recip of relax. timescale (s) for age tracer shallower than age_depth  rn_age_kill_rate  = ', & 
    66               &          rn_age_kill_rate  
    67          WRITE(numout,*) '' 
     65         WRITE(numout,*) '   Namelist : namage' 
     66         WRITE(numout,*) '      depth over which age tracer reset to zero     rn_age_depth      = ', rn_age_depth  
     67         WRITE(numout,*) '      recip of relaxation timescale                 rn_age_kill_rate  = ', rn_age_kill_rate, '[s]' 
     68         WRITE(numout,*) '      (for age tracer shallower than age_depth) ' 
    6869      ENDIF 
    69  
    7070      ! 
    7171   END SUBROUTINE trc_nam_age 
Note: See TracChangeset for help on using the changeset viewer.