Changeset 2068 for branches/DEV_r1837_MLF/NEMO/OPA_SRC/istate.F90

Timestamp:

2010-09-06T17:56:51+02:00 (14 years ago)

Author:

mlelod

Message:

ticket: #663 ensuring restartability and conservation

File:

• branches/DEV_r1837_MLF/NEMO/OPA_SRC/istate.F90 (modified) (2 diffs)

branches/DEV_r1837_MLF/NEMO/OPA_SRC/istate.F90

@@ -66 +66 @@
       !!----------------------------------------------------------------------
       USE eosbn2          ! eq. of state, Brunt Vaisala frequency (eos     routine)
+      ! - ML - needed for initialization of e3t_b
+      INTEGER  ::  jk     ! dummy loop indice
 
       IF(lwp) WRITE(numout,*)
@@ -128 +130 @@
             &                                  gtu, gsu, gru, &  ! of t, s, rd at the bottom ocean level
             &                                  gtv, gsv, grv )
-         
+      
+         ! - ML - sshn could be modified by istate_eel, so that initialization of fse3t_b is done here
+         IF( lk_vvl ) THEN
+            DO jk = 1, jpk
+               fse3t_b(:,:,jk) = fse3t_n(:,:,jk)
+            ENDDO
+         ENDIF
       ENDIF
       !