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

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

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

Revision 1.4 - (hide annotations) (download)
Mon Sep 17 21:58:15 2007 UTC (16 years, 8 months 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 jmc 1.4 C $Header: /u/gcmpack/MITgcm/pkg/thsice/THSICE_SIZE.h,v 1.3 2007/04/04 02:40:42 jmc Exp $
2 jmc 1.1 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 jmc 1.3 C.. number layers of ice
10 jmc 1.1 C nlyr :: maximum number of ice layers
11     INTEGER nlyr
12     PARAMETER (nlyr = 2)
13    
14 jmc 1.4 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 jmc 1.3 C-- identifiers for advected properties
20 jmc 1.4 INTEGER GAD_SI_FRAC, GAD_SI_HSNOW
21 jmc 1.3 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 jmc 1.1 #endif /* ALLOW_THSICE */
29    
30 edhill 1.2 CEH3 ;;; Local Variables: ***
31     CEH3 ;;; mode:fortran ***
32     CEH3 ;;; End: ***
  ViewVC Help
Powered by ViewVC 1.1.22