Changeset 3071 for branches/2011/dev_UKM0_2011/NEMOGCM/NEMO/OPA_SRC/DOM

Timestamp:

2011-11-09T17:54:30+01:00 (13 years ago)

Author:

rfurner

Message:

ticket #885 adding changes from branches/2011/dev_r2855_UKMO1_AMMCONFIG between r2855 and r3034

File:

• branches/2011/dev_UKM0_2011/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90 (modified) (1 diff)

branches/2011/dev_UKM0_2011/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

@@ -1495 +1495 @@
       !
 !!    H. Liu, POL. April 2009. Added for passing the scale check for the new released vvl code.
+      where (e3t   (:,:,:).eq.0.0)  e3t(:,:,:) = 1.0
+      where (e3u   (:,:,:).eq.0.0)  e3u(:,:,:) = 1.0
+      where (e3v   (:,:,:).eq.0.0)  e3v(:,:,:) = 1.0
+      where (e3f   (:,:,:).eq.0.0)  e3f(:,:,:) = 1.0
+      where (e3w   (:,:,:).eq.0.0)  e3w(:,:,:) = 1.0
+      where (e3uw  (:,:,:).eq.0.0)  e3uw(:,:,:) = 1.0
+      where (e3vw  (:,:,:).eq.0.0)  e3vw(:,:,:) = 1.0
+
 
       fsdept(:,:,:) = gdept (:,:,:)