source:
trunk/NEMO/LIM_SRC_3/par_ice.F90
@
2082
Last change on this file since 2082 was 1608, checked in by ctlod, 15 years ago | |
---|---|
|
|
File size: 1.2 KB |
Rev | Line | |
---|---|---|
[825] | 1 | MODULE par_ice |
2 | !!====================================================================== | |
3 | !! *** MODULE par_ice *** | |
[1608] | 4 | !! LIM-3 Sea Ice : definition of parameters |
[825] | 5 | !!====================================================================== |
[1608] | 6 | !! History : 3.0 ! 2003-08 (M. Vancoppenolle) LIM-3 |
[825] | 7 | !!---------------------------------------------------------------------- |
8 | USE par_oce | |
9 | ||
10 | IMPLICIT NONE | |
[1608] | 11 | PUBLIC |
[825] | 12 | |
[1608] | 13 | ! !!! ice thermodynamics |
14 | INTEGER, PUBLIC, PARAMETER :: jkmax = 6 !: maximum number of ice layers | |
15 | INTEGER, PUBLIC, PARAMETER :: nlay_s = 1 !: number of snow layers | |
[921] | 16 | |
[1608] | 17 | ! !!! ice mechanical redistribution |
18 | INTEGER, PUBLIC, PARAMETER :: jpl = 5 !: number of ice categories | |
19 | INTEGER, PUBLIC, PARAMETER :: jpm = 1 !: number of ice types | |
[825] | 20 | |
[1608] | 21 | !!---------------------------------------------------------------------- |
22 | !! NEMO/LIM 3.2, UCL-ASTR-LOCEAN-IPSL (2009) | |
23 | !! $Id$ | |
24 | !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) | |
[825] | 25 | !!====================================================================== |
26 | END MODULE par_ice |
Note: See TracBrowser
for help on using the repository browser.