Changeset 4353
- Timestamp:
- 2014-01-17T16:30:02+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_ECMWF_waves/NEMOGCM/NEMO/OPA_SRC/SBC/sbcwave_ecmwf.F90
r4352 r4353 59 59 !! 60 60 !!--------------------------------------------------------------------- 61 INTEGER, INTENT( in ) :: kt ! ocean time step61 INTEGER, INTENT( in ) :: kt ! ocean time step 62 62 INTEGER :: ierror ! return error code 63 INTEGER :: ios ! io return code 63 64 CHARACTER(len=100) :: cn_dir_cdg ! Root directory for location of drag coefficient files 64 65 TYPE(FLD_N) :: sn_cdg ! informations about the fields to be read … … 81 82 82 83 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) 86 901 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 ) 90 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_wave_ecmwf in configuration namelist', lwp ) 91 WRITE ( numond, namsbc_wave_ecmwf ) 85 92 ! 86 93 … … 122 129 INTEGER :: ji ! dummy loop index 123 130 INTEGER :: jfld ! dummy loop arguments 131 INTEGER :: ios ! io return code 124 132 !! 125 133 CHARACTER(len=100) :: cn_dir_wavepar ! Root directory for location of ECWAM wave parameter fields … … 154 162 cn_dir_wavepar = './' ! directory in which the wave data are found 155 163 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) 166 901 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 ) 170 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_wavepar in configuration namelist', lwp ) 171 WRITE ( numond, namsbc_wavepar ) 158 172 ! 159 173 slf_i(jp_ust) = sn_ust
Note: See TracChangeset
for help on using the changeset viewer.