/[MITgcm]/MITgcm/pkg/thsice/THSICE_SIZE.h
ViewVC logotype

Contents of /MITgcm/pkg/thsice/THSICE_SIZE.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.4 - (show annotations) (download)
Mon Sep 17 21:58:15 2007 UTC (17 years ago) by jmc
Branch: MAIN
CVS Tags: checkpoint60, checkpoint61, checkpoint62, checkpoint59q, checkpoint59p, checkpoint59r, checkpoint59m, checkpoint59l, checkpoint59o, checkpoint59n, checkpoint59i, checkpoint59h, checkpoint59k, checkpoint59j, checkpoint62c, checkpoint62b, checkpoint62a, checkpoint62g, checkpoint62f, checkpoint62e, checkpoint62d, checkpoint62k, checkpoint62j, checkpoint62i, checkpoint62h, checkpoint62o, checkpoint62n, checkpoint62m, checkpoint62l, checkpoint61f, checkpoint61g, checkpoint61d, checkpoint61e, checkpoint61b, checkpoint61c, checkpoint61a, checkpoint61n, checkpoint61o, checkpoint61l, checkpoint61m, checkpoint61j, checkpoint61k, checkpoint61h, checkpoint61i, checkpoint61v, checkpoint61w, checkpoint61t, checkpoint61u, checkpoint61r, checkpoint61s, checkpoint61p, checkpoint61q, checkpoint61z, checkpoint61x, checkpoint61y
Changes since 1.3: +7 -2 lines
File MIME type: text/plain 
use continuous power-law function for partition of energy between lateral
melting/freezing and thinning/thickening ; old code using step function
still available with #undef THSICE_FRACEN_POWERLAW
1 C $Header: /u/gcmpack/MITgcm/pkg/thsice/THSICE_SIZE.h,v 1.3 2007/04/04 02:40:42 jmc Exp $
2 C $Name: $
3
4 #ifdef ALLOW_THSICE
5 C *==========================================================*
6 C | THSICE_SIZE.h Declare size of arrays for Therm_SeaIce pkg
7 C *==========================================================*
8
9 C.. number layers of ice
10 C nlyr :: maximum number of ice layers
11 INTEGER nlyr
12 PARAMETER (nlyr = 2)
13
14 C-- Energy distribution (lateral / thickening-thinning) using a power law:
15 C power-law exponent is set to: 1+2^powerLawExp2
16 INTEGER powerLawExp2
17 PARAMETER ( powerLawExp2 = 2 )
18
19 C-- identifiers for advected properties
20 INTEGER GAD_SI_FRAC, GAD_SI_HSNOW
21 INTEGER GAD_SI_HICE, GAD_SI_QICE1, GAD_SI_QICE2
22 PARAMETER ( GAD_SI_FRAC = -5,
23 & GAD_SI_HSNOW = -6,
24 & GAD_SI_HICE = -7,
25 & GAD_SI_QICE1 = -8,
26 & GAD_SI_QICE2 = -9 )
27
28 #endif /* ALLOW_THSICE */
29
30 CEH3 ;;; Local Variables: ***
31 CEH3 ;;; mode:fortran ***
32 CEH3 ;;; End: ***
  ViewVC Help
Powered by ViewVC 1.1.22