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	! ==========================================================
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 )