Changeset 4147 for branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/BDY
- Timestamp:
- 2013-11-04T12:51:55+01:00 (11 years ago)
- Location:
- branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/BDY
- Files:
-
- 3 edited
-
bdydta.F90 (modified) (2 diffs)
-
bdyini.F90 (modified) (4 diffs)
-
bdytides.F90 (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90
r3851 r4147 355 355 !! 356 356 INTEGER :: ib_bdy, jfld, jstart, jend, ierror ! local indices 357 INTEGER :: ios ! Local integer output status for namelist read 357 358 !! 358 359 CHARACTER(len=100) :: cn_dir ! Root directory for location of data files … … 440 441 ! Read namelists 441 442 ! -------------- 442 REWIND(numnam) 443 REWIND(numnam_ref) 444 REWIND(numnam_cfg) 443 445 jfld = 0 444 446 DO ib_bdy = 1, nb_bdy 445 447 IF( nn_dta(ib_bdy) .eq. 1 ) THEN 446 ! set file information 447 cn_dir = './' ! directory in which the model is executed 448 ln_full_vel = .false. 449 ! ... default values (NB: frequency positive => hours, negative => months) 450 ! ! file ! frequency ! variable ! time intep ! clim ! 'yearly' or ! weights ! rotation ! 451 ! ! name ! hours ! name ! (T/F) ! (T/F) ! 'monthly' ! filename ! pairs ! 452 bn_ssh = FLD_N( 'bdy_ssh' , 24 , 'sossheig' , .false. , .false. , 'yearly' , '' , '' ) 453 bn_u2d = FLD_N( 'bdy_vel2d_u' , 24 , 'vobtcrtx' , .false. , .false. , 'yearly' , '' , '' ) 454 bn_v2d = FLD_N( 'bdy_vel2d_v' , 24 , 'vobtcrty' , .false. , .false. , 'yearly' , '' , '' ) 455 bn_u3d = FLD_N( 'bdy_vel3d_u' , 24 , 'vozocrtx' , .false. , .false. , 'yearly' , '' , '' ) 456 bn_v3d = FLD_N( 'bdy_vel3d_v' , 24 , 'vomecrty' , .false. , .false. , 'yearly' , '' , '' ) 457 bn_tem = FLD_N( 'bdy_tem' , 24 , 'votemper' , .false. , .false. , 'yearly' , '' , '' ) 458 bn_sal = FLD_N( 'bdy_sal' , 24 , 'vosaline' , .false. , .false. , 'yearly' , '' , '' ) 459 #if defined key_lim2 460 bn_frld = FLD_N( 'bdy_frld' , 24 , 'ildsconc' , .false. , .false. , 'yearly' , '' , '' ) 461 bn_hicif = FLD_N( 'bdy_hicif' , 24 , 'iicethic' , .false. , .false. , 'yearly' , '' , '' ) 462 bn_hsnif = FLD_N( 'bdy_hsnif' , 24 , 'isnothic' , .false. , .false. , 'yearly' , '' , '' ) 463 #endif 464 465 ! Important NOT to rewind here. 466 READ( numnam, nambdy_dta ) 448 449 READ ( numnam_ref, nambdy_dta, IOSTAT = ios, ERR = 901) 450 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_dta in reference namelist', lwp ) 451 452 READ ( numnam_cfg, nambdy_dta, IOSTAT = ios, ERR = 902 ) 453 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_dta in configuration namelist', lwp ) 454 WRITE ( numond, nambdy_dta ) 467 455 468 456 cn_dir_array(ib_bdy) = cn_dir -
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) ) -
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90
r3651 r4147 76 76 INTEGER, DIMENSION(3) :: ilen0 !: length of boundary data (from OBC arrays) 77 77 INTEGER, POINTER, DIMENSION(:) :: nblen, nblenrim ! short cuts 78 INTEGER :: ios ! Local integer output status for namelist read 78 79 CHARACTER(len=80) :: clfile !: full file name for tidal input file 79 80 REAL(wp),ALLOCATABLE, DIMENSION(:,:,:) :: dta_read !: work space to read in tidal harmonics data … … 93 94 ENDIF 94 95 95 ln_bdytide_2ddta = .FALSE. 96 ln_bdytide_conj = .FALSE. 97 98 REWIND(numnam) 96 REWIND(numnam_cfg) 97 99 98 DO ib_bdy = 1, nb_bdy 100 99 IF( nn_dyn2d_dta(ib_bdy) .ge. 2 ) THEN … … 107 106 filtide(:) = '' 108 107 109 ! Don't REWIND here - may need to read more than one of these namelists. 110 READ ( numnam, nambdy_tide ) 108 ! Don't REWIND here - may need to read more than one of these namelists. 109 READ ( numnam_ref, nambdy_tide, IOSTAT = ios, ERR = 901) 110 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_tide in reference namelist', lwp ) 111 READ ( numnam_cfg, nambdy_tide, IOSTAT = ios, ERR = 902 ) 112 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_tide in configuration namelist', lwp ) 113 WRITE ( numond, nambdy_tide ) 111 114 ! ! Parameter control and print 112 115 IF(lwp) WRITE(numout,*) ' '
Note: See TracChangeset
for help on using the changeset viewer.
