Changeset 2148 for branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/istate.F90

Timestamp:

2010-10-04T15:53:42+02:00 (14 years ago)

Author:

cetlod

Message:

merge LOCEAN 2010 developments branches

File:

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

branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/istate.F90

@@ -67 +67 @@
       !! ** Purpose :   Initialization of the dynamics and tracer fields.
       !!----------------------------------------------------------------------
+      ! - ML - needed for initialization of e3t_b
+      INTEGER  ::  jk     ! dummy loop indice
 
       IF(lwp) WRITE(numout,*)
@@ -128 +130 @@
          IF( ln_zps .AND. .NOT. lk_c1d )   CALL zps_hde( nit000, jpts, tsb, gtsu, gtsv,  & ! zps: before hor. gradient
             &                                                          rhd, gru , grv  )   ! of t,s,rd at ocean bottom
-         !    
+         !   
+         ! - 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
       !