Changeset 10030 for NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/ICE/iceistate.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/ICE/iceistate.F90 (modified) (1 diff)

NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/ICE/iceistate.F90

@@ -421 +421 @@
             !
             !                             !* BEFORE fields : 
-            CALL ssh2e3_before               ! set:      hu , hv , r1_hu, r1_hv 
-            !                                    !  e3t, e3w, e3u, e3uw, e3v, e3vw
+            CALL ssh2e3_before               ! set:       hu,  hv, r1_hu, r1_hv 
+            !                                    !  e3t, e3u, e3v, e3w
             !
             !                             !* NOW fields : 
-            CALL ssh2e3_now                  ! set: ht , hu , hv , r1_hu, r1_hv
-            !                                !      e3t, e3w, e3u, e3uw, e3v, e3vw, e3f
+            CALL ssh2e3_now                  ! set:  ht,  hu,  hv, r1_hu, r1_hv
+            !                                !      e3t, e3u, e3v, e3w  , e3f
             !                                !      gdept_n, gdepw_n, gde3w_n
          ENDIF