New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 8237 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO – NEMO

Ignore:
Timestamp:
2017-06-28T17:10:27+02:00 (7 years ago)
Author:
clem
Message:

correct a problem of compilation when no ice

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_ice.F90

    r6416 r8237  
    180180   !!---------------------------------------------------------------------- 
    181181   USE in_out_manager   ! I/O manager 
     182 
     183   PUBLIC sbc_ice_alloc 
     184 
    182185   LOGICAL         , PUBLIC, PARAMETER ::   lk_lim2    = .FALSE.  !: no LIM-2 ice model 
    183186   LOGICAL         , PUBLIC, PARAMETER ::   lk_lim3    = .FALSE.  !: no LIM-3 ice model 
     
    193196   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   ht_i, ht_s 
    194197   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   topmelt, botmelt 
     198 
     199CONTAINS 
     200   INTEGER FUNCTION sbc_ice_alloc() 
     201      sbc_ice_alloc = 0 
     202   END FUNCTION sbc_ice_alloc 
    195203#endif 
    196204 
Note: See TracChangeset for help on using the changeset viewer.