Changeset 8237 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_ice.F90

Timestamp:

2017-06-28T17:10:27+02:00 (6 years ago)

Author:

clem

Message:

correct a problem of compilation when no ice

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_ice.F90 (modified) (2 diffs)

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_ice.F90

@@ -180 +180 @@
    !!----------------------------------------------------------------------
    USE in_out_manager   ! I/O manager
+
+   PUBLIC sbc_ice_alloc
+
    LOGICAL         , PUBLIC, PARAMETER ::   lk_lim2    = .FALSE.  !: no LIM-2 ice model
    LOGICAL         , PUBLIC, PARAMETER ::   lk_lim3    = .FALSE.  !: no LIM-3 ice model
@@ -193 +196 @@
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   ht_i, ht_s
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   topmelt, botmelt
+
+CONTAINS
+   INTEGER FUNCTION sbc_ice_alloc()
+      sbc_ice_alloc = 0
+   END FUNCTION sbc_ice_alloc
 #endif