Changeset 1465 for trunk/NEMO/OPA_SRC/SBC/sbc_ice.F90

Timestamp:

2009-06-11T09:29:51+02:00 (15 years ago)

Author:

smasson

Message:

supress ice_oce module, see ticket:448

File:

• trunk/NEMO/OPA_SRC/SBC/sbc_ice.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/SBC/sbc_ice.F90

@@ -11 +11 @@
    !!----------------------------------------------------------------------
    USE par_oce          ! ocean parameters
-#if defined key_lim3
+# if defined key_lim3
    USE par_ice          ! ice parameters
-#endif
-#if defined key_lim2
+# endif
+# if defined key_lim2
    USE par_ice_2        ! ice parameters
-#endif
+# endif
 
    IMPLICIT NONE
    PRIVATE
+
+# if defined  key_lim2
+   LOGICAL         , PUBLIC, PARAMETER ::   lk_lim2        = .TRUE.    !: LIM-2 ice model
+   LOGICAL         , PUBLIC, PARAMETER ::   lk_lim3        = .FALSE.   !: no LIM-3
+   CHARACTER(len=1), PUBLIC            ::   cice_grid      = 'B'       !: 'B'-grid ice-velocity
+# endif
+# if defined  key_lim3
+   LOGICAL         , PUBLIC, PARAMETER ::   lk_lim2        = .FALSE.   !: no LIM-2
+   LOGICAL         , PUBLIC, PARAMETER ::   lk_lim3        = .TRUE.    !: LIM-3 ice model
+   CHARACTER(len=1), PUBLIC            ::   cice_grid      = 'C'       !: 'C'-grid ice-velocity
+# endif
 
    REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpl) ::   qns_ice   !: non solar heat flux over ice  [W/m2]
@@ -35 +46 @@
    REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   emp_ice     !: solid freshwater budget over ice: sublivation - snow
 
+# if defined key_lim3
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   tatm_ice    !: air temperature
+# endif
+
 #else
+
    !!----------------------------------------------------------------------
-   !!   Empty module                                   NO LIM sea-ice model
+   !!   Default option                      NO LIM 2.0 or 3.0 sea-ice model
    !!----------------------------------------------------------------------
+   LOGICAL         , PUBLIC, PARAMETER ::   lk_lim2        = .FALSE.  !: no LIM-2 ice model
+   LOGICAL         , PUBLIC, PARAMETER ::   lk_lim3        = .FALSE.  !: no LIM-3 ice model
+   CHARACTER(len=1), PUBLIC            ::   cice_grid      = '-'      !: no grid ice-velocity
+
 #endif