Ignore:
Timestamp:
2017-12-26T17:32:56+01:00 (3 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/CFC/trcnam_cfc.F90

    r7646 r9169  
    2424   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    2525   !!---------------------------------------------------------------------- 
    26  
    2726CONTAINS 
    2827 
     
    3837      !! ** input   :   Namelist namcfc 
    3938      !!---------------------------------------------------------------------- 
    40       INTEGER :: ios                 ! Local integer output status for namelist read 
    41       INTEGER :: jl, jn 
     39      INTEGER ::   ios   ! Local integer 
     40      INTEGER ::   jl, jn 
    4241      !! 
    4342      NAMELIST/namcfc/ ndate_beg, nyear_res, clname 
    4443      !!---------------------------------------------------------------------- 
     44      ! 
     45      IF(lwp) THEN 
     46         WRITE(numout,*) ' ' 
     47         WRITE(numout,*) ' CFCs' 
     48         WRITE(numout,*) ' ' 
     49         WRITE(numout,*) ' trc_nam_cfc : Read namcfc namelist for CFC chemical model' 
     50         WRITE(numout,*) ' ~~~~~~~~~~~' 
     51      ENDIF 
     52      ! 
     53      REWIND( numtrc_ref )              ! Namelist namcfcdate in reference namelist : CFC parameters 
     54      READ  ( numtrc_ref, namcfc, IOSTAT = ios, ERR = 901) 
     55901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namcfc in reference namelist', lwp ) 
     56      REWIND( numtrc_cfg )              ! Namelist namcfcdate in configuration namelist : CFC parameters 
     57      READ  ( numtrc_cfg, namcfc, IOSTAT = ios, ERR = 902 ) 
     58902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namcfc in configuration namelist', lwp ) 
     59      IF(lwm) WRITE( numonr, namcfc ) 
     60      IF(lwm) CALL FLUSH ( numonr )     ! flush output namelist CFC 
     61 
     62      IF(lwp) THEN                  ! control print 
     63         WRITE(numout,*) '   Namelist : namcfc' 
     64         WRITE(numout,*) '      initial calendar date (aammjj) for CFC     ndate_beg = ', ndate_beg, '[yymmdd]' 
     65         WRITE(numout,*) '      restoring time constant (year)             nyear_res = ', nyear_res 
     66      ENDIF 
     67      nyear_beg = ndate_beg / 10000 
     68      IF(lwp) WRITE(numout,*) '      associated initial year (aa)               nyear_beg = ', nyear_beg, '[yy]' 
    4569      ! 
    4670      jn = jp_cfc0 - 1 
     
    79103      ENDIF 
    80104      ! 
    81       REWIND( numtrc_ref )              ! Namelist namcfcdate in reference namelist : CFC parameters 
    82       READ  ( numtrc_ref, namcfc, IOSTAT = ios, ERR = 901) 
    83 901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfc in reference namelist', lwp ) 
    84  
    85       REWIND( numtrc_cfg )              ! Namelist namcfcdate in configuration namelist : CFC parameters 
    86       READ  ( numtrc_cfg, namcfc, IOSTAT = ios, ERR = 902 ) 
    87 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfc in configuration namelist', lwp ) 
    88       IF(lwm) WRITE ( numonr, namcfc ) 
    89  
    90       IF(lwp) THEN                  ! control print 
    91          WRITE(numout,*) ' ' 
    92          WRITE(numout,*) ' CFCs' 
    93          WRITE(numout,*) ' ' 
    94          WRITE(numout,*) ' trc_nam: Read namdates, namelist for CFC chemical model' 
    95          WRITE(numout,*) ' ~~~~~~~' 
    96          WRITE(numout,*) '    initial calendar date (aammjj) for CFC  ndate_beg = ', ndate_beg 
    97          WRITE(numout,*) '    restoring time constant (year)          nyear_res = ', nyear_res 
    98       ENDIF 
    99       nyear_beg = ndate_beg / 10000 
    100       IF(lwp) WRITE(numout,*) '    initial year (aa)                       nyear_beg = ', nyear_beg 
    101       ! 
    102       IF(lwm) CALL FLUSH ( numonr )     ! flush output namelist CFC 
    103  
    104105   END SUBROUTINE trc_nam_cfc 
    105106    
Note: See TracChangeset for help on using the changeset viewer.