- 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/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
Note: See TracChangeset
for help on using the changeset viewer.