- Timestamp:
- 2013-11-04T12:51:55+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90
r3703 r4147 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 … … 119 119 cgrid= (/'t','u','v'/) 120 120 121 ! ----------------------------------------- 122 ! Initialise and read namelist parameters 123 ! ----------------------------------------- 124 125 nb_bdy = 0 126 ln_coords_file(:) = .false. 127 cn_coords_file(:) = '' 128 ln_mask_file = .false. 129 cn_mask_file(:) = '' 130 nn_dyn2d(:) = 0 131 nn_dyn2d_dta(:) = -1 ! uninitialised flag 132 nn_dyn3d(:) = 0 133 nn_dyn3d_dta(:) = -1 ! uninitialised flag 134 nn_tra(:) = 0 135 nn_tra_dta(:) = -1 ! uninitialised flag 136 ln_tra_dmp(:) = .false. 137 ln_dyn3d_dmp(:) = .false. 138 rn_time_dmp(:) = 1. 139 #if defined key_lim2 140 nn_ice_lim2(:) = 0 141 nn_ice_lim2_dta(:)= -1 ! uninitialised flag 142 #endif 143 ln_vol = .false. 144 nn_volctl = -1 ! uninitialised flag 145 nn_rimwidth(:) = -1 ! uninitialised flag 146 147 REWIND( numnam ) 148 READ ( numnam, nambdy ) 121 ! ------------------------ 122 ! Read namelist parameters 123 ! ------------------------ 124 125 REWIND( numnam_ref ) ! Namelist nambdy in reference namelist :Unstructured open boundaries 126 READ ( numnam_ref, nambdy, IOSTAT = ios, ERR = 901) 127 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in reference namelist', lwp ) 128 129 REWIND( numnam_cfg ) ! Namelist nambdy in configuration namelist :Unstructured open boundaries 130 READ ( numnam_cfg, nambdy, IOSTAT = ios, ERR = 902 ) 131 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in configuration namelist', lwp ) 132 WRITE ( numond, nambdy ) 149 133 150 134 ! ----------------------------------------- … … 301 285 ! Work out global dimensions of boundary data 302 286 ! --------------------------------------------- 303 REWIND( numnam ) 287 REWIND( numnam_cfg ) 288 289 !!---------------------------------------------------------------------- 290 291 304 292 305 293 nblendta(:,:) = 0 … … 319 307 icount = icount + 1 320 308 ! No REWIND here because may need to read more than one nambdy_index namelist. 321 READ ( numnam, nambdy_index ) 309 ! Read only namelist_cfg to avoid unseccessfull overwrite 310 !! REWIND( numnam_ref ) ! Namelist nambdy_index in reference namelist : Open boundaries indexes 311 !! READ ( numnam_ref, namrun, IOSTAT = ios, ERR = 903) 312 !!903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_index in reference namelist', lwp ) 313 314 !! REWIND( numnam_cfg ) ! Namelist nambdy_index in configuration namelist : Open boundaries indexes 315 READ ( numnam_cfg, nambdy_index, IOSTAT = ios, ERR = 904 ) 316 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_index in configuration namelist', lwp ) 317 WRITE ( numond, nambdy_index ) 322 318 323 319 SELECT CASE ( TRIM(ctypebdy) )
Note: See TracChangeset
for help on using the changeset viewer.