Changeset 88 for trunk/NEMO/LIM_SRC/par_ice.F90
- Timestamp:
- 2004-04-22T15:50:27+02:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC/par_ice.F90
r12 r88 7 7 USE par_oce 8 8 9 INTEGER, PARAMETER :: & !: 10 kmax = 1 , & !: ??? 11 nsmax = 2 !: ??? 9 IMPLICIT NONE 10 PUBLIC ! allows par_oce and par_kind to be known in ice modules 12 11 13 !!-- Parameter providing the number of vertical ice layers 14 15 INTEGER , PARAMETER :: & !: 16 nlayers = 2 , & !: ??? 17 nlayersp1 = nlayers + 1 !: ??? 12 INTEGER, PUBLIC, PARAMETER :: & !: 13 jpkmax = 1 , & !: ??? 14 jpsmax = 2 !: ??? 18 15 19 ! maximum number of variable for output 20 INTEGER, PARAMETER :: & !: 21 noumax = 40 !: ??? 22 23 ! Parameters for outputs to files "evolu" made by routine "informe" : ??? 24 INTEGER, PARAMETER :: & !: 25 ninfmx = 100 , & !: maximum number of key variables 26 nchinf = 5 , & !: ??? 27 nchsep = nchinf + 2 !: ??? 16 INTEGER, PUBLIC, PARAMETER :: & !: 17 jplayers = 2 , & !: number of vertical ice layers 18 jplayersp1 = jplayers + 1 !: ??? 28 19 29 20 !!======================================================================
Note: See TracChangeset
for help on using the changeset viewer.