New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5066 for branches/UKMO/2014_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/DOM/dom_oce.F90 – NEMO

Ignore:
Timestamp:
2015-02-06T17:02:20+01:00 (9 years ago)
Author:
rfurner
Message:

added current state of wetting and drying code to test...note it does not work

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/2014_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/DOM/dom_oce.F90

    r4488 r5066  
    1010   !!            3.5  ! 2012     (S. Mocavero, I. Epicoco) Add arrays associated 
    1111   !!                             to the optimization of BDY communications 
     12   !!            3.6.?! 2014     (H. Liu) Add arrays associated with Wetting and Drying 
    1213   !!---------------------------------------------------------------------- 
    1314 
     
    262263   INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)  :: nicoa, njcoa       !: ??? 
    263264#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 
    264277 
    265278   !!---------------------------------------------------------------------- 
     
    325338   INTEGER FUNCTION dom_oce_alloc() 
    326339      !!---------------------------------------------------------------------- 
    327       INTEGER, DIMENSION(11) :: ierr 
     340      INTEGER, DIMENSION(12) :: ierr 
    328341      !!---------------------------------------------------------------------- 
    329342      ierr(:) = 0 
     
    390403#endif 
    391404      ! 
     405      IF(ln_wd) & 
     406      ALLOCATE( wdmask(jpi,jpj), STAT=ierr(12) ) 
     407      ! 
    392408      dom_oce_alloc = MAXVAL(ierr) 
    393409      ! 
Note: See TracChangeset for help on using the changeset viewer.