Ignore:
Timestamp:
2017-12-23T13:27:17+01:00 (4 years ago)
Author:
gm
Message:

dev_merge_2017: OPA_SRC & CONFIG: remove useless warning when reading namelist_cfg

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/tideini.F90

    r9023 r9168  
    6464      REWIND( numnam_cfg )              ! Namelist nam_tide in configuration namelist : Tides 
    6565      READ  ( numnam_cfg, nam_tide, IOSTAT = ios, ERR = 902 ) 
    66 902   IF( ios /= 0 )   CALL ctl_nam ( ios , 'nam_tide in configuration namelist', lwp ) 
     66902   IF( ios > 0 )   CALL ctl_nam ( ios , 'nam_tide in configuration namelist', lwp ) 
    6767      IF(lwm) WRITE ( numond, nam_tide ) 
    6868      ! 
    69       IF (ln_tide) THEN 
     69      IF( ln_tide ) THEN 
    7070         IF (lwp) THEN 
    7171            WRITE(numout,*) 
     
    7373            WRITE(numout,*) '~~~~~~~~~ ' 
    7474            WRITE(numout,*) '   Namelist nam_tide' 
    75             WRITE(numout,*) '              Use tidal components : ln_tide      = ', ln_tide 
    76             WRITE(numout,*) '      Apply astronomical potential          : ln_tide_pot  = ', ln_tide_pot 
    77             WRITE(numout,*) '      Use scalar approx. for load potential : ln_scal_load = ', ln_scal_load 
    78             WRITE(numout,*) '      Read load potential from file         : ln_read_load = ', ln_read_load 
    79             WRITE(numout,*) '      Apply ramp on tides at startup        : ln_tide_ramp = ', ln_tide_ramp 
    80             WRITE(numout,*) '      Fraction of SSH used in scal. approx. : rn_scal_load = ', rn_scal_load 
    81             WRITE(numout,*) '      Duration (days) of ramp               : rdttideramp  = ', rdttideramp 
     75            WRITE(numout,*) '      Use tidal components                      ln_tide      = ', ln_tide 
     76            WRITE(numout,*) '         Apply astronomical potential            ln_tide_pot  = ', ln_tide_pot 
     77            WRITE(numout,*) '         Use scalar approx. for load potential  ln_scal_load = ', ln_scal_load 
     78            WRITE(numout,*) '         Read load potential from file          ln_read_load = ', ln_read_load 
     79            WRITE(numout,*) '         Apply ramp on tides at startup          ln_tide_ramp = ', ln_tide_ramp 
     80            WRITE(numout,*) '         Fraction of SSH used in scal. approx.  rn_scal_load = ', rn_scal_load 
     81            WRITE(numout,*) '         Duration (days) of ramp                rdttideramp  = ', rdttideramp 
    8282         ENDIF 
    8383      ELSE 
Note: See TracChangeset for help on using the changeset viewer.