Changeset 2077 for branches/devmercator2010/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

Timestamp:

2010-09-09T10:43:51+02:00 (14 years ago)

Author:

cbricaud

Message:

commit change from DEV_r1784_3DF

File:

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

branches/devmercator2010/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
@@ -54 +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"
@@ -171 +172 @@
          !  Ice model step  !
          ! ---------------- !
-         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_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 )