source:
trunk/NEMOGCM/NEMO/LIM_SRC_3/par_ice.F90
@
4354
Last change on this file since 4354 was 2528, checked in by rblod, 14 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 | !!---------------------------------------------------------------------- |
[2528] | 22 | !! NEMO/LIM3 3.3 , UCL - NEMO Consortium (2010) |
[1608] | 23 | !! $Id$ |
[2528] | 24 | !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) |
[825] | 25 | !!====================================================================== |
26 | END MODULE par_ice |
Note: See TracBrowser
for help on using the repository browser.