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 6717 for branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/LIM_SRC_3/thd_ice.F90 – NEMO

Ignore:
Timestamp:
2016-06-17T12:00:46+02:00 (8 years ago)
Author:
gm
Message:

#1692 - branch SIMPLIF_2_usrdef: numerous improvement in the user defined interface

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/LIM_SRC_3/thd_ice.F90

    r6403 r6717  
    55   !!===================================================================== 
    66   !! History :  3.0  !  2002-11  (C. Ethe)  F90: Free form and module 
     7   !!---------------------------------------------------------------------- 
     8#if defined key_lim3 
     9   !!---------------------------------------------------------------------- 
     10   !!   'key_lim3'                                      LIM3 sea-ice model 
    711   !!---------------------------------------------------------------------- 
    812   USE in_out_manager ! I/O manager 
    … …  
    175179   END FUNCTION thd_ice_alloc 
    176180    
     181#else 
     182   !!---------------------------------------------------------------------- 
     183   !!   Default option :         Empty module          NO LIM sea-ice model 
     184   !!---------------------------------------------------------------------- 
     185CONTAINS 
     186   SUBROUTINE thd_ice_alloc          ! Empty routine 
     187   END SUBROUTINE thd_ice_alloc 
     188#endif 
     189  
    177190   !!====================================================================== 
    178191END MODULE thd_ice 
Note: See TracChangeset for help on using the changeset viewer.