source:
branches/dev_002_LIM/NEMO/LIM_SRC_3/par_ice.F90
@
867
Last change on this file since 867 was 825, checked in by ctlod, 16 years ago | |
---|---|
File size: 1.3 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) | |
8 | !! $Header: /home/opalod/NEMOCVSROOT/NEMO/LIM_SRC/par_ice.F90,v 1.4 2005/03/27 18:34:42 opalod Exp $ | |
9 | !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt | |
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 | |
25 | ||
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.