- Timestamp:
- 2015-12-04T17:05:58+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OPA_SRC/DOM/dom_oce.F90
r5866 r6004 46 46 LOGICAL , PUBLIC :: ln_crs !: Apply grid coarsening to dynamical model output or online passive tracers 47 47 48 !! Free surface parameters 49 !! ======================= 50 LOGICAL , PUBLIC :: ln_dynspg_exp !: Explicit free surface flag 51 LOGICAL , PUBLIC :: ln_dynspg_ts !: Split-Explicit free surface flag 52 48 53 !! Time splitting parameters 49 54 !! ========================= 50 55 LOGICAL, PUBLIC :: ln_bt_fw !: Forward integration of barotropic sub-stepping 51 56 LOGICAL, PUBLIC :: ln_bt_av !: Time averaging of barotropic variables 52 LOGICAL, PUBLIC :: ln_bt_ nn_auto!: Set number of barotropic iterations automatically57 LOGICAL, PUBLIC :: ln_bt_auto !: Set number of barotropic iterations automatically 53 58 INTEGER, PUBLIC :: nn_bt_flt !: Filter choice 54 59 INTEGER, PUBLIC :: nn_baro !: Number of barotropic iterations during one baroclinic step (rdt) 55 REAL(wp), PUBLIC :: rn_bt_cmax !: Maximum allowed courant number (used if ln_bt_ nn_auto=T)60 REAL(wp), PUBLIC :: rn_bt_cmax !: Maximum allowed courant number (used if ln_bt_auto=T) 56 61 57 62 !! Horizontal grid parameters for domhgr 58 63 !! ===================================== 59 INTEGER :: jphgr_msh !: type of horizontal mesh64 INTEGER :: jphgr_msh !: type of horizontal mesh 60 65 ! ! = 0 curvilinear coordinate on the sphere read in coordinate.nc 61 66 ! ! = 1 geographical mesh on the sphere with regular grid-spacing … … 64 69 ! ! = 4 Mercator grid with T/U point at the equator 65 70 66 REAL(wp) :: ppglam0 67 REAL(wp) :: ppgphi0 71 REAL(wp) :: ppglam0 !: longitude of first raw and column T-point (jphgr_msh = 1) 72 REAL(wp) :: ppgphi0 !: latitude of first raw and column T-point (jphgr_msh = 1) 68 73 ! ! used for Coriolis & Beta parameters (jphgr_msh = 2 or 3) 69 REAL(wp) :: ppe1_deg 70 REAL(wp) :: ppe2_deg 71 REAL(wp) :: ppe1_m 72 REAL(wp) :: ppe2_m 74 REAL(wp) :: ppe1_deg !: zonal grid-spacing (degrees) 75 REAL(wp) :: ppe2_deg !: meridional grid-spacing (degrees) 76 REAL(wp) :: ppe1_m !: zonal grid-spacing (degrees) 77 REAL(wp) :: ppe2_m !: meridional grid-spacing (degrees) 73 78 74 79 !! Vertical grid parameter for domzgr 75 80 !! ================================== 76 REAL(wp) :: ppsur 77 REAL(wp) :: ppa0 78 REAL(wp) :: ppa1 79 REAL(wp) :: ppkth 80 REAL(wp) :: ppacr 81 REAL(wp) :: ppsur !: ORCA r4, r2 and r05 coefficients 82 REAL(wp) :: ppa0 !: (default coefficients) 83 REAL(wp) :: ppa1 !: 84 REAL(wp) :: ppkth !: 85 REAL(wp) :: ppacr !: 81 86 ! 82 87 ! If both ppa0 ppa1 and ppsur are specified to 0, then 83 88 ! they are computed from ppdzmin, pphmax , ppkth, ppacr in dom_zgr 84 REAL(wp) :: ppdzmin 85 REAL(wp) :: pphmax 89 REAL(wp) :: ppdzmin !: Minimum vertical spacing 90 REAL(wp) :: pphmax !: Maximum depth 86 91 ! 87 LOGICAL :: ldbletanh 88 REAL(wp) :: ppa2 89 REAL(wp) :: ppkth2 90 REAL(wp) :: ppacr2 92 LOGICAL :: ldbletanh !: Use/do not use double tanf function for vertical coordinates 93 REAL(wp) :: ppa2 !: Double tanh function parameters 94 REAL(wp) :: ppkth2 !: 95 REAL(wp) :: ppacr2 !: 91 96 92 97 ! !! old non-DOCTOR names still used in the model … … 102 107 REAL(wp), PUBLIC :: rdth !: depth variation of tracer step 103 108 104 ! !!! associated variables 105 INTEGER , PUBLIC :: neuler !: restart euler forward option (0=Euler) 106 REAL(wp), PUBLIC :: atfp1 !: asselin time filter coeff. (atfp1= 1-2*atfp) 109 ! !!! associated variables 110 INTEGER , PUBLIC :: neuler !: restart euler forward option (0=Euler) 111 REAL(wp), PUBLIC :: atfp1 !: asselin time filter coeff. (atfp1= 1-2*atfp) 112 107 113 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: rdttra !: vertical profile of tracer time step 108 114 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: r2dtra !: = 2*rdttra except at nit000 (=rdttra) if neuler=0 … … 211 217 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: e3tp , e3wp !: ocean bottom level thickness at T and W points 212 218 219 !!gm This should be removed from here.... ==>>> only used in domzgr at initialization phase 213 220 !! s-coordinate and hybrid z-s-coordinate 214 221 !! =----------------======--------------- … … 224 231 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: hift , hifu !: and quasi-uniform spacing t--u points (m) 225 232 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: rx1 !: Maximum grid stiffness ratio 233 !!gm end 226 234 227 235 !!---------------------------------------------------------------------- … … 229 237 !! --------------------------------------------------------------------- 230 238 INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: mbathy !: number of ocean level (=0, 1, ... , jpk-1) 231 INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: mbkt !: vertical index of the bottom last T- ocean level 232 INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: mbku, mbkv !: vertical index of the bottom last U- and W- ocean level 233 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: bathy !: ocean depth (meters) 239 INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: mbkt, mbku, mbkv !: vertical index of the bottom last T-, U- & V ocean level 240 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: bathy !: ocean depth (meters) 234 241 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: tmask_i, umask_i, vmask_i, fmask_i !: interior domain T-point mask 235 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: bmask !: land/ocean mask of barotropic stream function236 242 237 243 INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: misfdep !: top first ocean level (ISF) … … 364 370 ALLOCATE( mbathy(jpi,jpj) , bathy(jpi,jpj) , & 365 371 & tmask_i(jpi,jpj) , umask_i(jpi,jpj), vmask_i(jpi,jpj), fmask_i(jpi,jpj), & 366 & bmask (jpi,jpj) , &367 372 & mbkt (jpi,jpj) , mbku (jpi,jpj) , mbkv(jpi,jpj) , STAT=ierr(9) ) 368 373
Note: See TracChangeset
for help on using the changeset viewer.