Context Navigation

par_ice_2.F90 @ 1063

Last change on this file since 1063 was 888, checked in by ctlod, 16 years ago
merge dev_001_SBC branche with the trunk to include the New Surface Module package, see ticket: #113
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 1.1 KB

Rev	Line
[821]	1	MODULE par_ice_2
	2	#if defined key_lim2
[3]	3	!!======================================================================
[821]	4	!! * MODULE par_ice_2 *
[3]	5	!! Sea-Ice model : definition of the parameters
	6	!!======================================================================
[247]	7	!!----------------------------------------------------------------------
	8	!! LIM 2.0, UCL-LOCEAN-IPSL (2005)
[888]	9	!! $ Id: $
[247]	10	!! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
	11	!!----------------------------------------------------------------------
[3]	12	!! * Modules used
	13	USE par_oce
	14
[88]	15	IMPLICIT NONE
	16	PUBLIC ! allows par_oce and par_kind to be known in ice modules
[3]	17
[88]	18	INTEGER, PUBLIC, PARAMETER :: & !:
	19	jpkmax = 1 , & !: ???
	20	jpsmax = 2 !: ???
[3]	21
[88]	22	INTEGER, PUBLIC, PARAMETER :: & !:
	23	jplayers = 2 , & !: number of vertical ice layers
	24	jplayersp1 = jplayers + 1 !: ???
[3]	25
	26	!!======================================================================
[821]	27	#endif
	28	END MODULE par_ice_2

Note: See TracBrowser for help on using the repository browser.