Changeset 7365 for branches/2016

Timestamp:

2016-11-29T11:33:10+01:00 (7 years ago)

Author:

clem

Message:

make the option Cd-Lupkes restartable

File:

• branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90 (modified) (2 diffs)

branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90

@@ -154 +154 @@
          ! utau_ice, vtau_ice : surface ice stress (U- & V-points)   [N/m2]
          !-----------------------------------------------------------------
+                                      CALL sbc_lim_bef         ! Store previous ice values
          SELECT CASE( kblk )
             CASE( jp_ana     )   ;    CALL ana_ice_tau                              ! analytic formulation            
@@ -174 +175 @@
          numit = numit + nn_fsbc                  ! Ice model time step
          !                                                   
-                                      CALL sbc_lim_bef         ! Store previous ice values
                                       CALL sbc_lim_diag0       ! set diag of mass, heat and salt fluxes to 0
                                       CALL lim_rst_opn( kt )   ! Open Ice restart file