source:
trunk/NEMOGCM/NEMO/LIM_SRC_3/par_ice.F90
@
4873
| Last change on this file since 4873 was 4873, checked in by clem, 9 years ago | |
|---|---|
|
|
| File size: 1.1 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 |
| [4688] | 14 | INTEGER, PUBLIC, PARAMETER :: nlay_i = 5 !: number of ice layers |
| [1608] | 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 | |
| [825] | 19 | |
| [1608] | 20 | !!---------------------------------------------------------------------- |
| [2528] | 21 | !! NEMO/LIM3 3.3 , UCL - NEMO Consortium (2010) |
| [1608] | 22 | !! $Id$ |
| [2528] | 23 | !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) |
| [825] | 24 | !!====================================================================== |
| 25 | END MODULE par_ice |
Note: See TracBrowser
for help on using the repository browser.
