Changeset 11287 for NEMO/trunk/src/OCE

Timestamp:

2019-07-18T11:54:49+02:00 (5 years ago)

Author:

jchanut

Message:

#2291, Adaptive vertical advection: change order of calls with split explicit free surface

File:

• NEMO/trunk/src/OCE/step.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/step.F90

@@ -198 +198 @@
                             CALL div_hor    ( kstp )              ! Horizontal divergence  (2nd call in time-split case)
          IF(.NOT.ln_linssh) CALL dom_vvl_sf_nxt( kstp, kcall=2 )  ! after vertical scale factors (update depth average component)
+      ENDIF
+                         CALL dyn_zdf       ( kstp )  ! vertical diffusion
+
+      IF( ln_dynspg_ts ) THEN                         
                             CALL wzv        ( kstp )              ! now cross-level velocity 
          IF( ln_zad_Aimp )  CALL wAimp      ( kstp )  ! Adaptive-implicit vertical advection partitioning
       ENDIF
-      
-                         CALL dyn_zdf       ( kstp )  ! vertical diffusion
 
       !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>