Changeset 1220 for trunk/NEMO/OPA_SRC/SBC/sbcice_lim.F90

Timestamp:

2008-10-28T16:08:34+01:00 (16 years ago)

Author:

smasson

Message:

small bugfix (associated to changeset:1218) related to the declaration of nn_ico_cpl

File:

• trunk/NEMO/OPA_SRC/SBC/sbcice_lim.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/SBC/sbcice_lim.F90

@@ -60 +60 @@
    
    CHARACTER(len=1) ::   cl_grid = 'C'     ! type of grid used in ice dynamics
-
-   INTEGER          ::   nn_ico_cpl = 0    ! ice-ocean coupling indicator:         !!gm   ===>> to be put in namelist
-   !                                       !  = 0   LIM-3 old case
-   !                                       !  = 1   stresses computed using now ocean velocity
-   !                                       !  = 2   combination of 0 and 1 cases
-
 
    !! * Substitutions