Changeset 3875 for branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zflx.F90
- Timestamp:
- 2013-04-18T16:38:06+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zflx.F90
r3481 r3875 239 239 NAMELIST/nampisext/ln_co2int, atcco2, clname, nn_offset 240 240 INTEGER :: jm 241 !!---------------------------------------------------------------------- 242 ! 243 REWIND( numnatp ) ! read numnatp 244 READ ( numnatp, nampisext ) 241 INTEGER :: ios ! Local integer output status for namelist read 242 !!---------------------------------------------------------------------- 243 ! 244 245 REWIND( numnatp_ref ) ! Namelist nampisext in reference namelist : Pisces atm. conditions 246 READ ( numnatp_ref, nampisext, IOSTAT = ios, ERR = 901) 247 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisext in reference namelist', lwp ) 248 249 REWIND( numnatp_cfg ) ! Namelist nampisext in configuration namelist : Pisces atm. conditions 250 READ ( numnatp_cfg, nampisext, IOSTAT = ios, ERR = 902 ) 251 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisext in configuration namelist', lwp ) 252 WRITE ( numonp, nampisext ) 245 253 ! 246 254 IF(lwp) THEN ! control print … … 302 310 ! 303 311 INTEGER :: ierr 312 INTEGER :: ios ! Local integer output status for namelist read 304 313 CHARACTER(len=100) :: cn_dir ! Root directory for location of ssr files 305 314 TYPE(FLD_N) :: sn_patm ! informations about the fields to be read … … 317 326 cn_dir = './' ! directory in which the Patm data are 318 327 319 REWIND( numnatp ) !* read in namlist nampisatm 320 READ ( numnatp, nampisatm ) 328 REWIND( numnatp_ref ) ! Namelist nampisatm in reference namelist : Pisces atm. sea level pressure file 329 READ ( numnatp_ref, nampisatm, IOSTAT = ios, ERR = 901) 330 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisatm in reference namelist', lwp ) 331 332 REWIND( numnatp_cfg ) ! Namelist nampisatm in configuration namelist : Pisces atm. sea level pressure file 333 READ ( numnatp_cfg, nampisatm, IOSTAT = ios, ERR = 902 ) 334 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisatm in configuration namelist', lwp ) 335 WRITE ( numonp, nampisatm ) 321 336 ! 322 337 !
Note: See TracChangeset
for help on using the changeset viewer.