source:
branches/dev_1784_doc/NEMO/LIM_SRC_3/par_ice.F90
@
2283
Last change on this file since 2283 was 1608, checked in by ctlod, 15 years ago | |
---|---|
|
|
File size: 1.2 KB |
Line | |
---|---|
1 | MODULE par_ice |
2 | !!====================================================================== |
3 | !! *** MODULE par_ice *** |
4 | !! LIM-3 Sea Ice : definition of parameters |
5 | !!====================================================================== |
6 | !! History : 3.0 ! 2003-08 (M. Vancoppenolle) LIM-3 |
7 | !!---------------------------------------------------------------------- |
8 | USE par_oce |
9 | |
10 | IMPLICIT NONE |
11 | PUBLIC |
12 | |
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 |
16 | |
17 | ! !!! ice mechanical redistribution |
18 | INTEGER, PUBLIC, PARAMETER :: jpl = 5 !: number of ice categories |
19 | INTEGER, PUBLIC, PARAMETER :: jpm = 1 !: number of ice types |
20 | |
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) |
25 | !!====================================================================== |
26 | END MODULE par_ice |
Note: See TracBrowser
for help on using the repository browser.