beaufort/code/CPL_MPMICE.h

!     ==========================================================
!     | CPL_MPMICE
!     | Declare MPI tags for each variable to be exchanged
!     | between MITgcm and MPMice
!     |----------------------------------------------------------
!     | Note: North/South/East/West and zonal/meridional below
!     | refer to grid, not geographical coordinates.
!     ==========================================================

!     TimeIntervalTag
!     time interval between communications (s): scalar Real*8

!     OceanTimeTag
!     ocean model time (s): scalar Real*8

!     IceTimeTag
!     ice model time (s): scalar Real*8

!     OceanGridsizeTag
!     ocean model Nx and Ny dimensions: 2 integers

!     AreaBcTag
!     open boundary ice area (fractional: 0-1) at the tracer points
!     2*(Nx+Ny)-4 Real*8 array
!     i=[1:Nx       Nx*ones(1,Ny-1) (Nx-1):-1:1     ones(1,Ny-2)];
!     j=[ones(1,Nx) 2:Ny            Ny*ones(1,Nx-1) (Ny-1):-1:2 ];

!     HeffBcTag
!     open boundary effective ice thickness (m)
!     actual thickness for single-class ice would be thickness/area
!     at the tracer points
!     2*(Nx+Ny)-4 Real*8 array
!     i=[1:Nx       Nx*ones(1,Ny-1) (Nx-1):-1:1     ones(1,Ny-2)];
!     j=[ones(1,Nx) 2:Ny            Ny*ones(1,Nx-1) (Ny-1):-1:2 ];

!     HsnowBcTag
!     open boundary effective snow thickness (m)
!     actual thickness for single-class snow would be thickness/area
!     at the tracer points
!     2*(Nx+Ny)-4 Real*8 array
!     i=[1:Nx       Nx*ones(1,Ny-1) (Nx-1):-1:1     ones(1,Ny-2)];
!     j=[ones(1,Nx) 2:Ny            Ny*ones(1,Nx-1) (Ny-1):-1:2 ];

!     HsaltBcTag
!     open boundary effective sea ice salinity (g/m2)
!     at the tracer points
!     2*(Nx+Ny)-4 Real*8 array
!     i=[1:Nx       Nx*ones(1,Ny-1) (Nx-1):-1:1     ones(1,Ny-2)];
!     j=[ones(1,Nx) 2:Ny            Ny*ones(1,Nx-1) (Ny-1):-1:2 ];

!     UiceBcTag
!     open boundary zonal velocity (m/s)
!     specified at the inside edge of the outer grid cells
!     southwest C-grid locations for normal component and at the
!     southwest C-grid locations for tangential
!     >0 from West to East
!     2*(Nx+Ny)-6 Real*8 array
!     i=[2:Nx         Nx*ones(1,Ny-1) (Nx-1):-1:2     2*ones(1,Ny-2)];
!     j=[ones(1,Nx-1) 2:Ny            Ny*ones(1,Nx-2) (Ny-1):-1:2   ];

!     ViceBcTag
!     open boundary meridional velocity (m/s)
!     specified at the inside edge of the outer grid cells
!     southwest C-grid locations for normal component and at the
!     southwest C-grid locations for tangential
!     >0 from South to North
!     2*(Nx+Ny)-6 Real*8 array
!     i=[1:Nx         Nx*ones(1,Ny-2) (Nx-1):-1:1     ones(1,Ny-3)];
!     j=[2*ones(1,Nx) 3:Ny            Ny*ones(1,Nx-1) (Ny-1):-1:3 ];

!     AreaTag
!     ice area (fractional: 0-1) at the tracer points
!     Nx * Ny Real*8 array

!     HeffTag
!     effective ice thickness (mean thickness in the grid box in m)
!     actual thickness for single-class ice would be thickness/area
!     at the tracer points
!     Nx * Ny Real*8 array

!     HsnowTag
!     effective snow thickness (mean thickness in the grid box in m)
!     actual thickness for single-class snow would be thickness/area
!     at the tracer points
!     Nx * Ny Real*8 array

!     HsaltTag
!     effective sea ice salinity (g/m2)
!     at the tracer points
!     Nx * Ny Real*8 array

!     UwindTag
!     10-m u-wind at the tracer points (m/s)
!     >0 from West to East
!     Nx * Ny Real*8 array

!     VwindTag
!     10-m v-wind at the tracer points (m/s)
!     >0 from South to North
!     Nx * Ny Real*8 array

!     LwDownTag
!     downward longwave at the tracer points (W/m2)
!     > 0 for increase in theta (ocean warming)
!     Nx * Ny Real*8 array

!     SwDownTag
!     downward shortwave at the tracer points (W/m2)
!     > 0 for increase in theta (ocean warming)
!     Nx * Ny Real*8 array

!     AtempTag
!     2-m air temperature at the tracer points (deg K)
!     Nx * Ny Real*8 array

!     AqhTag
!     2-m specific humidity at the tracer points (kg/kg)
!     Nx * Ny Real*8 array

!     PrecipTag
!     precipitation at the tracer points (m/s)
!     > 0 for decrease in salt (ocean salinity)
!     Nx * Ny Real*8 array

!     SstTag
!     sea surface temperature at the tracer points (deg C)
!     Nx * Ny Real*8 array

!     UvelTag
!     sea surface zonal velocity (m/s)
!     at southwest c-grid locations
!     Nx * Ny Real*8 array

!     VvelTag
!     sea surface meridional velocity (m/s)
!     at southwest c-grid locations
!     Nx * Ny Real*8 array

!     UstressTag
!     zonal stress under ice at southwest c-grid locations (N/m^2)
!     Nx * Ny Real*8 array

!     VstressTag
!     meridional stress under ice at southwest c-grid locations (N/m^2)
!     Nx * Ny Real*8 array

!     SwResidTag
!     residual shortwave under ice at tracer point (W/m2)
!     > 0 for increase in theta (ocean warming)
!     Nx * Ny Real*8 array

!     HeatFluxTag
!     heat flux (less shortwave) at tracer point (W/m2)
!     > 0 for increase in theta (ocean warming)
!     Nx * Ny Real*8 array

!     WaterFluxTag
!     freshwater flux at tracer point (m/s)
!     > 0 for decrease in ocean salinity
!     Nx * Ny Real*8 array

!     SaltFluxTag
!     salt flux at tracer point (g/m^2/s)
!     > 0 for increase in ocean salinity
!     Nx * Ny Real*8 array

      INTEGER     TimeIntervalTag
      INTEGER     OceanTimeTag
      INTEGER     IceTimeTag
      INTEGER     OceanGridsizeTag
      INTEGER     AreaBcTag
      INTEGER     HeffBcTag
      INTEGER     HsnowBcTag
      INTEGER     HsaltBcTag
      INTEGER     UiceBcTag
      INTEGER     ViceBcTag
      INTEGER     AreaTag
      INTEGER     HeffTag
      INTEGER     HsnowTag
      INTEGER     HsaltTag
      INTEGER     UwindTag
      INTEGER     VwindTag
      INTEGER     LwDownTag
      INTEGER     SwDownTag
      INTEGER     AtempTag
      INTEGER     AqhTag
      INTEGER     PrecipTag
      INTEGER     SstTag
      INTEGER     UvelTag
      INTEGER     VvelTag
      INTEGER     UstressTag
      INTEGER     VstressTag
      INTEGER     SwResidTag
      INTEGER     HeatFluxTag
      INTEGER     WaterFluxTag
      INTEGER     SaltFluxTag

      PARAMETER ( TimeIntervalTag  = 10001000 )
      PARAMETER ( OceanTimeTag     = 10001001 )
      PARAMETER ( IceTimeTag       = 10001002 )
      PARAMETER ( OceanGridsizeTag = 10002001 )
      PARAMETER ( AreaBcTag        = 10003001 )
      PARAMETER ( HeffBcTag        = 10003002 )
      PARAMETER ( HsnowBcTag       = 10003003 )
      PARAMETER ( HsaltBcTag       = 10003004 )
      PARAMETER ( UiceBcTag        = 10003005 )
      PARAMETER ( ViceBcTag        = 10003006 )
      PARAMETER ( AreaTag          = 10004001 )
      PARAMETER ( HeffTag          = 10004002 )
      PARAMETER ( HsnowTag         = 10004003 )
      PARAMETER ( HsaltTag         = 10004004 )
      PARAMETER ( UwindTag         = 10005001 )
      PARAMETER ( VwindTag         = 10005002 )
      PARAMETER ( LwDownTag        = 10005101 )
      PARAMETER ( SwDownTag        = 10005102 )
      PARAMETER ( AtempTag         = 10005103 )
      PARAMETER ( AqhTag           = 10005104 )
      PARAMETER ( PrecipTag        = 10005105 )
      PARAMETER ( SstTag           = 10005201 )
      PARAMETER ( UvelTag          = 10005202 )
      PARAMETER ( VvelTag          = 10005203 )
      PARAMETER ( UstressTag       = 10006001 )
      PARAMETER ( VstressTag       = 10006002 )
      PARAMETER ( SwResidTag       = 20006101 )
      PARAMETER ( HeatFluxTag      = 20006102 )
      PARAMETER ( WaterFluxTag     = 20006103 )
      PARAMETER ( SaltFluxTag      = 20006104 )
1	dimitri	1.1	! ==========================================================
2			! \| CPL_MPMICE
3			! \| Declare MPI tags for each variable to be exchanged
4			! \| between MITgcm and MPMice
5			! \|----------------------------------------------------------
6			! \| Note: North/South/East/West and zonal/meridional below
7			! \| refer to grid, not geographical coordinates.
8			! ==========================================================
9
10			! TimeIntervalTag
11			! time interval between communications (s): scalar Real*8
12
13			! OceanTimeTag
14			! ocean model time (s): scalar Real*8
15
16			! IceTimeTag
17			! ice model time (s): scalar Real*8
18
19			! OceanGridsizeTag
20			! ocean model Nx and Ny dimensions: 2 integers
21
22			! AreaBcTag
23			! open boundary ice area (fractional: 0-1) at the tracer points
24			! 2(Nx+Ny)-4 Real8 array
25			! i=[1:Nx Nx*ones(1,Ny-1) (Nx-1):-1:1 ones(1,Ny-2)];
26			! j=[ones(1,Nx) 2:Ny Ny*ones(1,Nx-1) (Ny-1):-1:2 ];
27
28			! HeffBcTag
29			! open boundary effective ice thickness (m)
30			! actual thickness for single-class ice would be thickness/area
31			! at the tracer points
32			! 2(Nx+Ny)-4 Real8 array
33			! i=[1:Nx Nx*ones(1,Ny-1) (Nx-1):-1:1 ones(1,Ny-2)];
34			! j=[ones(1,Nx) 2:Ny Ny*ones(1,Nx-1) (Ny-1):-1:2 ];
35
36			! HsnowBcTag
37			! open boundary effective snow thickness (m)
38			! actual thickness for single-class snow would be thickness/area
39			! at the tracer points
40			! 2(Nx+Ny)-4 Real8 array
41			! i=[1:Nx Nx*ones(1,Ny-1) (Nx-1):-1:1 ones(1,Ny-2)];
42			! j=[ones(1,Nx) 2:Ny Ny*ones(1,Nx-1) (Ny-1):-1:2 ];
43
44			! HsaltBcTag
45			! open boundary effective sea ice salinity (g/m2)
46			! at the tracer points
47			! 2(Nx+Ny)-4 Real8 array
48			! i=[1:Nx Nx*ones(1,Ny-1) (Nx-1):-1:1 ones(1,Ny-2)];
49			! j=[ones(1,Nx) 2:Ny Ny*ones(1,Nx-1) (Ny-1):-1:2 ];
50
51			! UiceBcTag
52			! open boundary zonal velocity (m/s)
53			! specified at the inside edge of the outer grid cells
54			! southwest C-grid locations for normal component and at the
55			! southwest C-grid locations for tangential
56			! >0 from West to East
57			! 2(Nx+Ny)-6 Real8 array
58			! i=[2:Nx Nxones(1,Ny-1) (Nx-1):-1:2 2ones(1,Ny-2)];
59			! j=[ones(1,Nx-1) 2:Ny Ny*ones(1,Nx-2) (Ny-1):-1:2 ];
60
61			! ViceBcTag
62			! open boundary meridional velocity (m/s)
63			! specified at the inside edge of the outer grid cells
64			! southwest C-grid locations for normal component and at the
65			! southwest C-grid locations for tangential
66			! >0 from South to North
67			! 2(Nx+Ny)-6 Real8 array
68			! i=[1:Nx Nx*ones(1,Ny-2) (Nx-1):-1:1 ones(1,Ny-3)];
69			! j=[2ones(1,Nx) 3:Ny Nyones(1,Nx-1) (Ny-1):-1:3 ];
70
71			! AreaTag
72			! ice area (fractional: 0-1) at the tracer points
73			! Nx * Ny Real*8 array
74
75			! HeffTag
76			! effective ice thickness (mean thickness in the grid box in m)
77			! actual thickness for single-class ice would be thickness/area
78			! at the tracer points
79			! Nx * Ny Real*8 array
80
81			! HsnowTag
82			! effective snow thickness (mean thickness in the grid box in m)
83			! actual thickness for single-class snow would be thickness/area
84			! at the tracer points
85			! Nx * Ny Real*8 array
86
87			! HsaltTag
88			! effective sea ice salinity (g/m2)
89			! at the tracer points
90			! Nx * Ny Real*8 array
91
92			! UwindTag
93			! 10-m u-wind at the tracer points (m/s)
94			! >0 from West to East
95			! Nx * Ny Real*8 array
96
97			! VwindTag
98			! 10-m v-wind at the tracer points (m/s)
99			! >0 from South to North
100			! Nx * Ny Real*8 array
101
102			! LwDownTag
103			! downward longwave at the tracer points (W/m2)
104			! > 0 for increase in theta (ocean warming)
105			! Nx * Ny Real*8 array
106
107			! SwDownTag
108			! downward shortwave at the tracer points (W/m2)
109			! > 0 for increase in theta (ocean warming)
110			! Nx * Ny Real*8 array
111
112			! AtempTag
113			! 2-m air temperature at the tracer points (deg K)
114			! Nx * Ny Real*8 array
115
116			! AqhTag
117			! 2-m specific humidity at the tracer points (kg/kg)
118			! Nx * Ny Real*8 array
119
120			! PrecipTag
121			! precipitation at the tracer points (m/s)
122			! > 0 for decrease in salt (ocean salinity)
123			! Nx * Ny Real*8 array
124
125			! SstTag
126			! sea surface temperature at the tracer points (deg C)
127			! Nx * Ny Real*8 array
128
129			! UvelTag
130			! sea surface zonal velocity (m/s)
131			! at southwest c-grid locations
132			! Nx * Ny Real*8 array
133
134			! VvelTag
135			! sea surface meridional velocity (m/s)
136			! at southwest c-grid locations
137			! Nx * Ny Real*8 array
138
139			! UstressTag
140			! zonal stress under ice at southwest c-grid locations (N/m^2)
141			! Nx * Ny Real*8 array
142
143			! VstressTag
144			! meridional stress under ice at southwest c-grid locations (N/m^2)
145			! Nx * Ny Real*8 array
146
147			! SwResidTag
148			! residual shortwave under ice at tracer point (W/m2)
149			! > 0 for increase in theta (ocean warming)
150			! Nx * Ny Real*8 array
151
152			! HeatFluxTag
153			! heat flux (less shortwave) at tracer point (W/m2)
154			! > 0 for increase in theta (ocean warming)
155			! Nx * Ny Real*8 array
156
157			! WaterFluxTag
158			! freshwater flux at tracer point (m/s)
159			! > 0 for decrease in ocean salinity
160			! Nx * Ny Real*8 array
161
162			! SaltFluxTag
163			! salt flux at tracer point (g/m^2/s)
164			! > 0 for increase in ocean salinity
165			! Nx * Ny Real*8 array
166
167			INTEGER TimeIntervalTag
168			INTEGER OceanTimeTag
169			INTEGER IceTimeTag
170			INTEGER OceanGridsizeTag
171			INTEGER AreaBcTag
172			INTEGER HeffBcTag
173			INTEGER HsnowBcTag
174			INTEGER HsaltBcTag
175			INTEGER UiceBcTag
176			INTEGER ViceBcTag
177			INTEGER AreaTag
178			INTEGER HeffTag
179			INTEGER HsnowTag
180			INTEGER HsaltTag
181			INTEGER UwindTag
182			INTEGER VwindTag
183			INTEGER LwDownTag
184			INTEGER SwDownTag
185			INTEGER AtempTag
186			INTEGER AqhTag
187			INTEGER PrecipTag
188			INTEGER SstTag
189			INTEGER UvelTag
190			INTEGER VvelTag
191			INTEGER UstressTag
192			INTEGER VstressTag
193			INTEGER SwResidTag
194			INTEGER HeatFluxTag
195			INTEGER WaterFluxTag
196			INTEGER SaltFluxTag
197
198			PARAMETER ( TimeIntervalTag = 10001000 )
199			PARAMETER ( OceanTimeTag = 10001001 )
200			PARAMETER ( IceTimeTag = 10001002 )
201			PARAMETER ( OceanGridsizeTag = 10002001 )
202			PARAMETER ( AreaBcTag = 10003001 )
203			PARAMETER ( HeffBcTag = 10003002 )
204			PARAMETER ( HsnowBcTag = 10003003 )
205			PARAMETER ( HsaltBcTag = 10003004 )
206			PARAMETER ( UiceBcTag = 10003005 )
207			PARAMETER ( ViceBcTag = 10003006 )
208			PARAMETER ( AreaTag = 10004001 )
209			PARAMETER ( HeffTag = 10004002 )
210			PARAMETER ( HsnowTag = 10004003 )
211			PARAMETER ( HsaltTag = 10004004 )
212			PARAMETER ( UwindTag = 10005001 )
213			PARAMETER ( VwindTag = 10005002 )
214			PARAMETER ( LwDownTag = 10005101 )
215			PARAMETER ( SwDownTag = 10005102 )
216			PARAMETER ( AtempTag = 10005103 )
217			PARAMETER ( AqhTag = 10005104 )
218			PARAMETER ( PrecipTag = 10005105 )
219			PARAMETER ( SstTag = 10005201 )
220			PARAMETER ( UvelTag = 10005202 )
221			PARAMETER ( VvelTag = 10005203 )
222			PARAMETER ( UstressTag = 10006001 )
223			PARAMETER ( VstressTag = 10006002 )
224			PARAMETER ( SwResidTag = 20006101 )
225			PARAMETER ( HeatFluxTag = 20006102 )
226			PARAMETER ( WaterFluxTag = 20006103 )
227			PARAMETER ( SaltFluxTag = 20006104 )