| 1 | MODULE dom_oce |
|---|
| 2 | !!====================================================================== |
|---|
| 3 | !! *** MODULE dom_oce *** |
|---|
| 4 | !! |
|---|
| 5 | !! ** Purpose : Define in memory all the ocean space domain variables |
|---|
| 6 | !!====================================================================== |
|---|
| 7 | !! History : 1.0 ! 2005-10 (A. Beckmann, G. Madec) reactivate s-coordinate |
|---|
| 8 | !! 3.3 ! 2010-11 (G. Madec) add mbk. arrays associated to the deepest ocean level |
|---|
| 9 | !! 3.4 ! 2011-01 (A. R. Porter, STFC Daresbury) dynamical allocation |
|---|
| 10 | !! 3.5 ! 2012 (S. Mocavero, I. Epicoco) Add arrays associated |
|---|
| 11 | !! to the optimization of BDY communications |
|---|
| 12 | !! 3.7 ! 2015-11 (G. Madec) introduce surface and scale factor ratio |
|---|
| 13 | !! - ! 2015-11 (G. Madec, A. Coward) time varying zgr by default |
|---|
| 14 | !!---------------------------------------------------------------------- |
|---|
| 15 | |
|---|
| 16 | !!---------------------------------------------------------------------- |
|---|
| 17 | !! Agrif_Root : dummy function used when lk_agrif=F |
|---|
| 18 | !! Agrif_CFixed : dummy function used when lk_agrif=F |
|---|
| 19 | !! dom_oce_alloc : dynamical allocation of dom_oce arrays |
|---|
| 20 | !!---------------------------------------------------------------------- |
|---|
| 21 | USE par_oce ! ocean parameters |
|---|
| 22 | |
|---|
| 23 | IMPLICIT NONE |
|---|
| 24 | PUBLIC ! allows the acces to par_oce when dom_oce is used (exception to coding rules) |
|---|
| 25 | |
|---|
| 26 | PUBLIC dom_oce_alloc ! Called from nemogcm.F90 |
|---|
| 27 | |
|---|
| 28 | !! time & space domain namelist |
|---|
| 29 | !! ---------------------------- |
|---|
| 30 | INTEGER , PUBLIC :: nmsh !: = 1 create a mesh-mask file |
|---|
| 31 | ! !!* Namelist namdom : time & space domain * |
|---|
| 32 | INTEGER , PUBLIC :: nn_bathy !: = 0/1/2 ,compute/read the bathymetry file |
|---|
| 33 | REAL(wp), PUBLIC :: rn_bathy !: depth of flat bottom (active if nn_bathy=0; if =0 depth=jpkm1) |
|---|
| 34 | REAL(wp), PUBLIC :: rn_hmin !: minimum ocean depth (>0) or minimum number of ocean levels (<0) |
|---|
| 35 | REAL(wp), PUBLIC :: rn_e3zps_min !: miminum thickness for partial steps (meters) |
|---|
| 36 | REAL(wp), PUBLIC :: rn_e3zps_rat !: minimum thickness ration for partial steps |
|---|
| 37 | INTEGER , PUBLIC :: nn_msh !: = 1 create a mesh-mask file |
|---|
| 38 | |
|---|
| 39 | INTEGER , PUBLIC :: ntopo !: = 0/1 ,compute/read the bathymetry file |
|---|
| 40 | INTEGER, PUBLIC :: nperio !: type of lateral boundary condition |
|---|
| 41 | REAL(wp), PUBLIC :: e3zps_min !: miminum thickness for partial steps (meters) |
|---|
| 42 | REAL(wp), PUBLIC :: e3zps_rat !: minimum thickness ration for partial steps |
|---|
| 43 | INTEGER , PUBLIC :: nn_closea !: =0 suppress closed sea/lake from the ORCA domain or not (=1) |
|---|
| 44 | |
|---|
| 45 | INTEGER, PUBLIC :: nn_interp |
|---|
| 46 | CHARACTER(LEN=200), PUBLIC :: cn_topo |
|---|
| 47 | CHARACTER(LEN=200), PUBLIC :: cn_topolvl |
|---|
| 48 | CHARACTER(LEN=200), PUBLIC :: cn_fisfd |
|---|
| 49 | CHARACTER(LEN=132), PUBLIC :: cn_bath |
|---|
| 50 | CHARACTER(LEN=132), PUBLIC :: cn_bathlvl |
|---|
| 51 | CHARACTER(LEN=132), PUBLIC :: cn_visfd |
|---|
| 52 | CHARACTER(LEN=132), PUBLIC :: cn_fcoord |
|---|
| 53 | CHARACTER(LEN=132), PUBLIC :: cn_lon |
|---|
| 54 | CHARACTER(LEN=132), PUBLIC :: cn_lat |
|---|
| 55 | REAL(wp), PUBLIC :: rn_scale |
|---|
| 56 | |
|---|
| 57 | LOGICAL, PUBLIC :: lzoom = .FALSE. !: zoom flag |
|---|
| 58 | LOGICAL, PUBLIC :: lzoom_e = .FALSE. !: East zoom type flag |
|---|
| 59 | LOGICAL, PUBLIC :: lzoom_w = .FALSE. !: West zoom type flag |
|---|
| 60 | LOGICAL, PUBLIC :: lzoom_s = .FALSE. !: South zoom type flag |
|---|
| 61 | LOGICAL, PUBLIC :: lzoom_n = .FALSE. !: North zoom type flag |
|---|
| 62 | |
|---|
| 63 | LOGICAL, PUBLIC :: ln_domclo = .FALSE. |
|---|
| 64 | |
|---|
| 65 | INTEGER :: jphgr_msh !: type of horizontal mesh |
|---|
| 66 | ! ! = 0 curvilinear coordinate on the sphere read in coordinate.nc |
|---|
| 67 | ! ! = 1 geographical mesh on the sphere with regular grid-spacing |
|---|
| 68 | ! ! = 2 f-plane with regular grid-spacing |
|---|
| 69 | ! ! = 3 beta-plane with regular grid-spacing |
|---|
| 70 | ! ! = 4 Mercator grid with T/U point at the equator |
|---|
| 71 | |
|---|
| 72 | REAL(wp) :: ppglam0 !: longitude of first raw and column T-point (jphgr_msh = 1) |
|---|
| 73 | REAL(wp) :: ppgphi0 !: latitude of first raw and column T-point (jphgr_msh = 1) |
|---|
| 74 | ! ! used for Coriolis & Beta parameters (jphgr_msh = 2 or 3) |
|---|
| 75 | REAL(wp) :: ppe1_deg !: zonal grid-spacing (degrees) |
|---|
| 76 | REAL(wp) :: ppe2_deg !: meridional grid-spacing (degrees) |
|---|
| 77 | REAL(wp) :: ppe1_m !: zonal grid-spacing (degrees) |
|---|
| 78 | REAL(wp) :: ppe2_m !: meridional grid-spacing (degrees) |
|---|
| 79 | |
|---|
| 80 | !! Vertical grid parameter for domzgr |
|---|
| 81 | !! ================================== |
|---|
| 82 | REAL(wp) :: ppsur !: ORCA r4, r2 and r05 coefficients |
|---|
| 83 | REAL(wp) :: ppa0 !: (default coefficients) |
|---|
| 84 | REAL(wp) :: ppa1 !: |
|---|
| 85 | REAL(wp) :: ppkth !: |
|---|
| 86 | REAL(wp) :: ppacr !: |
|---|
| 87 | ! |
|---|
| 88 | ! If both ppa0 ppa1 and ppsur are specified to 0, then |
|---|
| 89 | ! they are computed from ppdzmin, pphmax , ppkth, ppacr in dom_zgr |
|---|
| 90 | REAL(wp) :: ppdzmin !: Minimum vertical spacing |
|---|
| 91 | REAL(wp) :: pphmax !: Maximum depth |
|---|
| 92 | ! |
|---|
| 93 | LOGICAL :: ldbletanh !: Use/do not use double tanf function for vertical coordinates |
|---|
| 94 | REAL(wp) :: ppa2 !: Double tanh function parameters |
|---|
| 95 | REAL(wp) :: ppkth2 !: |
|---|
| 96 | REAL(wp) :: ppacr2 !: |
|---|
| 97 | |
|---|
| 98 | !!---------------------------------------------------------------------- |
|---|
| 99 | !! time & space domain namelist |
|---|
| 100 | !! ---------------------------- |
|---|
| 101 | ! !!* Namelist namdom : time & space domain * |
|---|
| 102 | LOGICAL , PUBLIC :: ln_meshmask !: =T create a mesh-mask file (mesh_mask.nc) |
|---|
| 103 | REAL(wp), PUBLIC :: rn_isfhmin !: threshold to discriminate grounded ice to floating ice |
|---|
| 104 | REAL(wp), PUBLIC :: rn_rdt !: time step for the dynamics and tracer |
|---|
| 105 | REAL(wp), PUBLIC :: rn_atfp !: asselin time filter parameter |
|---|
| 106 | INTEGER , PUBLIC :: nn_euler !: =0 start with forward time step or not (=1) |
|---|
| 107 | LOGICAL , PUBLIC :: ln_iscpl !: coupling with ice sheet |
|---|
| 108 | LOGICAL , PUBLIC :: ln_crs !: Apply grid coarsening to dynamical model output or online passive tracers |
|---|
| 109 | |
|---|
| 110 | !! Free surface parameters |
|---|
| 111 | !! ======================= |
|---|
| 112 | LOGICAL , PUBLIC :: ln_dynspg_exp !: Explicit free surface flag |
|---|
| 113 | LOGICAL , PUBLIC :: ln_dynspg_ts !: Split-Explicit free surface flag |
|---|
| 114 | |
|---|
| 115 | !! Time splitting parameters |
|---|
| 116 | !! ========================= |
|---|
| 117 | LOGICAL, PUBLIC :: ln_bt_fw !: Forward integration of barotropic sub-stepping |
|---|
| 118 | LOGICAL, PUBLIC :: ln_bt_av !: Time averaging of barotropic variables |
|---|
| 119 | LOGICAL, PUBLIC :: ln_bt_auto !: Set number of barotropic iterations automatically |
|---|
| 120 | INTEGER, PUBLIC :: nn_bt_flt !: Filter choice |
|---|
| 121 | INTEGER, PUBLIC :: nn_baro !: Number of barotropic iterations during one baroclinic step (rdt) |
|---|
| 122 | REAL(wp), PUBLIC :: rn_bt_cmax !: Maximum allowed courant number (used if ln_bt_auto=T) |
|---|
| 123 | REAL(wp), PUBLIC :: rn_bt_alpha !: Time stepping diffusion parameter |
|---|
| 124 | |
|---|
| 125 | |
|---|
| 126 | ! !! old non-DOCTOR names still used in the model |
|---|
| 127 | REAL(wp), PUBLIC :: atfp !: asselin time filter parameter |
|---|
| 128 | REAL(wp), PUBLIC :: rdt !: time step for the dynamics and tracer |
|---|
| 129 | |
|---|
| 130 | ! !!! associated variables |
|---|
| 131 | INTEGER , PUBLIC :: neuler !: restart euler forward option (0=Euler) |
|---|
| 132 | REAL(wp), PUBLIC :: r2dt !: = 2*rdt except at nit000 (=rdt) if neuler=0 |
|---|
| 133 | |
|---|
| 134 | !!---------------------------------------------------------------------- |
|---|
| 135 | !! space domain parameters |
|---|
| 136 | !!---------------------------------------------------------------------- |
|---|
| 137 | INTEGER, PUBLIC :: jperio !: Global domain lateral boundary type (between 0 and 7) |
|---|
| 138 | ! ! = 0 closed ; = 1 cyclic East-West |
|---|
| 139 | ! ! = 2 cyclic North-South ; = 3 North fold T-point pivot |
|---|
| 140 | ! ! = 4 cyclic East-West AND North fold T-point pivot |
|---|
| 141 | ! ! = 5 North fold F-point pivot |
|---|
| 142 | ! ! = 6 cyclic East-West AND North fold F-point pivot |
|---|
| 143 | ! ! = 7 bi-cyclic East-West AND North-South |
|---|
| 144 | LOGICAL, PUBLIC :: l_Iperio, l_Jperio ! should we explicitely take care I/J periodicity |
|---|
| 145 | |
|---|
| 146 | ! ! domain MPP decomposition parameters |
|---|
| 147 | INTEGER , PUBLIC :: nimpp, njmpp !: i- & j-indexes for mpp-subdomain left bottom |
|---|
| 148 | INTEGER , PUBLIC :: nproc !: number for local processor |
|---|
| 149 | INTEGER , PUBLIC :: narea !: number for local area |
|---|
| 150 | INTEGER , PUBLIC :: nbondi, nbondj !: mark of i- and j-direction local boundaries |
|---|
| 151 | INTEGER, ALLOCATABLE, PUBLIC :: nbondi_bdy(:) !: mark i-direction local boundaries for BDY open boundaries |
|---|
| 152 | INTEGER, ALLOCATABLE, PUBLIC :: nbondj_bdy(:) !: mark j-direction local boundaries for BDY open boundaries |
|---|
| 153 | INTEGER, ALLOCATABLE, PUBLIC :: nbondi_bdy_b(:) !: mark i-direction of neighbours local boundaries for BDY open boundaries |
|---|
| 154 | INTEGER, ALLOCATABLE, PUBLIC :: nbondj_bdy_b(:) !: mark j-direction of neighbours local boundaries for BDY open boundaries |
|---|
| 155 | |
|---|
| 156 | INTEGER, PUBLIC :: npolj !: north fold mark (0, 3 or 4) |
|---|
| 157 | INTEGER, PUBLIC :: noea, nowe !: index of the local neighboring processors in |
|---|
| 158 | INTEGER, PUBLIC :: noso, nono !: east, west, south and north directions |
|---|
| 159 | INTEGER, PUBLIC :: nidom !: ??? |
|---|
| 160 | |
|---|
| 161 | INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: mig !: local ==> global domain, including halos (jpiglo), i-index |
|---|
| 162 | INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: mjg !: local ==> global domain, including halos (jpjglo), j-index |
|---|
| 163 | INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: mig0 !: local ==> global domain, excluding halos (Ni0glo), i-index |
|---|
| 164 | INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: mjg0 !: local ==> global domain, excluding halos (Nj0glo), j-index |
|---|
| 165 | INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: mig0_oldcmp !: local ==> global domain, excluding halos (Ni0glo), i-index |
|---|
| 166 | INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: mjg0_oldcmp !: local ==> global domain, excluding halos (Nj0glo), j-index |
|---|
| 167 | INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: mi0, mi1 !: global, including halos (jpiglo) ==> local domain i-index |
|---|
| 168 | ! !: (mi0=1 and mi1=0 if global index not in local domain) |
|---|
| 169 | INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: mj0, mj1 !: global, including halos (jpjglo) ==> local domain j-index |
|---|
| 170 | ! !: (mj0=1 and mj1=0 if global index not in local domain) |
|---|
| 171 | INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: nimppt, njmppt !: i-, j-indexes for each processor |
|---|
| 172 | INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: ibonit, ibonjt !: i-, j- processor neighbour existence |
|---|
| 173 | INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: jpiall, jpjall !: dimensions of all subdomain |
|---|
| 174 | INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: nis0all, njs0all !: first, last indoor index for all i-subdomain |
|---|
| 175 | INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: nie0all, nje0all !: first, last indoor index for all j-subdomain |
|---|
| 176 | INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: nfimpp, nfproc, nfjpi |
|---|
| 177 | |
|---|
| 178 | |
|---|
| 179 | !!---------------------------------------------------------------------- |
|---|
| 180 | !! horizontal curvilinear coordinate and scale factors |
|---|
| 181 | !! --------------------------------------------------------------------- |
|---|
| 182 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE , DIMENSION(:,:) :: glamt , glamu, glamv , glamf !: longitude at t, u, v, f-points [degree] |
|---|
| 183 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE , DIMENSION(:,:) :: gphit , gphiu, gphiv , gphif !: latitude at t, u, v, f-points [degree] |
|---|
| 184 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE, TARGET, DIMENSION(:,:) :: e1t , e2t , r1_e1t, r1_e2t !: t-point horizontal scale factors [m] |
|---|
| 185 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE, TARGET, DIMENSION(:,:) :: e1u , e2u , r1_e1u, r1_e2u !: horizontal scale factors at u-point [m] |
|---|
| 186 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE, TARGET, DIMENSION(:,:) :: e1v , e2v , r1_e1v, r1_e2v !: horizontal scale factors at v-point [m] |
|---|
| 187 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE, TARGET, DIMENSION(:,:) :: e1f , e2f , r1_e1f, r1_e2f !: horizontal scale factors at f-point [m] |
|---|
| 188 | ! |
|---|
| 189 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE , DIMENSION(:,:) :: e1e2t , r1_e1e2t !: associated metrics at t-point |
|---|
| 190 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE , DIMENSION(:,:) :: e1e2u , r1_e1e2u , e2_e1u !: associated metrics at u-point |
|---|
| 191 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE , DIMENSION(:,:) :: e1e2v , r1_e1e2v , e1_e2v !: associated metrics at v-point |
|---|
| 192 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE , DIMENSION(:,:) :: e1e2f , r1_e1e2f !: associated metrics at f-point |
|---|
| 193 | ! |
|---|
| 194 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE , DIMENSION(:,:) :: ff_f , ff_t !: Coriolis factor at f- & t-points [1/s] |
|---|
| 195 | |
|---|
| 196 | !! s-coordinate and hybrid z-s-coordinate |
|---|
| 197 | !! =----------------======--------------- |
|---|
| 198 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: gsigt, gsigw !: model level depth coefficient at t-, w-levels (analytic) |
|---|
| 199 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: gsi3w !: model level depth coefficient at w-level (sum of gsigw) |
|---|
| 200 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: esigt, esigw !: vertical scale factor coef. at t-, w-levels |
|---|
| 201 | |
|---|
| 202 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: hbatv , hbatf !: ocean depth at the vertical of v--f |
|---|
| 203 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: hbatt , hbatu !: t--u points (m) |
|---|
| 204 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: scosrf, scobot !: ocean surface and bottom topographies |
|---|
| 205 | ! ! (if deviating from coordinate surfaces in HYBRID) |
|---|
| 206 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: hifv , hiff !: interface depth between stretching at v--f |
|---|
| 207 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: hift , hifu !: and quasi-uniform spacing t--u points (m) |
|---|
| 208 | !!gm end |
|---|
| 209 | |
|---|
| 210 | !!---------------------------------------------------------------------- |
|---|
| 211 | !! vertical coordinate and scale factors |
|---|
| 212 | !! --------------------------------------------------------------------- |
|---|
| 213 | LOGICAL, PUBLIC :: ln_zco !: z-coordinate - full step |
|---|
| 214 | LOGICAL, PUBLIC :: ln_zps !: z-coordinate - partial step |
|---|
| 215 | LOGICAL, PUBLIC :: ln_sco !: s-coordinate or hybrid z-s coordinate |
|---|
| 216 | LOGICAL, PUBLIC :: ln_isfcav !: presence of ISF |
|---|
| 217 | ! |
|---|
| 218 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: e3t_0, e3u_0 , e3v_0 , e3f_0 !: t-,u-,v-,f-vert. scale factor [m] |
|---|
| 219 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: e3w_0, e3uw_0, e3vw_0 !: w-,uw-,vw-vert. scale factor [m] |
|---|
| 220 | ! |
|---|
| 221 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: gdept_0 !: t- depth [m] |
|---|
| 222 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: gdepw_0 !: w- depth [m] |
|---|
| 223 | ! |
|---|
| 224 | INTEGER, PUBLIC :: nla10 !: deepest W level Above ~10m (nlb10 - 1) |
|---|
| 225 | INTEGER, PUBLIC :: nlb10 !: shallowest W level Bellow ~10m (nla10 + 1) |
|---|
| 226 | ! |
|---|
| 227 | !! 1D reference vertical coordinate |
|---|
| 228 | !! =-----------------====------ |
|---|
| 229 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: gdept_1d, gdepw_1d !: reference depth of t- and w-points (m) |
|---|
| 230 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: e3t_1d , e3w_1d !: reference vertical scale factors at T- and W-pts (m) |
|---|
| 231 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: e3tp , e3wp !: ocean bottom level thickness at T and W points |
|---|
| 232 | |
|---|
| 233 | !!---------------------------------------------------------------------- |
|---|
| 234 | !! masks, top and bottom ocean point position |
|---|
| 235 | !! --------------------------------------------------------------------- |
|---|
| 236 | !!gm Proposition of new name for top/bottom vertical indices |
|---|
| 237 | ! INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: mtk_t, mtk_u, mtk_v !: top first wet T-, U-, V-, F-level (ISF) |
|---|
| 238 | ! INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: mbk_t, mbk_u, mbk_v !: bottom last wet T-, U- and V-level |
|---|
| 239 | !!gm |
|---|
| 240 | INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: mbathy !: number of ocean level (=0, 1, ... , jpk-1) |
|---|
| 241 | REAL(wp) , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: bathy !: number of ocean level (=0, 1, ... , jpk-1) |
|---|
| 242 | INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: mbkt, mbku, mbkv !: bottom last wet T-, U- and V-level |
|---|
| 243 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: tmask_i !: interior domain T-point mask |
|---|
| 244 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: tmask_h !: internal domain T-point mask (Figure 8.5 NEMO book) |
|---|
| 245 | |
|---|
| 246 | INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: misfdep !: top first ocean level (ISF) |
|---|
| 247 | INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: mikt, miku, mikv, mikf !: top first wet T-, U-, V-, F-level (ISF) |
|---|
| 248 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: risfdep !: Iceshelf draft (ISF) |
|---|
| 249 | |
|---|
| 250 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: ssmask, ssumask, ssvmask !: surface mask at T-,U-, V- and F-pts |
|---|
| 251 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:), TARGET :: tmask, umask, vmask, fmask !: land/ocean mask at T-, U-, V- and F-pts |
|---|
| 252 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:), TARGET :: wmask !: land/ocean mask at W- pts |
|---|
| 253 | |
|---|
| 254 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: msk_opnsea , msk_csundef !: open ocean mask, closed sea mask (all of them) |
|---|
| 255 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: msk_csglo , msk_csrnf , msk_csemp !: closed sea masks |
|---|
| 256 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: msk_csgrpglo, msk_csgrprnf, msk_csgrpemp !: closed sea masks |
|---|
| 257 | |
|---|
| 258 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: tpol, fpol !: north fold mask (jperio= 3 or 4) |
|---|
| 259 | |
|---|
| 260 | !!---------------------------------------------------------------------- |
|---|
| 261 | !! calendar variables |
|---|
| 262 | !! --------------------------------------------------------------------- |
|---|
| 263 | INTEGER , PUBLIC :: nyear !: current year |
|---|
| 264 | INTEGER , PUBLIC :: nmonth !: current month |
|---|
| 265 | INTEGER , PUBLIC :: nday !: current day of the month |
|---|
| 266 | INTEGER , PUBLIC :: nhour !: current hour |
|---|
| 267 | INTEGER , PUBLIC :: nminute !: current minute |
|---|
| 268 | INTEGER , PUBLIC :: ndastp !: time step date in yyyymmdd format |
|---|
| 269 | INTEGER , PUBLIC :: nday_year !: current day counted from jan 1st of the current year |
|---|
| 270 | INTEGER , PUBLIC :: nsec_year !: current time step counted in second since 00h jan 1st of the current year |
|---|
| 271 | INTEGER , PUBLIC :: nsec_month !: current time step counted in second since 00h 1st day of the current month |
|---|
| 272 | INTEGER , PUBLIC :: nsec_week !: current time step counted in second since 00h of last monday |
|---|
| 273 | INTEGER , PUBLIC :: nsec_day !: current time step counted in second since 00h of the current day |
|---|
| 274 | REAL(wp), PUBLIC :: fjulday !: current julian day |
|---|
| 275 | REAL(wp), PUBLIC :: fjulstartyear !: first day of the current year in julian days |
|---|
| 276 | REAL(wp), PUBLIC :: adatrj !: number of elapsed days since the begining of the whole simulation |
|---|
| 277 | ! !: (cumulative duration of previous runs that may have used different time-step size) |
|---|
| 278 | INTEGER , PUBLIC, DIMENSION(0: 2) :: nyear_len !: length in days of the previous/current/next year |
|---|
| 279 | INTEGER , PUBLIC, DIMENSION(0:13) :: nmonth_len !: length in days of the months of the current year |
|---|
| 280 | INTEGER , PUBLIC, DIMENSION(0:13) :: nmonth_half !: second since Jan 1st 0h of the current year and the half of the months |
|---|
| 281 | INTEGER , PUBLIC, DIMENSION(0:13) :: nmonth_end !: second since Jan 1st 0h of the current year and the end of the months |
|---|
| 282 | INTEGER , PUBLIC :: nsec1jan000 !: second since Jan 1st 0h of nit000 year and Jan 1st 0h the current year |
|---|
| 283 | |
|---|
| 284 | !!---------------------------------------------------------------------- |
|---|
| 285 | !! agrif domain |
|---|
| 286 | !!---------------------------------------------------------------------- |
|---|
| 287 | #if defined key_agrif |
|---|
| 288 | LOGICAL, PUBLIC, PARAMETER :: lk_agrif = .TRUE. !: agrif flag |
|---|
| 289 | LOGICAL, PUBLIC :: lk_south, lk_north, lk_west, lk_east !: Child grid boundaries (interpolation or not) |
|---|
| 290 | #else |
|---|
| 291 | LOGICAL, PUBLIC, PARAMETER :: lk_agrif = .FALSE. !: agrif flag |
|---|
| 292 | #endif |
|---|
| 293 | |
|---|
| 294 | !!---------------------------------------------------------------------- |
|---|
| 295 | !! NEMO/OCE 4.0 , NEMO Consortium (2018) |
|---|
| 296 | !! $Id: dom_oce.F90 10068 2018-08-28 14:09:04Z nicolasmartin $ |
|---|
| 297 | !! Software governed by the CeCILL license (see ./LICENSE) |
|---|
| 298 | !!---------------------------------------------------------------------- |
|---|
| 299 | CONTAINS |
|---|
| 300 | |
|---|
| 301 | #if ! defined key_agrif |
|---|
| 302 | !!---------------------------------------------------------------------- |
|---|
| 303 | !! NOT 'key_agrif' dummy function No AGRIF zoom |
|---|
| 304 | !!---------------------------------------------------------------------- |
|---|
| 305 | LOGICAL FUNCTION Agrif_Root() |
|---|
| 306 | Agrif_Root = .TRUE. |
|---|
| 307 | END FUNCTION Agrif_Root |
|---|
| 308 | |
|---|
| 309 | INTEGER FUNCTION Agrif_Fixed() |
|---|
| 310 | Agrif_Fixed = 0 |
|---|
| 311 | END FUNCTION Agrif_Fixed |
|---|
| 312 | |
|---|
| 313 | CHARACTER(len=3) FUNCTION Agrif_CFixed() |
|---|
| 314 | Agrif_CFixed = '0' |
|---|
| 315 | END FUNCTION Agrif_CFixed |
|---|
| 316 | #endif |
|---|
| 317 | |
|---|
| 318 | INTEGER FUNCTION dom_oce_alloc() |
|---|
| 319 | !!---------------------------------------------------------------------- |
|---|
| 320 | INTEGER, DIMENSION(11) :: ierr |
|---|
| 321 | !!---------------------------------------------------------------------- |
|---|
| 322 | ierr(:) = 0 |
|---|
| 323 | ! |
|---|
| 324 | ALLOCATE( mig(jpi), mjg(jpj), mig0(jpi), mjg0(jpj), mig0_oldcmp(jpi), mjg0_oldcmp(jpj),& |
|---|
| 325 | STAT=ierr(1) ) |
|---|
| 326 | ! |
|---|
| 327 | ALLOCATE( mi0(jpiglo) , mi1 (jpiglo), mj0(jpjglo) , mj1 (jpjglo) , & |
|---|
| 328 | & tpol(jpiglo) , fpol(jpiglo) , STAT=ierr(2) ) |
|---|
| 329 | ! |
|---|
| 330 | ALLOCATE( glamt(jpi,jpj) , glamu(jpi,jpj) , glamv(jpi,jpj) , glamf(jpi,jpj) , & |
|---|
| 331 | & gphit(jpi,jpj) , gphiu(jpi,jpj) , gphiv(jpi,jpj) , gphif(jpi,jpj) , & |
|---|
| 332 | & e1t (jpi,jpj) , e2t (jpi,jpj) , r1_e1t(jpi,jpj) , r1_e2t(jpi,jpj) , & |
|---|
| 333 | & e1u (jpi,jpj) , e2u (jpi,jpj) , r1_e1u(jpi,jpj) , r1_e2u(jpi,jpj) , & |
|---|
| 334 | & e1v (jpi,jpj) , e2v (jpi,jpj) , r1_e1v(jpi,jpj) , r1_e2v(jpi,jpj) , & |
|---|
| 335 | & e1f (jpi,jpj) , e2f (jpi,jpj) , r1_e1f(jpi,jpj) , r1_e2f(jpi,jpj) , & |
|---|
| 336 | & e1e2t(jpi,jpj) , r1_e1e2t(jpi,jpj) , & |
|---|
| 337 | & e1e2u(jpi,jpj) , r1_e1e2u(jpi,jpj) , e2_e1u(jpi,jpj) , & |
|---|
| 338 | & e1e2v(jpi,jpj) , r1_e1e2v(jpi,jpj) , e1_e2v(jpi,jpj) , & |
|---|
| 339 | & e1e2f(jpi,jpj) , r1_e1e2f(jpi,jpj) , & |
|---|
| 340 | & ff_f (jpi,jpj) , ff_t (jpi,jpj) , STAT=ierr(3) ) |
|---|
| 341 | ! |
|---|
| 342 | ! ALLOCATE( gdept_0(jpi,jpj,jpk) , gdepw_0(jpi,jpj,jpk) , gde3w_0(jpi,jpj,jpk) , & |
|---|
| 343 | ! & gdept_b(jpi,jpj,jpk) , gdepw_b(jpi,jpj,jpk) , & |
|---|
| 344 | ! & gdept_n(jpi,jpj,jpk) , gdepw_n(jpi,jpj,jpk) , gde3w_n(jpi,jpj,jpk) , STAT=ierr(4) ) |
|---|
| 345 | |
|---|
| 346 | ALLOCATE( gdept_0(jpi,jpj,jpk) , gdepw_0(jpi,jpj,jpk), STAT=ierr(4) ) |
|---|
| 347 | |
|---|
| 348 | ! |
|---|
| 349 | ! ALLOCATE( e3t_0(jpi,jpj,jpk) , e3u_0(jpi,jpj,jpk) , e3v_0(jpi,jpj,jpk) , e3f_0(jpi,jpj,jpk) , e3w_0(jpi,jpj,jpk) , & |
|---|
| 350 | ! & e3t_b(jpi,jpj,jpk) , e3u_b(jpi,jpj,jpk) , e3v_b(jpi,jpj,jpk) , e3w_b(jpi,jpj,jpk) , & |
|---|
| 351 | ! & e3t_n(jpi,jpj,jpk) , e3u_n(jpi,jpj,jpk) , e3v_n(jpi,jpj,jpk) , e3f_n(jpi,jpj,jpk) , e3w_n(jpi,jpj,jpk) , & |
|---|
| 352 | ! & e3t_a(jpi,jpj,jpk) , e3u_a(jpi,jpj,jpk) , e3v_a(jpi,jpj,jpk) , & |
|---|
| 353 | ! ! ! |
|---|
| 354 | ! & e3uw_0(jpi,jpj,jpk) , e3vw_0(jpi,jpj,jpk) , & |
|---|
| 355 | ! & e3uw_b(jpi,jpj,jpk) , e3vw_b(jpi,jpj,jpk) , & |
|---|
| 356 | ! & e3uw_n(jpi,jpj,jpk) , e3vw_n(jpi,jpj,jpk) , STAT=ierr(5) ) |
|---|
| 357 | |
|---|
| 358 | ! |
|---|
| 359 | ! ALLOCATE( ht_0(jpi,jpj) , hu_0(jpi,jpj) , hv_0(jpi,jpj) , & |
|---|
| 360 | ! & hu_b(jpi,jpj) , hv_b(jpi,jpj) , r1_hu_b(jpi,jpj) , r1_hv_b(jpi,jpj) , & |
|---|
| 361 | ! & ht_n(jpi,jpj) , hu_n(jpi,jpj) , hv_n(jpi,jpj) , r1_hu_n(jpi,jpj) , r1_hv_n(jpi,jpj) , & |
|---|
| 362 | ! & hu_a(jpi,jpj) , hv_a(jpi,jpj) , r1_hu_a(jpi,jpj) , r1_hv_a(jpi,jpj) , STAT=ierr(6) ) |
|---|
| 363 | ! |
|---|
| 364 | ALLOCATE( e3t_0 (jpi,jpj,jpk) , e3u_0 (jpi,jpj,jpk) , e3v_0(jpi,jpj,jpk) , e3f_0(jpi,jpj,jpk) , e3w_0(jpi,jpj,jpk) , & |
|---|
| 365 | & e3uw_0(jpi,jpj,jpk) , e3vw_0(jpi,jpj,jpk) , STAT=ierr(5) ) |
|---|
| 366 | ! |
|---|
| 367 | ALLOCATE( gdept_1d(jpk) , e3tp (jpi,jpj), e3wp(jpi,jpj) ,gdepw_1d(jpk) , e3t_1d(jpk) , e3w_1d(jpk) , STAT=ierr(6) ) |
|---|
| 368 | ! |
|---|
| 369 | ALLOCATE( bathy(jpi,jpj),mbathy(jpi,jpj), tmask_i(jpi,jpj) , tmask_h(jpi,jpj) , & |
|---|
| 370 | & ssmask (jpi,jpj) , ssumask(jpi,jpj) , ssvmask(jpi,jpj) , & |
|---|
| 371 | & mbkt (jpi,jpj) , mbku (jpi,jpj) , mbkv (jpi,jpj) , STAT=ierr(7) ) |
|---|
| 372 | ! |
|---|
| 373 | ALLOCATE( misfdep(jpi,jpj) , mikt(jpi,jpj) , miku(jpi,jpj) , & |
|---|
| 374 | & risfdep(jpi,jpj) , mikv(jpi,jpj) , mikf(jpi,jpj) , STAT=ierr(8) ) |
|---|
| 375 | ! |
|---|
| 376 | ALLOCATE( tmask(jpi,jpj,jpk) , umask(jpi,jpj,jpk) , & |
|---|
| 377 | & vmask(jpi,jpj,jpk) , fmask(jpi,jpj,jpk) , wmask(jpi,jpj,jpk) , STAT=ierr(9) ) |
|---|
| 378 | ! |
|---|
| 379 | ALLOCATE( hbatv (jpi,jpj) , hbatf (jpi,jpj) , & |
|---|
| 380 | & hbatt (jpi,jpj) , hbatu (jpi,jpj) , & |
|---|
| 381 | & scosrf(jpi,jpj) , scobot(jpi,jpj) , & |
|---|
| 382 | & hifv (jpi,jpj) , hiff (jpi,jpj) , & |
|---|
| 383 | & hift (jpi,jpj) , hifu (jpi,jpj) , STAT=ierr(10) ) |
|---|
| 384 | |
|---|
| 385 | ALLOCATE( msk_opnsea (jpi,jpj), msk_csundef (jpi,jpj), & |
|---|
| 386 | & msk_csglo (jpi,jpj), msk_csrnf (jpi,jpj), msk_csemp (jpi,jpj), & |
|---|
| 387 | & msk_csgrpglo(jpi,jpj), msk_csgrprnf(jpi,jpj), msk_csgrpemp(jpi,jpj), STAT=ierr(11) ) ! |
|---|
| 388 | dom_oce_alloc = MAXVAL(ierr) |
|---|
| 389 | ! |
|---|
| 390 | END FUNCTION dom_oce_alloc |
|---|
| 391 | |
|---|
| 392 | !!====================================================================== |
|---|
| 393 | END MODULE dom_oce |
|---|
