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 9168 for branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/WAD/MY_SRC/bdyini.F90 – NEMO

Ignore:
Timestamp:
2017-12-23T13:27:17+01:00 (6 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/CONFIG/TEST_CASES/WAD/MY_SRC/bdyini.F90

    r9125 r9168  
    8181      READ  ( numnam_ref, nambdy, IOSTAT = ios, ERR = 901) 
    8282901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'nambdy in reference namelist', lwp ) 
    83       ! 
    8483      REWIND( numnam_cfg )              ! Namelist nambdy in configuration namelist :Unstructured open boundaries 
    8584      READ  ( numnam_cfg, nambdy, IOSTAT = ios, ERR = 902 ) 
    86 902   IF( ios /= 0 )   CALL ctl_nam ( ios , 'nambdy in configuration namelist', lwp ) 
     85902   IF( ios > 0 )   CALL ctl_nam ( ios , 'nambdy in configuration namelist', lwp ) 
    8786      IF(lwm) WRITE ( numond, nambdy ) 
    8887 
    … …  
    418417 
    419418      DO ib_bdy = 1, nb_bdy 
    420  
     419         ! 
    421420         IF( .NOT. ln_coords_file(ib_bdy) ) THEN ! Work out size of global arrays from namelist parameters 
    422   
     421            ! 
    423422            icount = icount + 1 
    424423            ! No REWIND here because may need to read more than one nambdy_index namelist. 
    425             ! Read only namelist_cfg to avoid unseccessfull overwrite 
    426 !!          REWIND( numnam_ref )              ! Namelist nambdy_index in reference namelist : Open boundaries indexes 
    427 !!          READ  ( numnam_ref, namrun, IOSTAT = ios, ERR = 903) 
    428 !!903       IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_index in reference namelist', lwp ) 
    429  
    430 !!          REWIND( numnam_cfg )              ! Namelist nambdy_index in configuration namelist : Open boundaries indexes 
     424            ! Read only namelist_cfg to avoid unseccessfull overwrite  
     425            ! keep full control of the configuration namelist 
    431426            READ  ( numnam_cfg, nambdy_index, IOSTAT = ios, ERR = 904 ) 
    432 904         IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_index in configuration namelist', lwp ) 
     427904         IF( ios /= 0 )   CALL ctl_nam ( ios , 'nambdy_index in configuration namelist', lwp ) 
    433428            IF(lwm) WRITE ( numond, nambdy_index ) 
    434429 
Note: See TracChangeset for help on using the changeset viewer.