Changeset 9168 for branches/2017/dev_merge_2017/NEMOGCM/CONFIG
- Timestamp:
- 2017-12-23T13:27:17+01:00 (6 years ago)
- Location:
- branches/2017/dev_merge_2017/NEMOGCM/CONFIG
- Files:
-
- 4 edited
-
SHARED/namelist_ref (modified) (8 diffs)
-
TEST_CASES/VORTEX/MY_SRC/domvvl.F90 (modified) (1 diff)
-
TEST_CASES/WAD/MY_SRC/bdyini.F90 (modified) (2 diffs)
-
TEST_CASES/WAD/MY_SRC/domain.F90 (modified) (6 diffs)
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/CONFIG/SHARED/namelist_ref
r9161 r9168 6 6 !! 3 - Surface boundary (namsbc, namsbc_flx, namsbc_blk, namsbc_cpl, 7 7 !! namsbc_sas, namtra_qsr, namsbc_rnf, 8 !! nam berg, namsbc_isf, namsbc_iscpl,9 !! namsbc_ apr, namsbc_ssr, namsbc_wave)8 !! namsbc_isf, namsbc_iscpl, namsbc_apr, 9 !! namsbc_ssr, namsbc_wave, namberg) 10 10 !! 4 - lateral boundary (namlbc, namagrif, nambdy, nambdy_tide) 11 11 !! 5 - bottom boundary (namdrg, namdrg_top, namdrg_bot, nambbc, nambbl) … … 191 191 ln_usr = .false. ! user defined formulation (T => check usrdef_sbc) 192 192 ln_flx = .false. ! flux formulation (T => fill namsbc_flx ) 193 ln_blk = .false. ! Bulk formulation 193 ln_blk = .false. ! Bulk formulation (T => fill namsbc_blk ) 194 194 ! Type of coupling (Ocean/Ice/Atmosphere) : 195 195 ln_cpl = .false. ! atmosphere coupled formulation ( requires key_oasis3 ) … … 200 200 ! =2 opa-sas OASIS coupling: multi executable config., SAS component 201 201 ! Sea-ice : 202 nn_ice = 2 ! =0 no ice boundary condition ,203 ! =1 use observed ice-cover ,202 nn_ice = 2 ! =0 no ice boundary condition 203 ! =1 use observed ice-cover ( => fill namsbc_iif ) 204 204 ! =2 or 3 automatically for LIM3 or CICE ("key_lim3" or "key_cice") 205 205 ! except in AGRIF zoom where it has to be specified … … 345 345 / 346 346 !----------------------------------------------------------------------- 347 &namsbc_iif ! Ice-IF : use observed ice cover (nn_ice = 1) 348 !----------------------------------------------------------------------- 349 ! ! file name ! frequency (hours) ! variable ! time interp.! clim ! 'yearly'/ ! weights ! rotation ! land/sea mask ! 350 ! ! ! (if <0 months) ! name ! (logical) ! (T/F ) ! 'monthly' ! filename ! pairing ! filename ! 351 sn_ice ='ice_cover_clim.nc', -12. ,'ice_cover', .true. , .true. , 'yearly' , '' , '' , '' 352 ! 353 cn_dir = './' ! root directory for the location of the runoff files 354 / 355 !----------------------------------------------------------------------- 347 356 &namtra_qsr ! penetrative solar radiation (ln_traqsr =T) 348 357 !----------------------------------------------------------------------- … … 443 452 sn_sst = 'sst_data', 24 , 'sst' , .false. , .false., 'yearly' , '' , '' , '' 444 453 sn_sss = 'sss_data', -1 , 'sss' , .true. , .true. , 'yearly' , '' , '' , '' 445 446 454 cn_dir = './' ! root directory for the location of the runoff files 447 nn_sstr = 0 ! add a retroaction term in the surface heat flux (=1) or not (=0) 455 ! 456 nn_sstr = 0 ! add a retroaction term in the surface heat flux (=1) or not (=0) 457 rn_dqdt = -40. ! magnitude of the retroaction on temperature [W/m2/K] 448 458 nn_sssr = 2 ! add a damping term in the surface freshwater flux (=2) 449 ! ! or to SSS only (=1) or no damping term (=0) 450 rn_dqdt = -40. ! magnitude of the retroaction on temperature [W/m2/K] 451 rn_deds = -166.67 ! magnitude of the damping on salinity [mm/day] 452 ln_sssr_bnd = .true. ! flag to bound erp term (associated with nn_sssr=2) 453 rn_sssr_bnd = 4.e0 ! ABS(Max/Min) value of the damping erp term [mm/day] 459 ! ! or to SSS only (=1) or no damping term (=0) 460 rn_deds = -166.67 ! magnitude of the damping on salinity [mm/day] 461 ln_sssr_bnd = .true. ! flag to bound erp term (associated with nn_sssr=2) 462 rn_sssr_bnd = 4.e0 ! ABS(Max/Min) value of the damping erp term [mm/day] 454 463 / 455 464 !----------------------------------------------------------------------- … … 660 669 ! 661 670 ln_trabbc = .false. ! Apply a geothermal heating at the ocean bottom 662 nn_geoflx = 2 ! geothermal heat flux: = 0 no flux663 ! = 1 constant flux664 ! = 2 variable flux (read in geothermal_heating.nc in mW/m2)665 rn_geoflx_cst = 86.4e-3 ! Constant value of geothermal heat flux [W/m2]666 cn_dir = './' ! root directory for the location of the runoff files671 nn_geoflx = 2 ! geothermal heat flux: = 0 no flux 672 ! ! = 1 constant flux 673 ! ! = 2 variable flux (read in geothermal_heating.nc in mW/m2) 674 rn_geoflx_cst = 86.4e-3 ! Constant value of geothermal heat flux [W/m2] 675 cn_dir = './' ! root directory for the location of the runoff files 667 676 / 668 677 !----------------------------------------------------------------------- … … 670 679 !----------------------------------------------------------------------- 671 680 ln_trabbl = .false. ! Bottom Boundary Layer parameterisation flag 672 nn_bbl_ldf = 1 ! diffusive bbl (=1) or not (=0)673 nn_bbl_adv = 0 ! advective bbl (=1/2) or not (=0)674 rn_ahtbbl = 1000. ! lateral mixing coefficient in the bbl [m2/s]675 rn_gambbl = 10. ! advective bbl coefficient [s]681 nn_bbl_ldf = 1 ! diffusive bbl (=1) or not (=0) 682 nn_bbl_adv = 0 ! advective bbl (=1/2) or not (=0) 683 rn_ahtbbl = 1000. ! lateral mixing coefficient in the bbl [m2/s] 684 rn_gambbl = 10. ! advective bbl coefficient [s] 676 685 / 677 686 … … 784 793 !----------------------------------------------------------------------- 785 794 ln_tradmp = .true. ! add a damping term 786 nn_zdmp = 0! vertical shape =0 damping throughout the water column795 nn_zdmp = 0 ! vertical shape =0 damping throughout the water column 787 796 ! ! =1 no damping in the mixing layer (kz criteria) 788 797 ! ! =2 no damping in the mixed layer (rho crieria) 789 cn_resto ='resto.nc'! Name of file containing restoration coeff. field (use dmp_tools to create this)798 cn_resto = 'resto.nc' ! Name of file containing restoration coeff. field (use dmp_tools to create this) 790 799 / 791 800 -
branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/VORTEX/MY_SRC/domvvl.F90
r9067 r9168 983 983 REWIND( numnam_cfg ) ! Namelist nam_vvl in configuration namelist : Parameters of the run 984 984 READ ( numnam_cfg, nam_vvl, IOSTAT = ios, ERR = 902 ) 985 902 IF( ios /=0 ) CALL ctl_nam ( ios , 'nam_vvl in configuration namelist', lwp )985 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_vvl in configuration namelist', lwp ) 986 986 IF(lwm) WRITE ( numond, nam_vvl ) 987 987 ! -
branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/WAD/MY_SRC/bdyini.F90
r9125 r9168 81 81 READ ( numnam_ref, nambdy, IOSTAT = ios, ERR = 901) 82 82 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in reference namelist', lwp ) 83 !84 83 REWIND( numnam_cfg ) ! Namelist nambdy in configuration namelist :Unstructured open boundaries 85 84 READ ( numnam_cfg, nambdy, IOSTAT = ios, ERR = 902 ) 86 902 IF( ios /=0 ) CALL ctl_nam ( ios , 'nambdy in configuration namelist', lwp )85 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nambdy in configuration namelist', lwp ) 87 86 IF(lwm) WRITE ( numond, nambdy ) 88 87 … … 418 417 419 418 DO ib_bdy = 1, nb_bdy 420 419 ! 421 420 IF( .NOT. ln_coords_file(ib_bdy) ) THEN ! Work out size of global arrays from namelist parameters 422 421 ! 423 422 icount = icount + 1 424 423 ! No REWIND here because may need to read more than one nambdy_index namelist. 425 ! Read only namelist_cfg to avoid unseccessfull overwrite 426 !! REWIND( numnam_ref ) ! Namelist nambdy_index in reference namelist : Open boundaries indexes 427 !! READ ( numnam_ref, namrun, IOSTAT = ios, ERR = 903) 428 !!903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_index in reference namelist', lwp ) 429 430 !! REWIND( numnam_cfg ) ! Namelist nambdy_index in configuration namelist : Open boundaries indexes 424 ! Read only namelist_cfg to avoid unseccessfull overwrite 425 ! keep full control of the configuration namelist 431 426 READ ( numnam_cfg, nambdy_index, IOSTAT = ios, ERR = 904 ) 432 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_index in configuration namelist', lwp )427 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_index in configuration namelist', lwp ) 433 428 IF(lwm) WRITE ( numond, nambdy_index ) 434 429 -
branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/WAD/MY_SRC/domain.F90
r9125 r9168 293 293 REWIND( numnam_cfg ) ! Namelist namrun in configuration namelist : Parameters of the run 294 294 READ ( numnam_cfg, namrun, IOSTAT = ios, ERR = 902 ) 295 902 IF( ios /=0 ) CALL ctl_nam ( ios , 'namrun in configuration namelist', lwp )295 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namrun in configuration namelist', lwp ) 296 296 IF(lwm) WRITE ( numond, namrun ) 297 297 ! … … 378 378 REWIND( numnam_ref ) ! Namelist namdom in reference namelist : space & time domain (bathymetry, mesh, timestep) 379 379 READ ( numnam_ref, namdom, IOSTAT = ios, ERR = 903) 380 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in reference namelist', lwp )380 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in reference namelist', lwp ) 381 381 ! 382 382 REWIND( numnam_cfg ) ! Namelist namdom in configuration namelist : space & time domain (bathymetry, mesh, timestep) 383 383 READ ( numnam_cfg, namdom, IOSTAT = ios, ERR = 904 ) 384 904 IF( ios /= 0 )CALL ctl_nam ( ios , 'namdom in configuration namelist', lwp )384 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdom in configuration namelist', lwp ) 385 385 IF(lwm) WRITE ( numond, namdom ) 386 386 ! … … 411 411 REWIND( numnam_ref ) ! Namelist namnc4 in reference namelist : NETCDF 412 412 READ ( numnam_ref, namnc4, IOSTAT = ios, ERR = 907) 413 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in reference namelist', lwp )413 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in reference namelist', lwp ) 414 414 ! 415 415 REWIND( numnam_cfg ) ! Namelist namnc4 in configuration namelist : NETCDF 416 416 READ ( numnam_cfg, namnc4, IOSTAT = ios, ERR = 908 ) 417 908 IF( ios /= 0 )CALL ctl_nam ( ios , 'namnc4 in configuration namelist', lwp )417 908 IF( ios > 0 ) CALL ctl_nam ( ios , 'namnc4 in configuration namelist', lwp ) 418 418 IF(lwm) WRITE( numond, namnc4 ) 419 419 … … 496 496 !! ** Purpose : read the domain size in domain configuration file 497 497 !! 498 !! ** Method : 499 !! 498 !! ** Method : read the cn_domcfg NetCDF file 500 499 !!---------------------------------------------------------------------- 501 500 CHARACTER(len=*), DIMENSION(:), INTENT(out) :: ldtxt ! stored print information … … 512 511 ii = 1 513 512 WRITE(ldtxt(ii),*) ' ' ; ii = ii+1 514 WRITE(ldtxt(ii),*) 'domain_cfg : domain size read in ', TRIM( cn_domcfg ), ' file' 513 WRITE(ldtxt(ii),*) 'domain_cfg : domain size read in ', TRIM( cn_domcfg ), ' file' ; ii = ii+1 515 514 WRITE(ldtxt(ii),*) '~~~~~~~~~~ ' ; ii = ii+1 516 515 ! … … 524 523 CALL iom_get( inum, 'ORCA_index', zorca_res ) ; kk_cfg = INT( zorca_res ) 525 524 ! 526 WRITE(ldtxt(ii),*) ' ' ; ii = ii+1527 WRITE(ldtxt(ii),*) ' ==>>> ORCA configuration ' ; ii = ii+1528 WRITE(ldtxt(ii),*) ' ' ; ii = ii+1525 WRITE(ldtxt(ii),*) ' ' ; ii = ii+1 526 WRITE(ldtxt(ii),*) ' ==>>> ORCA configuration ' ; ii = ii+1 527 WRITE(ldtxt(ii),*) ' ' ; ii = ii+1 529 528 ! 530 529 ELSE !- cd_cfg & k_cfg are not used
Note: See TracChangeset
for help on using the changeset viewer.
