Changeset 2787 for trunk/NEMOGCM/NEMO/OFF_SRC

Timestamp:

2011-06-27T11:54:00+02:00 (13 years ago)

Author:

cetlod

Message:

Bug correction in NEMO/OFFLINE, see ticket #841

File:

• trunk/NEMOGCM/NEMO/OFF_SRC/domrea.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OFF_SRC/domrea.F90

@@ -254 +254 @@
             CALL iom_get( inum4, jpdom_unknown, 'e3t_0'  , e3t_0   )
             CALL iom_get( inum4, jpdom_unknown, 'e3w_0'  , e3w_0   )
+            DO jk = 1, jpk
+               e3t  (:,:,jk) = e3t_0(jk)                                     ! set to the ref. factors
+               e3u  (:,:,jk) = e3t_0(jk)
+               e3v  (:,:,jk) = e3t_0(jk)
+               e3w  (:,:,jk) = e3w_0(jk)
+               gdept(:,:,jk) = gdept_0(jk)
+               gdepw(:,:,jk) = gdepw_0(jk)
+            END DO
          ENDIF