1 |
dimitri |
1.3 |
C $Header: /u/gcmpack/MITgcm/pkg/icefront/ICEFRONT.h,v 1.2 2010/01/22 00:51:54 dimitri Exp $ |
2 |
dimitri |
1.1 |
C $Name: $ |
3 |
|
|
|
4 |
|
|
#ifdef ALLOW_ICEFRONT |
5 |
|
|
|
6 |
|
|
CBOP |
7 |
|
|
C !ROUTINE: ICEFRONT.h |
8 |
|
|
|
9 |
|
|
C !DESCRIPTION: \bv |
10 |
|
|
C /==========================================================\ |
11 |
|
|
C | ICEFRONT.h | |
12 |
|
|
C | o Basic header thermodnynamic shelf ice package. | |
13 |
|
|
C | Contains all ICEFRONT field declarations. | |
14 |
|
|
C \==========================================================/ |
15 |
|
|
|
16 |
|
|
C----------------------------------------------------------------------- |
17 |
|
|
C |
18 |
|
|
C-- Constants that can be set in data.icefront |
19 |
|
|
C ICEFRONTtopoFile - File containing the topography of the |
20 |
|
|
C icefront draught (unit=m) |
21 |
|
|
C ICEFRONTheatTransCoeff - heat transfer coefficient that determines |
22 |
|
|
C heat flux into icefront (m/s) |
23 |
|
|
C ICEFRONTsaltTransCoeff - salinity transfer coefficient that determines |
24 |
|
|
C salt flux into icefront (m/s) |
25 |
|
|
C ICEFRONTlatentHeat - latent heat of fusion (J/kg) |
26 |
|
|
C useISOMIPTD - use simple ISOMIP thermodynamics |
27 |
|
|
C ICEFRONTconserve - use conservative form of H&O-thermodynamics |
28 |
|
|
C following Jenkins et al. (2001, JPO) |
29 |
|
|
C |
30 |
|
|
C-- Fields |
31 |
|
|
C R_icefront - icefront topography [m] |
32 |
|
|
C icefrontHeatFlux - upward heat flux [W/m^2] |
33 |
|
|
C icefrontFreshWaterFlux - upward fresh water flux (virt. salt flux) [m/s] |
34 |
|
|
C icefrontForcingT - analogue of surfaceForcingT |
35 |
|
|
C icefrontForcingS - analogue of surfaceForcingS |
36 |
|
|
C----------------------------------------------------------------------- |
37 |
|
|
C \ev |
38 |
|
|
CEOP |
39 |
|
|
|
40 |
|
|
COMMON /ICEFRONT_PARMS_R/ |
41 |
|
|
& ICEFRONTheatTransCoeff, ICEFRONTsaltTransCoeff, |
42 |
|
|
& rhoIcefront, ICEFRONTkappa, |
43 |
|
|
& ICEFRONTlatentHeat, recip_ICEFRONTlatentHeat, |
44 |
|
|
& ICEFRONTheatCapacity_Cp, |
45 |
dimitri |
1.2 |
& ICEFRONTthetaSurface |
46 |
dimitri |
1.1 |
_RL ICEFRONTheatTransCoeff |
47 |
|
|
_RL ICEFRONTsaltTransCoeff |
48 |
|
|
_RL ICEFRONTlatentHeat |
49 |
|
|
_RL ICEFRONTheatCapacity_Cp |
50 |
|
|
_RL rhoIcefront |
51 |
|
|
_RL ICEFRONTkappa |
52 |
|
|
_RL recip_ICEFRONTlatentHeat |
53 |
|
|
_RL ICEFRONTthetaSurface |
54 |
|
|
|
55 |
|
|
COMMON /ICEFRONT_FIELDS_RL/ |
56 |
|
|
& icefrontForcingT, |
57 |
|
|
& icefrontForcingS |
58 |
dimitri |
1.3 |
_RL icefrontForcingT (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
59 |
|
|
_RL icefrontForcingS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
60 |
dimitri |
1.1 |
|
61 |
|
|
COMMON /ICEFRONT_FIELDS_RS/ |
62 |
|
|
& R_icefront, |
63 |
|
|
& icefrontHeatFlux, |
64 |
|
|
& icefrontFreshWaterFlux |
65 |
|
|
_RS R_icefront (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
66 |
dimitri |
1.3 |
_RS icefrontHeatFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
67 |
|
|
_RS icefrontFreshWaterFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
68 |
dimitri |
1.1 |
|
69 |
|
|
LOGICAL ICEFRONTisOn |
70 |
|
|
LOGICAL useISOMIPTD |
71 |
|
|
LOGICAL ICEFRONTconserve |
72 |
|
|
COMMON /ICEFRONT_PARMS_L/ |
73 |
|
|
& ICEFRONTisOn, |
74 |
|
|
& useISOMIPTD, |
75 |
dimitri |
1.2 |
& ICEFRONTconserve |
76 |
dimitri |
1.1 |
|
77 |
|
|
CHARACTER*(MAX_LEN_FNAM) ICEFRONTtopoFile |
78 |
|
|
COMMON /ICEFRONT_PARM_C/ |
79 |
|
|
& ICEFRONTtopoFile |
80 |
|
|
|
81 |
|
|
#endif /* ALLOW_ICEFRONT */ |