Changeset 5066 for branches/UKMO/2014_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

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:

• branches/UKMO/2014_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90 (modified) (1 diff)

branches/UKMO/2014_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

@@ -86 +86 @@
                              CALL dom_zgr      ! Vertical mesh and bathymetry
                              CALL dom_msk      ! Masks
-      IF( ln_sco )           CALL dom_stiff    ! Maximum stiffness ratio/hydrostatic consistency
+      IF( ln_sco.AND.(.NOT.ln_wd) ) &
+                         &   CALL dom_stiff    ! Maximum stiffness ratio/hydrostatic consistency
       !
       ht_0(:,:) = 0.0_wp                       ! Reference ocean depth at T-points