- 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/OPA_SRC/BDY/bdyini.F90
r3703 r3875 102 102 !! 103 103 NAMELIST/nambdy_index/ ctypebdy, nbdyind, nbdybeg, nbdyend 104 104 INTEGER :: ios ! Local integer output status for namelist read 105 105 !!---------------------------------------------------------------------- 106 106 … … 145 145 nn_rimwidth(:) = -1 ! uninitialised flag 146 146 147 REWIND( numnam ) 148 READ ( numnam, nambdy ) 147 REWIND( numnam_ref ) ! Namelist nambdy in reference namelist :Unstructured open boundaries 148 READ ( numnam_ref, nambdy, IOSTAT = ios, ERR = 901) 149 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in reference namelist', lwp ) 150 151 REWIND( numnam_cfg ) ! Namelist nambdy in configuration namelist :Unstructured open boundaries 152 READ ( numnam_cfg, nambdy, IOSTAT = ios, ERR = 902 ) 153 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in configuration namelist', lwp ) 154 WRITE ( numond, nambdy ) 149 155 150 156 ! ----------------------------------------- … … 301 307 ! Work out global dimensions of boundary data 302 308 ! --------------------------------------------- 303 REWIND( numnam ) 309 REWIND( numnam_cfg ) 310 311 !!---------------------------------------------------------------------- 312 313 304 314 305 315 nblendta(:,:) = 0 … … 319 329 icount = icount + 1 320 330 ! No REWIND here because may need to read more than one nambdy_index namelist. 321 READ ( numnam, nambdy_index ) 331 ! Read only namelist_cfg to avoid unseccessfull overwrite 332 !! REWIND( numnam_ref ) ! Namelist nambdy_index in reference namelist : Open boundaries indexes 333 !! READ ( numnam_ref, namrun, IOSTAT = ios, ERR = 903) 334 !!903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_index in reference namelist', lwp ) 335 336 !! REWIND( numnam_cfg ) ! Namelist nambdy_index in configuration namelist : Open boundaries indexes 337 READ ( numnam_cfg, nambdy_index, IOSTAT = ios, ERR = 904 ) 338 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_index in configuration namelist', lwp ) 339 WRITE ( numond, nambdy_index ) 322 340 323 341 SELECT CASE ( TRIM(ctypebdy) )
Note: See TracChangeset
for help on using the changeset viewer.