Changeset 7246
- Timestamp:
- 2016-11-17T11:56:41+01:00 (7 years ago)
- Location:
- branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM
- Files:
-
- 4 edited
-
CONFIG/ORCA2_LIM/EXP00/1_namelist_cfg (modified) (3 diffs)
-
CONFIG/ORCA2_LIM3/EXP00/1_namelist_cfg (modified) (6 diffs)
-
NEMO/OPA_SRC/DOM/domain.F90 (modified) (3 diffs)
-
NEMO/OPA_SRC/nemogcm.F90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/CONFIG/ORCA2_LIM/EXP00/1_namelist_cfg
r7200 r7246 4 4 !----------------------------------------------------------------------- 5 5 &namrun ! parameters of the run 6 nn_it000=17 6 !----------------------------------------------------------------------- 8 7 cn_exp = "Agulhas" ! experience name 9 nn_itend = 10950 8 nn_it000 = 1 ! first time step 9 nn_itend = 10950 ! last time step 10 10 nn_stock = 10950 ! frequency of creation of a restart file (modulo referenced to 1) 11 11 nn_write = 10950 ! frequency of write in the output file (modulo referenced to nn_it000) 12 ln_clobber = .true.12 ln_clobber = .true. ! clobber (overwrite) an existing file 13 13 / 14 14 !----------------------------------------------------------------------- … … 23 23 !----------------------------------------------------------------------- 24 24 ln_zps = .true. ! z-coordinate - partial steps 25 ln_linssh = .true. ! linear free surface26 25 / 27 26 !----------------------------------------------------------------------- 28 27 &namdom ! space and time domain (bathymetry, mesh, timestep) 29 28 !----------------------------------------------------------------------- 30 ppsur = -4762.96143546300 ! ORCA r4, r2 and r05 coefficients 31 ppa0 = 255.58049070440 ! (default coefficients) 32 ppa1 = 245.58132232490 ! 33 ppkth = 21.43336197938 ! 34 ppacr = 3.0 ! 35 ppdzmin = 999999. ! Minimum vertical spacing 36 pphmax = 999999. ! Maximum depth 37 ldbletanh = .FALSE. ! Use/do not use double tanf function for vertical coordinates 38 ppa2 = 999999. ! Double tanh function parameters 39 ppkth2 = 999999. ! 40 ppacr2 = 999999. ! 29 ln_linssh = .true. ! =T linear free surface ==>> model level are fixed in time 30 nn_closea = 0 ! remove (=0) or keep (=1) closed seas and lakes (ORCA) 31 ! 41 32 rn_rdt = 2880. ! time step for the dynamics (and tracer if nn_acc=0) 42 33 / … … 181 172 ln_dynvor_mix = .false. ! mixed scheme 182 173 ln_dynvor_een = .true. ! energy & enstrophy scheme 183 nn_een_e3f = 1! e3f = masked averaging of e3t divided by 4 (=0) or by the sum of mask (=1)174 nn_een_e3f = 0 ! e3f = masked averaging of e3t divided by 4 (=0) or by the sum of mask (=1) 184 175 / 185 176 !----------------------------------------------------------------------- -
branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/CONFIG/ORCA2_LIM3/EXP00/1_namelist_cfg
r7200 r7246 6 6 !----------------------------------------------------------------------- 7 7 cn_exp = "Agulhas" ! experience name 8 nn_itend = 480 ! last time step 8 nn_it000 = 1 ! first time step 9 nn_itend = 10950 ! last time step 9 10 nn_stock = 10950 ! frequency of creation of a restart file (modulo referenced to 1) 10 11 nn_write = 10950 ! frequency of write in the output file (modulo referenced to nn_it000) … … 16 17 ln_read_cfg = .true. ! (=T) read the domain configuration file 17 18 ! ! (=F) user defined configuration ==>>> see usrdef(_...) modules 18 cn_domcfg = "AGRIF_AGULHAS_dom cfg" ! domain configuration filename19 cn_domcfg = "AGRIF_AGULHAS_domain_cfg" ! domain configuration filename 19 20 / 20 21 !----------------------------------------------------------------------- … … 26 27 &namdom ! space and time domain (bathymetry, mesh, timestep) 27 28 !----------------------------------------------------------------------- 28 jphgr_msh = 0 ! type of horizontal mesh 29 ppglam0 = 999999.0 ! longitude of first raw and column T-point (jphgr_msh = 1) 30 ppgphi0 = 999999.0 ! latitude of first raw and column T-point (jphgr_msh = 1) 31 ppe1_deg = 999999.0 ! zonal grid-spacing (degrees) 32 ppe2_deg = 999999.0 ! meridional grid-spacing (degrees) 33 ppe1_m = 999999.0 ! zonal grid-spacing (degrees) 34 ppe2_m = 999999.0 ! meridional grid-spacing (degrees) 35 ppsur = -4762.96143546300 ! ORCA r4, r2 and r05 coefficients 36 ppa0 = 255.58049070440 ! (default coefficients) 37 ppa1 = 245.58132232490 ! 38 ppkth = 21.43336197938 ! 39 ppacr = 3.0 ! 40 ppdzmin = 999999. ! Minimum vertical spacing 41 pphmax = 999999. ! Maximum depth 42 ldbletanh = .FALSE. ! Use/do not use double tanf function for vertical coordinates 43 ppa2 = 999999. ! Double tanh function parameters 44 ppkth2 = 999999. ! 45 ppacr2 = 999999. ! 29 ln_linssh = .true. ! =T linear free surface ==>> model level are fixed in time 30 nn_closea = 0 ! remove (=0) or keep (=1) closed seas and lakes (ORCA) 31 ! 46 32 rn_rdt = 2880. ! time step for the dynamics (and tracer if nn_acc=0) 33 ! 47 34 / 48 35 !----------------------------------------------------------------------- … … 58 45 &namsbc ! Surface Boundary Condition (surface module) 59 46 !----------------------------------------------------------------------- 47 ln_blk_core = .true. ! CORE bulk formulation (T => fill namsbc_core) 60 48 nn_ice = 0 ! =0 no ice boundary condition , 61 49 ! =1 use observed ice-cover , … … 186 174 ln_dynvor_een = .true. ! energy & enstrophy scheme 187 175 nn_een_e3f = 0 ! e3f = masked averaging of e3t divided by 4 (=0) or by the sum of mask (=1) 188 ln_dynvor_msk = .false. ! vorticity multiplied by fmask (=T) or not (=F) (all vorticity schemes)189 176 / 190 177 !----------------------------------------------------------------------- … … 209 196 ln_dynldf_iso = .false. ! iso-neutral 210 197 ! ! Coefficient 211 nn_ahm_ijk_t = 20 ! space/time variation of eddy coef198 nn_ahm_ijk_t = 0 ! space/time variation of eddy coef 212 199 ! ! =-30 read in eddy_viscosity_3D.nc file 213 200 ! ! =-20 read in eddy_viscosity_2D.nc file -
branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90
r7200 r7246 493 493 494 494 495 SUBROUTINE domain_cfg( ldtxt, ldnam,cd_cfg, kk_cfg, kpi, kpj, kpk, kperio )495 SUBROUTINE domain_cfg( ldtxt, cd_cfg, kk_cfg, kpi, kpj, kpk, kperio ) 496 496 !!---------------------------------------------------------------------- 497 497 !! *** ROUTINE dom_nam *** … … 502 502 !! 503 503 !!---------------------------------------------------------------------- 504 CHARACTER(len=*), DIMENSION(:), INTENT(out) :: ldtxt , ldnam! stored print information504 CHARACTER(len=*), DIMENSION(:), INTENT(out) :: ldtxt ! stored print information 505 505 CHARACTER(len=*) , INTENT(out) :: cd_cfg ! configuration name 506 506 INTEGER , INTENT(out) :: kk_cfg ! configuration resolution … … 536 536 ENDIF 537 537 ! 538 CALL iom_get( inum, 'jpiglo', ziglo ) ; jpiglo= INT( ziglo )539 CALL iom_get( inum, 'jpjglo', zjglo ) ; jpjglo= INT( zjglo )540 CALL iom_get( inum, 'jpkglo', zkglo ) ; jpkglo= INT( zkglo )541 CALL iom_get( inum, 'jperio', zperio ) ; jperio = INT( zperio )538 CALL iom_get( inum, 'jpiglo', ziglo ) ; kpi = INT( ziglo ) 539 CALL iom_get( inum, 'jpjglo', zjglo ) ; kpj = INT( zjglo ) 540 CALL iom_get( inum, 'jpkglo', zkglo ) ; kpk = INT( zkglo ) 541 CALL iom_get( inum, 'jperio', zperio ) ; kperio = INT( zperio ) 542 542 CALL iom_close( inum ) 543 543 ! 544 544 WRITE(ldtxt(ii),*) ' cn_cfg = ', TRIM(cd_cfg), ' nn_cfg = ', kk_cfg ; ii = ii+1 545 WRITE(ldtxt(ii),*) ' jpiglo = ', jpiglo; ii = ii+1546 WRITE(ldtxt(ii),*) ' jpjglo = ', jpjglo , ' jpkglo = ', jpkglo ; ii = ii+1547 WRITE(ldtxt(ii),*) ' jpkglo = ', jpkglo ; ii = ii+1548 WRITE(ldtxt(ii),*) ' type of global domain lateral boundary jperio = ', jperio ; ii = ii+1545 WRITE(ldtxt(ii),*) ' jpiglo = ', kpi ; ii = ii+1 546 WRITE(ldtxt(ii),*) ' jpjglo = ', kpj ; ii = ii+1 547 WRITE(ldtxt(ii),*) ' jpkglo = ', kpk ; ii = ii+1 548 WRITE(ldtxt(ii),*) ' type of global domain lateral boundary jperio = ', kperio ; ii = ii+1 549 549 ! 550 550 END SUBROUTINE domain_cfg -
branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r7200 r7246 275 275 ! !--------------------------! 276 276 IF( ln_read_cfg ) THEN ! Read sizes in domain configuration file 277 CALL domain_cfg ( cltxt2, clnam, cn_cfg, nn_cfg, jpiglo, jpjglo, jpkglo, jperio )277 CALL domain_cfg ( cltxt2, , cn_cfg, nn_cfg, jpiglo, jpjglo, jpkglo, jperio ) 278 278 ! 279 279 ELSE ! user-defined namelist
Note: See TracChangeset
for help on using the changeset viewer.
