source:
branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/NEMO/LIM_SRC_2/par_ice_2.F90
@
6401
Last change on this file since 6401 was 6401, checked in by timgraham, 8 years ago | |
---|---|
|
|
File size: 1.4 KB |
Rev | Line | |
---|---|---|
[821] | 1 | MODULE par_ice_2 |
[3] | 2 | !!====================================================================== |
[821] | 3 | !! *** MODULE par_ice_2 *** |
[3] | 4 | !! Sea-Ice model : definition of the parameters |
5 | !!====================================================================== | |
[1234] | 6 | #if defined key_lim2 |
[247] | 7 | !!---------------------------------------------------------------------- |
[1234] | 8 | !! 'key_lim2' LIM-2 sea-ice model |
[247] | 9 | !!---------------------------------------------------------------------- |
[3] | 10 | USE par_oce |
11 | ||
[88] | 12 | IMPLICIT NONE |
13 | PUBLIC ! allows par_oce and par_kind to be known in ice modules | |
[3] | 14 | |
[1234] | 15 | INTEGER, PUBLIC, PARAMETER :: jpl = 1 !: number of ice categories (only 1 in LIM-2) |
[3] | 16 | |
[1234] | 17 | INTEGER, PUBLIC, PARAMETER :: jplayers = 2 !: number of vertical ice layers |
18 | INTEGER, PUBLIC, PARAMETER :: jplayersp1 = jplayers + 1 !: ??? | |
[3] | 19 | |
[1234] | 20 | #else |
21 | !!---------------------------------------------------------------------- | |
22 | !! Default option No LIM-2 sea-ice model | |
23 | !!---------------------------------------------------------------------- | |
24 | #endif | |
25 | !!---------------------------------------------------------------------- | |
[2528] | 26 | !! NEMO/LIM2 3.3 , UCL - NEMO Consortium (2010) |
[1234] | 27 | !! $Id$ |
[2528] | 28 | !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) |
[3] | 29 | !!====================================================================== |
[821] | 30 | END MODULE par_ice_2 |
Note: See TracBrowser
for help on using the repository browser.