source:
trunk/NEMO/LIM_SRC_3/par_ice.F90
@
1061
Last change on this file since 1061 was 921, checked in by rblod, 16 years ago | |
---|---|
File size: 1.2 KB |
Rev | Line | |
---|---|---|
[825] | 1 | MODULE par_ice |
2 | !!====================================================================== | |
3 | !! *** MODULE par_ice *** | |
4 | !! Sea-Ice model : definition of the parameters | |
5 | !!====================================================================== | |
6 | !!---------------------------------------------------------------------- | |
7 | !! LIM 2.0, UCL-LOCEAN-IPSL (2005) | |
[888] | 8 | !! $ Id: $ |
9 | !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) | |
[825] | 10 | !!---------------------------------------------------------------------- |
11 | !! * Modules used | |
12 | USE par_oce | |
13 | ||
14 | IMPLICIT NONE | |
15 | PUBLIC ! allows par_oce and par_kind to be known in ice modules | |
16 | ||
17 | INTEGER, PARAMETER :: & !: | |
18 | jpkmax = 1 , & !: ??? | |
19 | jpsmax = 2 !: ??? | |
20 | ||
21 | !ICE THERMODYNAMICS | |
22 | INTEGER , PARAMETER :: & !: | |
23 | jkmax = 6 , & !: maximum number of ice layers | |
24 | nlay_s = 1 !: number of snow layers | |
[921] | 25 | |
[825] | 26 | !ICE MECHANICAL REDISTRIBUTION |
27 | INTEGER , PARAMETER :: & !: | |
28 | jpl = 5, & !: number of ice categories | |
29 | jpm = 1 !: number of ice types | |
30 | ||
31 | !!====================================================================== | |
32 | END MODULE par_ice |
Note: See TracBrowser
for help on using the repository browser.