Changeset 4353


Ignore:
Timestamp:
2014-01-17T16:30:02+01:00 (7 years ago)
Author:
acc
Message:

Branch 2013/dev_ECMWF_waves ticket #1216. Update namelist handling to v3.6 standard

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_ECMWF_waves/NEMOGCM/NEMO/OPA_SRC/SBC/sbcwave_ecmwf.F90

    r4352 r4353  
    5959      !!                
    6060      !!--------------------------------------------------------------------- 
    61       INTEGER, INTENT( in  ) ::  kt   ! ocean time step 
     61      INTEGER, INTENT( in  ) ::  kt       ! ocean time step 
    6262      INTEGER                ::  ierror   ! return error code 
     63      INTEGER                ::  ios      ! io return code 
    6364      CHARACTER(len=100)     ::  cn_dir_cdg                      ! Root directory for location of drag coefficient files 
    6465      TYPE(FLD_N)            ::  sn_cdg                          ! informations about the fields to be read 
     
    8182          
    8283 
    83 !!ACC    REWIND( numnam )                             !* read in namlist namsbc_wave_ecmwf 
    84 !!ACC    READ  ( numnam, namsbc_wave_ecmwf )  
     84         REWIND( numnam_ref )              !  Namelist namsbc_wavepar in reference namelist  
     85         READ  ( numnam_ref, namsbc_wave_ecmwf, IOSTAT = ios, ERR = 901) 
     86901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_wave_ecmwf in reference namelist', lwp ) 
     87 
     88         REWIND( numnam_cfg )              !  Namelist namsbc_wave_ecmwf in configuration namelist 
     89         READ  ( numnam_cfg, namsbc_wave_ecmwf, IOSTAT = ios, ERR = 902 ) 
     90902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_wave_ecmwf in configuration namelist', lwp ) 
     91         WRITE ( numond, namsbc_wave_ecmwf ) 
    8592         ! 
    8693 
     
    122129      INTEGER  ::   ji      ! dummy loop index 
    123130      INTEGER  ::   jfld    ! dummy loop arguments 
     131      INTEGER  ::   ios     ! io return code 
    124132      !! 
    125133      CHARACTER(len=100)     ::  cn_dir_wavepar ! Root directory for location of ECWAM wave parameter fields 
     
    154162         cn_dir_wavepar = './'          ! directory in which the wave data are found 
    155163 
    156 !!ACC    REWIND( numnam )                             !* read in namlist namsbc_wavepar 
    157 !!ACC    READ  ( numnam, namsbc_wavepar )  
     164         REWIND( numnam_ref )              !  Namelist namsbc_wavepar in reference namelist  
     165         READ  ( numnam_ref, namsbc_wavepar, IOSTAT = ios, ERR = 901) 
     166901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_wavepar in reference namelist', lwp ) 
     167 
     168         REWIND( numnam_cfg )              !  Namelist namsbc_wavepar in configuration namelist 
     169         READ  ( numnam_cfg, namsbc_wavepar, IOSTAT = ios, ERR = 902 ) 
     170902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_wavepar in configuration namelist', lwp ) 
     171         WRITE ( numond, namsbc_wavepar ) 
    158172         ! 
    159173         slf_i(jp_ust) = sn_ust  
Note: See TracChangeset for help on using the changeset viewer.