Changeset 3282 for branches/2011/dev_NEMO_MERGE_2011

Timestamp:

2012-01-27T14:08:19+01:00 (12 years ago)

Author:

rblod

Message:

Fix for zco and vvl, see ticket #913

File:

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

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

@@ -774 +774 @@
       !
       DO jk = 1, jpk
-         fsdept(:,:,jk) = gdept_0(jk)
-         fsdepw(:,:,jk) = gdepw_0(jk)
-         fsde3w(:,:,jk) = gdepw_0(jk)
-         fse3t (:,:,jk) = e3t_0(jk)
-         fse3u (:,:,jk) = e3t_0(jk)
-         fse3v (:,:,jk) = e3t_0(jk)
-         fse3f (:,:,jk) = e3t_0(jk)
-         fse3w (:,:,jk) = e3w_0(jk)
-         fse3uw(:,:,jk) = e3w_0(jk)
-         fse3vw(:,:,jk) = e3w_0(jk)
+            gdept(:,:,jk) = gdept_0(jk)
+            gdepw(:,:,jk) = gdepw_0(jk)
+            gdep3w(:,:,jk) = gdepw_0(jk)
+            e3t (:,:,jk) = e3t_0(jk)
+            e3u (:,:,jk) = e3t_0(jk)
+            e3v (:,:,jk) = e3t_0(jk)
+            e3f (:,:,jk) = e3t_0(jk)
+            e3w (:,:,jk) = e3w_0(jk)
+            e3uw(:,:,jk) = e3w_0(jk)
+            e3vw(:,:,jk) = e3w_0(jk)
       END DO
       !