Changeset 5906 for branches/2015

Timestamp:

2015-11-23T11:43:05+01:00 (8 years ago)

Author:

jchanut

Message:

correct wrong place for updating scale factors with time splitting

File:

• branches/2015/dev_r5847_MERCATOR9_solveur_simplification/NEMOGCM/NEMO/OPA_SRC/step.F90 (modified) (3 diffs)

branches/2015/dev_r5847_MERCATOR9_solveur_simplification/NEMOGCM/NEMO/OPA_SRC/step.F90

@@ -28 +28 @@
    !!            3.7  !  2014-10  (G. Madec)  LDF simplication 
    !!             -   !  2014-12  (G. Madec) remove KPP scheme
+   !!             -   !  2015-11  (J. Chanut) free surface simplification
    !!----------------------------------------------------------------------
 
@@ -214 +215 @@
                          CALL dyn_hpg       ( kstp )  ! horizontal gradient of Hydrostatic pressure
                          CALL dyn_spg       ( kstp )  ! surface pressure gradient
-                         CALL dyn_bfr       ( kstp )  ! bottom friction
-                         CALL dyn_zdf       ( kstp )  ! vertical diffusion
 
                                                       ! With split-explicit free surface, since now transports have been updated and ssha as well
@@ -223 +222 @@
                             CALL wzv        ( kstp )  ! now cross-level velocity 
       ENDIF
+
+                         CALL dyn_bfr       ( kstp )  ! bottom friction
+                         CALL dyn_zdf       ( kstp )  ! vertical diffusion
 
       !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>