source:
trunk/NEMO/LIM_SRC_2/par_ice_2.F90
@
2362
Last change on this file since 2362 was 1471, checked in by smasson, 15 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 | !!---------------------------------------------------------------------- | |
26 | !! NEMO/LIM 2.0, UCL-LOCEAN-IPSL (2008) | |
27 | !! $Id$ | |
28 | !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) | |
[3] | 29 | !!====================================================================== |
[821] | 30 | END MODULE par_ice_2 |
Note: See TracBrowser
for help on using the repository browser.