Changeset 2319 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

Timestamp:

2010-10-27T15:18:11+02:00 (14 years ago)

Author:

cbricaud

Message:

put new EVP rheology lost during the merge

File:

• branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90 (modified) (2 diffs)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

@@ -53 +53 @@
    PUBLIC sbc_ice_lim_2 ! routine called by sbcmod.F90
 
-   CHARACTER(len=1) ::   cl_grid = 'B'     ! type of grid used in ice dynamics
-   
    !! * Substitutions
 #  include "domzgr_substitute.h90"
@@ -172 +170 @@
          !  Ice model step  !
          ! ---------------- !
-                                        CALL lim_rst_opn_2  ( kt )      ! Open Ice restart file
+         numit = numit + nn_fsbc                                             !Ice model time step
+
+                                        CALL lim_rst_opn_2  ( kt )           ! Open Ice restart file
 #if ! defined key_c1d
             ! Ice dynamics & transport (not in 1D case)