pkg/icefront/ICEFRONT.h

C $Header: /u/gcmpack/MITgcm/pkg/icefront/ICEFRONT.h,v 1.2 2010/01/22 00:51:54 dimitri Exp $
C $Name:  $

#ifdef ALLOW_ICEFRONT

CBOP
C !ROUTINE: ICEFRONT.h

C !DESCRIPTION: \bv
C     /==========================================================\
C     | ICEFRONT.h                                               |
C     | o Basic header thermodnynamic shelf ice package.         |
C     |   Contains all ICEFRONT field declarations.              |
C     \==========================================================/

C-----------------------------------------------------------------------
C
C--   Constants that can be set in data.icefront
C     ICEFRONTtopoFile         - File containing the topography of the 
C                                icefront draught (unit=m)
C     ICEFRONTheatTransCoeff   - heat transfer coefficient that determines
C                                 heat flux into icefront (m/s)
C     ICEFRONTsaltTransCoeff   - salinity transfer coefficient that determines
C                                salt flux into icefront (m/s)
C     ICEFRONTlatentHeat       - latent heat of fusion (J/kg)
C     useISOMIPTD              - use simple ISOMIP thermodynamics
C     ICEFRONTconserve         - use conservative form of H&O-thermodynamics 
C                                following Jenkins et al. (2001, JPO)
C
C--   Fields
C     R_icefront             - icefront topography [m]
C     icefrontHeatFlux       - upward heat flux [W/m^2]
C     icefrontFreshWaterFlux - upward fresh water flux (virt. salt flux) [m/s]
C     icefrontForcingT       - analogue of surfaceForcingT
C     icefrontForcingS       - analogue of surfaceForcingS
C-----------------------------------------------------------------------
C \ev
CEOP

      COMMON /ICEFRONT_PARMS_R/ 
     &     ICEFRONTheatTransCoeff, ICEFRONTsaltTransCoeff,
     &     rhoIcefront, ICEFRONTkappa,
     &     ICEFRONTlatentHeat, recip_ICEFRONTlatentHeat,
     &     ICEFRONTheatCapacity_Cp,
     &     ICEFRONTthetaSurface
      _RL ICEFRONTheatTransCoeff
      _RL ICEFRONTsaltTransCoeff
      _RL ICEFRONTlatentHeat
      _RL ICEFRONTheatCapacity_Cp
      _RL rhoIcefront
      _RL ICEFRONTkappa
      _RL recip_ICEFRONTlatentHeat
      _RL ICEFRONTthetaSurface

      COMMON /ICEFRONT_FIELDS_RL/ 
     &     icefrontForcingT,
     &     icefrontForcingS
      _RL icefrontForcingT      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL icefrontForcingS      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)

      COMMON /ICEFRONT_FIELDS_RS/ 
     &     R_icefront,
     &     icefrontHeatFlux,
     &     icefrontFreshWaterFlux
      _RS R_icefront            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS icefrontHeatFlux      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RS icefrontFreshWaterFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      
      LOGICAL ICEFRONTisOn
      LOGICAL useISOMIPTD
      LOGICAL ICEFRONTconserve
      COMMON /ICEFRONT_PARMS_L/
     &     ICEFRONTisOn,
     &     useISOMIPTD,
     &     ICEFRONTconserve

      CHARACTER*(MAX_LEN_FNAM) ICEFRONTtopoFile
      COMMON /ICEFRONT_PARM_C/ 
     &     ICEFRONTtopoFile

#endif /* ALLOW_ICEFRONT */
1	C $Header: /u/gcmpack/MITgcm/pkg/icefront/ICEFRONT.h,v 1.2 2010/01/22 00:51:54 dimitri Exp $
2	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	& ICEFRONTthetaSurface
46	_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	_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
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	_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
69	LOGICAL ICEFRONTisOn
70	LOGICAL useISOMIPTD
71	LOGICAL ICEFRONTconserve
72	COMMON /ICEFRONT_PARMS_L/
73	& ICEFRONTisOn,
74	& useISOMIPTD,
75	& ICEFRONTconserve
76
77	CHARACTER*(MAX_LEN_FNAM) ICEFRONTtopoFile
78	COMMON /ICEFRONT_PARM_C/
79	& ICEFRONTtopoFile
80
81	#endif /* ALLOW_ICEFRONT */