- Timestamp:
- 2015-02-06T17:02:20+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/2014_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/DOM/dom_oce.F90
r4488 r5066 10 10 !! 3.5 ! 2012 (S. Mocavero, I. Epicoco) Add arrays associated 11 11 !! to the optimization of BDY communications 12 !! 3.6.?! 2014 (H. Liu) Add arrays associated with Wetting and Drying 12 13 !!---------------------------------------------------------------------- 13 14 … … 262 263 INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: nicoa, njcoa !: ??? 263 264 #endif 265 266 !!---------------------------------------------------------------------- 267 !! critical depths,limiters,and masks for Wetting and Drying 268 !! --------------------------------------------------------------------- 269 270 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: wdmask !: u- and v- limiter 271 272 LOGICAL, PUBLIC, SAVE :: ln_wd !: key to turn on/off wetting/drying (T: on, F: off) 273 REAL(wp), PUBLIC, SAVE :: rn_wdmin1 !: minimum water depth on dried cells 274 REAL(wp), PUBLIC, SAVE :: rn_wdmin2 !: tolerrance of minimum water depth on dried cells 275 REAL(wp), PUBLIC, SAVE :: rn_wdld !: land elevation below which wetting/drying will be considered 276 INTEGER , PUBLIC, SAVE :: nn_wdit !: maximum number of iteration for W/D limiter 264 277 265 278 !!---------------------------------------------------------------------- … … 325 338 INTEGER FUNCTION dom_oce_alloc() 326 339 !!---------------------------------------------------------------------- 327 INTEGER, DIMENSION(1 1) :: ierr340 INTEGER, DIMENSION(12) :: ierr 328 341 !!---------------------------------------------------------------------- 329 342 ierr(:) = 0 … … 390 403 #endif 391 404 ! 405 IF(ln_wd) & 406 ALLOCATE( wdmask(jpi,jpj), STAT=ierr(12) ) 407 ! 392 408 dom_oce_alloc = MAXVAL(ierr) 393 409 !
Note: See TracChangeset
for help on using the changeset viewer.