pkg/shelfice/SHELFICE.h

C $Header: /u/gcmpack/MITgcm/pkg/shelfice/SHELFICE.h,v 1.1 2006/02/07 11:45:21 mlosch Exp $
C $Name:  $

#ifdef ALLOW_SHELFICE

CBOP
C !ROUTINE: SHELFICE.h

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

C-----------------------------------------------------------------------
C
C--   Constants that can be set in data.shelfice
C     SHELFICEloadAnomalyFile  - name of shelfice load anomaly file
C     SHELFICEDragLinear       - linear drag at bottom shelfice (1/s)
C     SHELFICEDragQuadratic    - quadratic drag at bottom shelfice (1/m)
C     SHELFICEexchangeVelocity - scale parameter that determines heat flux
C                                into shelfice (m/s)
C     SHELFICElatentHeat       - latent heat of fusion (J/kg)
C     useISOMIPTD              - use simple ISOMIP thermodynamics
C     no_slip_shelfice         - set slip conditions for shelfice separately,
C                                (by default the same as no_slip_bottom) 
C     SHELFICEwriteState       - enable output
C     SHELFICE_dump_mnc        - use netcdf for snapshot output
C     SHELFICE_tave_mnc        - use netcdf for time-averaged output
C     SHELFICE_dumpFreq        - analoguous to dumpFreq (= default)
C     SHELFICE_taveFreq        - analoguous to taveFreq (= default)
C
C--   Fields
C     ktopC                  - index of the top "wet cell" (2D)
C     R_shelfIce             - shelfice topography [m]
C     shelficeLoadAnomaly    - pressure load anomaly of shelfice [Pa]
C     shelficeHeatFlux       - upward heat flux [W/m^2]
C     shelficeFreshWaterFlux - upward fresh water flux (virt. salt flux) [m/s]
C     shelficeForcingT       - analogue of surfaceForcingT
C     shelficeForcingS       - analogue of surfaceForcingS
C-----------------------------------------------------------------------
C \ev
CEOP

      COMMON /SHELFICE_PARMS_I/  kTopC
      INTEGER kTopC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)

      COMMON /SHELFICE_PARMS_R/ 
     &     SHELFICE_dumpFreq, SHELFICE_taveFreq,
     &     SHELFICEexchangeVelocity,
     &     SHELFICElatentHeat, recip_SHELFICElatentHeat,
     &     SHELFICEDragLinear, SHELFICEDragQuadratic
      _RL SHELFICE_dumpFreq, SHELFICE_taveFreq
      _RL SHELFICEexchangeVelocity
      _RL SHELFICElatentHeat
      _RL recip_SHELFICElatentHeat
      _RL SHELFICEDragLinear
      _RL SHELFICEDragQuadratic

      COMMON /SHELFICE_FIELDS_RL/ 
     &     shelficeForcingT,
     &     shelficeForcingS
      _RL shelficeForcingT      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL shelficeForcingS      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)

      COMMON /SHELFICE_FIELDS_RS/ 
     &     R_shelfIce,
     &     shelficeLoadAnomaly, 
     &     shelficeHeatFlux,
     &     shelfIceFreshWaterFlux
      _RS R_shelfIce            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS shelficeLoadAnomaly   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS shelficeHeatFlux      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS shelficeFreshWaterFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      
      LOGICAL SHELFICEisOn
      LOGICAL useISOMIPTD
      LOGICAL no_slip_shelfice
      LOGICAL SHELFICEwriteState
      LOGICAL SHELFICE_dump_mdsio
      LOGICAL SHELFICE_tave_mdsio
      LOGICAL SHELFICE_dump_mnc
      LOGICAL SHELFICE_tave_mnc
      COMMON /SHELFICE_PARMS_L/
     &     SHELFICEisOn,
     &     useISOMIPTD,
     &     no_slip_shelfice,
     &     SHELFICEwriteState,
     &     SHELFICE_dump_mdsio,
     &     SHELFICE_tave_mdsio,
     &     SHELFICE_dump_mnc,
     &     SHELFICE_tave_mnc

      CHARACTER*(MAX_LEN_FNAM) SHELFICEloadAnomalyFile
      COMMON /SHELFICE_PARM_C/ 
     &     SHELFICEloadAnomalyFile

#endif /* ALLOW_SHELFICE */
1	C $Header: /u/gcmpack/MITgcm/pkg/shelfice/SHELFICE.h,v 1.1 2006/02/07 11:45:21 mlosch Exp $
2	C $Name: $
3
4	#ifdef ALLOW_SHELFICE
5
6	CBOP
7	C !ROUTINE: SHELFICE.h
8
9	C !DESCRIPTION: \bv
10	C /==========================================================\
11	C \| SHELFICE.h \|
12	C \| o Basic header thermodnynamic shelf ice package. \|
13	C \| Contains all SHELFICE field declarations. \|
14	C \==========================================================/
15
16	C-----------------------------------------------------------------------
17	C
18	C-- Constants that can be set in data.shelfice
19	C SHELFICEloadAnomalyFile - name of shelfice load anomaly file
20	C SHELFICEDragLinear - linear drag at bottom shelfice (1/s)
21	C SHELFICEDragQuadratic - quadratic drag at bottom shelfice (1/m)
22	C SHELFICEexchangeVelocity - scale parameter that determines heat flux
23	C into shelfice (m/s)
24	C SHELFICElatentHeat - latent heat of fusion (J/kg)
25	C useISOMIPTD - use simple ISOMIP thermodynamics
26	C no_slip_shelfice - set slip conditions for shelfice separately,
27	C (by default the same as no_slip_bottom)
28	C SHELFICEwriteState - enable output
29	C SHELFICE_dump_mnc - use netcdf for snapshot output
30	C SHELFICE_tave_mnc - use netcdf for time-averaged output
31	C SHELFICE_dumpFreq - analoguous to dumpFreq (= default)
32	C SHELFICE_taveFreq - analoguous to taveFreq (= default)
33	C
34	C-- Fields
35	C ktopC - index of the top "wet cell" (2D)
36	C R_shelfIce - shelfice topography [m]
37	C shelficeLoadAnomaly - pressure load anomaly of shelfice [Pa]
38	C shelficeHeatFlux - upward heat flux [W/m^2]
39	C shelficeFreshWaterFlux - upward fresh water flux (virt. salt flux) [m/s]
40	C shelficeForcingT - analogue of surfaceForcingT
41	C shelficeForcingS - analogue of surfaceForcingS
42	C-----------------------------------------------------------------------
43	C \ev
44	CEOP
45
46	COMMON /SHELFICE_PARMS_I/ kTopC
47	INTEGER kTopC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
48
49	COMMON /SHELFICE_PARMS_R/
50	& SHELFICE_dumpFreq, SHELFICE_taveFreq,
51	& SHELFICEexchangeVelocity,
52	& SHELFICElatentHeat, recip_SHELFICElatentHeat,
53	& SHELFICEDragLinear, SHELFICEDragQuadratic
54	_RL SHELFICE_dumpFreq, SHELFICE_taveFreq
55	_RL SHELFICEexchangeVelocity
56	_RL SHELFICElatentHeat
57	_RL recip_SHELFICElatentHeat
58	_RL SHELFICEDragLinear
59	_RL SHELFICEDragQuadratic
60
61	COMMON /SHELFICE_FIELDS_RL/
62	& shelficeForcingT,
63	& shelficeForcingS
64	_RL shelficeForcingT (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
65	_RL shelficeForcingS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
66
67	COMMON /SHELFICE_FIELDS_RS/
68	& R_shelfIce,
69	& shelficeLoadAnomaly,
70	& shelficeHeatFlux,
71	& shelfIceFreshWaterFlux
72	_RS R_shelfIce (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
73	_RS shelficeLoadAnomaly (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
74	_RS shelficeHeatFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
75	_RS shelficeFreshWaterFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
76
77	LOGICAL SHELFICEisOn
78	LOGICAL useISOMIPTD
79	LOGICAL no_slip_shelfice
80	LOGICAL SHELFICEwriteState
81	LOGICAL SHELFICE_dump_mdsio
82	LOGICAL SHELFICE_tave_mdsio
83	LOGICAL SHELFICE_dump_mnc
84	LOGICAL SHELFICE_tave_mnc
85	COMMON /SHELFICE_PARMS_L/
86	& SHELFICEisOn,
87	& useISOMIPTD,
88	& no_slip_shelfice,
89	& SHELFICEwriteState,
90	& SHELFICE_dump_mdsio,
91	& SHELFICE_tave_mdsio,
92	& SHELFICE_dump_mnc,
93	& SHELFICE_tave_mnc
94
95	CHARACTER*(MAX_LEN_FNAM) SHELFICEloadAnomalyFile
96	COMMON /SHELFICE_PARM_C/
97	& SHELFICEloadAnomalyFile
98
99	#endif /* ALLOW_SHELFICE */