Changeset 10030 for NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/DOM/iscplrst.F90

Timestamp:

2018-08-03T10:18:16+02:00 (6 years ago)

Author:

gm

Message:

#1911 (ENHANCE-04): RK3 branch - step II.3 remove e3uw_$ e3vw_$, except e3.w_0 and use only after e3 in dyn/trazdf

File:

• NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/DOM/iscplrst.F90 (modified) (2 diffs)

NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/DOM/iscplrst.F90

@@ -102 +102 @@
       e3v_b (:,:,:) = e3v_n (:,:,:)
       !
-      e3uw_b (:,:,:) = e3uw_n (:,:,:)
-      e3vw_b (:,:,:) = e3vw_n (:,:,:)
       gdept_b(:,:,:) = gdept_n(:,:,:)
       gdepw_b(:,:,:) = gdepw_n(:,:,:)
@@ -206 +204 @@
          CALL ssh2e3_now                  ! set: ht , hu , hv , r1_hu, r1_hv
          !                                !      e3t, e3u , e3v, e3f         (from 1 to jpkm1)
-         !                                !      e3w, e3uw, e3vw             (from 1 to jpk  )
-         !                                !      gdept, gdepw, gde3w         (from 1 to jpk  )
+         !                                !      e3w, gdept, gdepw, gde3w    (from 1 to jpk  )
          !