Changeset 8741 for branches/2017/dev_r8624_AGRIF3_VVL/NEMOGCM/NEMO/OPA_SRC/step.F90

Timestamp:

2017-11-17T17:19:55+01:00 (6 years ago)

Author:

jchanut

Message:

AGRIF + vvl Main changes - #1965

File:

• branches/2017/dev_r8624_AGRIF3_VVL/NEMOGCM/NEMO/OPA_SRC/step.F90 (modified) (1 diff)

branches/2017/dev_r8624_AGRIF3_VVL/NEMOGCM/NEMO/OPA_SRC/step.F90

@@ -315 +315 @@
       IF( Agrif_NbStepint() == 0 ) THEN               ! AGRIF Update 
 !!jc in fact update is useless at last time step, but do it for global diagnostics
-                         CALL Agrif_Update_Tra()      ! Update active tracers
-                         CALL Agrif_Update_Dyn()      ! Update momentum
+         IF(.NOT.ln_linssh)  CALL Agrif_Update_vvl()      ! Update vertical scale factors  
+                             CALL Agrif_Update_Tra()      ! Update active tracers
+                             CALL Agrif_Update_Dyn()      ! Update momentum
+#if defined key_top
+                             CALL Agrif_Update_Trc()      ! Update passive tracers
+#endif
       ENDIF
 #endif