Changeset 13204 for utils/tools/DOMAINcfg/src/dom_oce.F90
- Timestamp:
- 2020-07-02T10:38:35+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
utils/tools/DOMAINcfg/src/dom_oce.F90
r12414 r13204 41 41 REAL(wp), PUBLIC :: e3zps_min !: miminum thickness for partial steps (meters) 42 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) 43 44 44 45 INTEGER, PUBLIC :: nn_interp 45 CHARACTER(LEN= 132), PUBLIC :: cn_topo46 CHARACTER(LEN=200), PUBLIC :: cn_topo 46 47 CHARACTER(LEN=132), PUBLIC :: cn_bath 47 48 CHARACTER(LEN=132), PUBLIC :: cn_lon 48 49 CHARACTER(LEN=132), PUBLIC :: cn_lat 50 REAL(wp), PUBLIC :: rn_scale 49 51 50 52 LOGICAL, PUBLIC :: lzoom = .FALSE. !: zoom flag … … 93 95 !! ---------------------------- 94 96 ! !!* Namelist namdom : time & space domain * 95 LOGICAL , PUBLIC :: ln_linssh !: =T linear free surface ==>> model level are fixed in time96 97 LOGICAL , PUBLIC :: ln_meshmask !: =T create a mesh-mask file (mesh_mask.nc) 97 98 REAL(wp), PUBLIC :: rn_isfhmin !: threshold to discriminate grounded ice to floating ice … … 144 145 INTEGER , PUBLIC :: narea !: number for local area 145 146 INTEGER , PUBLIC :: nbondi, nbondj !: mark of i- and j-direction local boundaries 146 INTEGER, ALLOCATABLE, PUBLIC :: nbondi_bdy(:) !: mark i-direction local boundaries for BDY open boundaries147 INTEGER, ALLOCATABLE, PUBLIC :: nbondj_bdy(:) !: mark j-direction local boundaries for BDY open boundaries148 INTEGER, ALLOCATABLE, PUBLIC :: nbondi_bdy_b(:) !: mark i-direction of neighbours local boundaries for BDY open boundaries149 INTEGER, ALLOCATABLE, PUBLIC :: nbondj_bdy_b(:) !: mark j-direction of neighbours local boundaries for BDY open boundaries150 147 151 148 INTEGER, PUBLIC :: npolj !: north fold mark (0, 3 or 4) … … 279 276 #if defined key_agrif 280 277 LOGICAL, PUBLIC, PARAMETER :: lk_agrif = .TRUE. !: agrif flag 278 LOGICAL, PUBLIC :: lk_south, lk_north, lk_west, lk_east !: Child grid boundaries (interpolation or not) 281 279 #else 282 280 LOGICAL, PUBLIC, PARAMETER :: lk_agrif = .FALSE. !: agrif flag … … 326 324 & ff_f (jpi,jpj) , ff_t (jpi,jpj) , STAT=ierr(3) ) 327 325 ! 328 ALLOCATE( gdept_0(jpi,jpj,jpk) , gdepw_0(jpi,jpj,jpk) , STAT=ierr(4) ) 326 ! ALLOCATE( gdept_0(jpi,jpj,jpk) , gdepw_0(jpi,jpj,jpk) , gde3w_0(jpi,jpj,jpk) , & 327 ! & gdept_b(jpi,jpj,jpk) , gdepw_b(jpi,jpj,jpk) , & 328 ! & gdept_n(jpi,jpj,jpk) , gdepw_n(jpi,jpj,jpk) , gde3w_n(jpi,jpj,jpk) , STAT=ierr(4) ) 329 330 ALLOCATE( gdept_0(jpi,jpj,jpk) , gdepw_0(jpi,jpj,jpk), STAT=ierr(4) ) 331 332 ! 333 ! 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) , & 334 ! & e3t_b(jpi,jpj,jpk) , e3u_b(jpi,jpj,jpk) , e3v_b(jpi,jpj,jpk) , e3w_b(jpi,jpj,jpk) , & 335 ! & 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) , & 336 ! & e3t_a(jpi,jpj,jpk) , e3u_a(jpi,jpj,jpk) , e3v_a(jpi,jpj,jpk) , & 337 ! ! ! 338 ! & e3uw_0(jpi,jpj,jpk) , e3vw_0(jpi,jpj,jpk) , & 339 ! & e3uw_b(jpi,jpj,jpk) , e3vw_b(jpi,jpj,jpk) , & 340 ! & e3uw_n(jpi,jpj,jpk) , e3vw_n(jpi,jpj,jpk) , STAT=ierr(5) ) 341 342 ! 343 ! ALLOCATE( ht_0(jpi,jpj) , hu_0(jpi,jpj) , hv_0(jpi,jpj) , & 344 ! & hu_b(jpi,jpj) , hv_b(jpi,jpj) , r1_hu_b(jpi,jpj) , r1_hv_b(jpi,jpj) , & 345 ! & ht_n(jpi,jpj) , hu_n(jpi,jpj) , hv_n(jpi,jpj) , r1_hu_n(jpi,jpj) , r1_hv_n(jpi,jpj) , & 346 ! & hu_a(jpi,jpj) , hv_a(jpi,jpj) , r1_hu_a(jpi,jpj) , r1_hv_a(jpi,jpj) , STAT=ierr(6) ) 329 347 ! 330 348 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) , & 331 & e3uw_0(jpi,jpj,jpk) , e3vw_0(jpi,jpj,jpk) , STAT=ierr(5) ) 349 & e3uw_0(jpi,jpj,jpk) , e3vw_0(jpi,jpj,jpk) , STAT=ierr(5) ) 332 350 ! 333 351 ALLOCATE( gdept_1d(jpk) , e3tp (jpi,jpj), e3wp(jpi,jpj) ,gdepw_1d(jpk) , e3t_1d(jpk) , e3w_1d(jpk) , STAT=ierr(6) ) 334 352 ! 335 ALLOCATE( bathy(jpi,jpj),mbathy(jpi,jpj), tmask_i(jpi,jpj) , tmask_h(jpi,jpj) , & 353 ALLOCATE( bathy(jpi,jpj),mbathy(jpi,jpj), tmask_i(jpi,jpj) , tmask_h(jpi,jpj) , & 336 354 & ssmask (jpi,jpj) , ssumask(jpi,jpj) , ssvmask(jpi,jpj) , & 337 355 & mbkt (jpi,jpj) , mbku (jpi,jpj) , mbkv (jpi,jpj) , STAT=ierr(7) ) … … 340 358 & risfdep(jpi,jpj) , mikv(jpi,jpj) , mikf(jpi,jpj) , STAT=ierr(8) ) 341 359 ! 342 ALLOCATE( tmask(jpi,jpj,jpk) , umask(jpi,jpj,jpk) , & 360 ALLOCATE( tmask(jpi,jpj,jpk) , umask(jpi,jpj,jpk) , & 343 361 & vmask(jpi,jpj,jpk) , fmask(jpi,jpj,jpk) , wmask(jpi,jpj,jpk) , STAT=ierr(9) ) 344 362 ! … … 351 369 ALLOCATE( msk_opnsea (jpi,jpj), msk_csundef (jpi,jpj), & 352 370 & msk_csglo (jpi,jpj), msk_csrnf (jpi,jpj), msk_csemp (jpi,jpj), & 353 & msk_csgrpglo(jpi,jpj), msk_csgrprnf(jpi,jpj), msk_csgrpemp(jpi,jpj), STAT=ierr(11) ) 354 ! 371 & msk_csgrpglo(jpi,jpj), msk_csgrprnf(jpi,jpj), msk_csgrpemp(jpi,jpj), STAT=ierr(11) ) ! 355 372 dom_oce_alloc = MAXVAL(ierr) 356 373 !
Note: See TracChangeset
for help on using the changeset viewer.