Changeset 2046 for branches/dev_1784_EVP/NEMO/OPA_SRC

Timestamp:

2010-08-13T09:42:03+02:00 (14 years ago)

Author:

cbricaud

Message:

commit modifications to add EVP rheology in LIM3

File:

• branches/dev_1784_EVP/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90 (modified) (3 diffs)

branches/dev_1784_EVP/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

@@ -8 +8 @@
    !! History :  1.0   !  06-2006  (G. Madec)  from icestp_2.F90
    !!            3.0   !  08-2008  (S. Masson, E. .... ) coupled interface
+   !!            3.3   !  05-2009  (G.Garric) addition of the lim2_evp case
    !!----------------------------------------------------------------------
 #if defined key_lim2
@@ -53 +54 @@
    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 +171 @@
          !  Ice model step  !
          ! ---------------- !
-
-                                        CALL lim_rst_opn_2  ( kt )      ! Open Ice restart file
-         IF( .NOT. lk_c1d ) THEN                                        ! Ice dynamics & transport (not in 1D case)
+         numit = numit + nn_fsbc                                             ! Ice model time step
+
+                                        CALL lim_rst_opn_2  ( kt )           ! Open Ice restart file
+         IF( .NOT. lk_c1d ) THEN                                             ! Ice dynamics & transport (not in 1D case)
                                         CALL lim_dyn_2      ( kt )           ! Ice dynamics    ( rheology/dynamics )
                                         CALL lim_trp_2      ( kt )           ! Ice transport   ( Advection/diffusion )