Changeset 7067 for branches/2015/dev_r6946_Offline_vvl/NEMOGCM/NEMO/OPA_SRC/step.F90

Timestamp:

2016-10-21T17:35:49+02:00 (8 years ago)

Author:

cetlod

Message:

Offline vvl phased with the head of 3.6 stable

File:

• branches/2015/dev_r6946_Offline_vvl/NEMOGCM/NEMO/OPA_SRC/step.F90 (modified) (2 diffs)

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

@@ -337 +337 @@
       IF( lk_vvl           )   CALL dom_vvl_sf_swp( kstp )  ! swap of vertical scale factors
       !
+      IF( ln_diahsb        )   CALL dia_hsb( kstp )         ! - ML - global conservation diagnostics
+
       IF( lrst_oce         )   CALL rst_write( kstp )       ! write output ocean restart file
       IF( ln_sto_eos       )   CALL sto_rst_write( kstp )   ! write restart file for stochastic parameters
@@ -351 +353 @@
       ENDIF
 #endif
-      IF( ln_diahsb        )   CALL dia_hsb( kstp )         ! - ML - global conservation diagnostics
-      IF( lk_diaobs  )         CALL dia_obs( kstp )         ! obs-minus-model (assimilation) diagnostics (call after dynamics update)
+      IF( lk_diaobs        )   CALL dia_obs( kstp )         ! obs-minus-model (assimilation) diagnostics (call after dynamics update)
 
       !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>