/[MITgcm]/MITgcm_contrib/MPMice/beaufort/code/CPL_MPMICE.h
ViewVC logotype

Diff of /MITgcm_contrib/MPMice/beaufort/code/CPL_MPMICE.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by dimitri, Sun May 31 03:41:36 2009 UTC revision 1.4 by dimitri, Thu Mar 22 02:16:33 2012 UTC
# Line 26  Line 26 
26  !     j=[ones(1,Nx) 2:Ny            Ny*ones(1,Nx-1) (Ny-1):-1:2 ];  !     j=[ones(1,Nx) 2:Ny            Ny*ones(1,Nx-1) (Ny-1):-1:2 ];
27    
28  !     HeffBcTag  !     HeffBcTag
29  !     open boundary effective ice thickness (m)  !     open boundary effective ice thickness (m) at the tracer points
30  !     actual thickness for single-class ice would be thickness/area  !     actual ice thickness for single-class ice is: Heff / Area
 !     at the tracer points  
31  !     2*(Nx+Ny)-4 Real*8 array  !     2*(Nx+Ny)-4 Real*8 array
32  !     i=[1:Nx       Nx*ones(1,Ny-1) (Nx-1):-1:1     ones(1,Ny-2)];  !     i=[1:Nx       Nx*ones(1,Ny-1) (Nx-1):-1:1     ones(1,Ny-2)];
33  !     j=[ones(1,Nx) 2:Ny            Ny*ones(1,Nx-1) (Ny-1):-1:2 ];  !     j=[ones(1,Nx) 2:Ny            Ny*ones(1,Nx-1) (Ny-1):-1:2 ];
34    
35  !     HsnowBcTag  !     HsnowBcTag
36  !     open boundary effective snow thickness (m)  !     open boundary effective snow thickness (m) at the tracer points
37  !     actual thickness for single-class snow would be thickness/area  !     actual snow thickness is: Hsnow / Area
 !     at the tracer points  
38  !     2*(Nx+Ny)-4 Real*8 array  !     2*(Nx+Ny)-4 Real*8 array
39  !     i=[1:Nx       Nx*ones(1,Ny-1) (Nx-1):-1:1     ones(1,Ny-2)];  !     i=[1:Nx       Nx*ones(1,Ny-1) (Nx-1):-1:1     ones(1,Ny-2)];
40  !     j=[ones(1,Nx) 2:Ny            Ny*ones(1,Nx-1) (Ny-1):-1:2 ];  !     j=[ones(1,Nx) 2:Ny            Ny*ones(1,Nx-1) (Ny-1):-1:2 ];
41    
42  !     HsaltBcTag  !     HsaltBcTag
43  !     open boundary effective sea ice salinity (g/m2)  !     open boundary effective sea ice salinity (g/m2) at the tracer points
44  !     at the tracer points  !     actual salinity in g/kg is: Hsalt / Heff / rhoIce
45    !     where rhoice = 910 kg / m^3
46  !     2*(Nx+Ny)-4 Real*8 array  !     2*(Nx+Ny)-4 Real*8 array
47  !     i=[1:Nx       Nx*ones(1,Ny-1) (Nx-1):-1:1     ones(1,Ny-2)];  !     i=[1:Nx       Nx*ones(1,Ny-1) (Nx-1):-1:1     ones(1,Ny-2)];
48  !     j=[ones(1,Nx) 2:Ny            Ny*ones(1,Nx-1) (Ny-1):-1:2 ];  !     j=[ones(1,Nx) 2:Ny            Ny*ones(1,Nx-1) (Ny-1):-1:2 ];
# Line 74  Line 73 
73    
74  !     HeffTag  !     HeffTag
75  !     effective ice thickness (mean thickness in the grid box in m)  !     effective ice thickness (mean thickness in the grid box in m)
 !     actual thickness for single-class ice would be thickness/area  
76  !     at the tracer points  !     at the tracer points
77    !     actual ice thickness for single-class ice is: Heff / Area
78  !     Nx * Ny Real*8 array  !     Nx * Ny Real*8 array
79    
80  !     HsnowTag  !     HsnowTag
81  !     effective snow thickness (mean thickness in the grid box in m)  !     effective snow thickness (mean thickness in the grid box in m)
 !     actual thickness for single-class snow would be thickness/area  
82  !     at the tracer points  !     at the tracer points
83    !     actual snow thickness is: Hsnow / Area
84  !     Nx * Ny Real*8 array  !     Nx * Ny Real*8 array
85    
86  !     HsaltTag  !     HsaltTag
87  !     effective sea ice salinity (g/m2)  !     effective sea ice salinity (g/m2) at the tracer points
88  !     at the tracer points  !     actual salinity in g/kg is: Hsalt / Heff / rhoIce
89    !     where rhoice = 910 kg / m^3
90    !     Nx * Ny Real*8 array
91    
92    !     UiceTag
93    !     zonal ice velocity in m/s at South-West C-grid U point
94    !     >0 from West to East
95    !     Nx * Ny Real*8 array
96    
97    !     ViceTag
98    !     meridional ice velocity in m/s at South-West C-grid V point
99    !     >0 from South to North
100  !     Nx * Ny Real*8 array  !     Nx * Ny Real*8 array
101    
102  !     UwindTag  !     UwindTag
# Line 126  Line 136 
136  !     sea surface temperature at the tracer points (deg C)  !     sea surface temperature at the tracer points (deg C)
137  !     Nx * Ny Real*8 array  !     Nx * Ny Real*8 array
138    
139    !     SssTag
140    !     sea surface salinity at the tracer points (g/kg)
141    !     Nx * Ny Real*8 array
142    
143  !     UvelTag  !     UvelTag
144  !     sea surface zonal velocity (m/s)  !     sea surface zonal velocity (m/s)
145  !     at southwest c-grid locations  !     at southwest c-grid locations
# Line 138  Line 152 
152    
153  !     UstressTag  !     UstressTag
154  !     zonal stress under ice at southwest c-grid locations (N/m^2)  !     zonal stress under ice at southwest c-grid locations (N/m^2)
155    !     Ustress is computed for ice-covered area only
156    !     > 0 increases ocean surface velocity in the U direction
157  !     Nx * Ny Real*8 array  !     Nx * Ny Real*8 array
158    
159  !     VstressTag  !     VstressTag
160  !     meridional stress under ice at southwest c-grid locations (N/m^2)  !     meridional stress under ice at southwest c-grid locations (N/m^2)
161    !     Vstress is computed for ice-covered area only
162    !     > 0 increases ocean surface velocity in the V direction
163  !     Nx * Ny Real*8 array  !     Nx * Ny Real*8 array
164    
165  !     SwResidTag  !     SwResidTag
166  !     residual shortwave under ice at tracer point (W/m2)  !     residual shortwave under ice at tracer point (W/m2)
167    !     SwResid is computed for ice-covered area only
168  !     > 0 for increase in theta (ocean warming)  !     > 0 for increase in theta (ocean warming)
169  !     Nx * Ny Real*8 array  !     Nx * Ny Real*8 array
170    
171  !     HeatFluxTag  !     HeatFluxTag
172  !     heat flux (less shortwave) at tracer point (W/m2)  !     heat flux (less shortwave) at tracer point (W/m2)
173    !     HeatFlux is computed for ice-covered area only
174  !     > 0 for increase in theta (ocean warming)  !     > 0 for increase in theta (ocean warming)
175  !     Nx * Ny Real*8 array  !     Nx * Ny Real*8 array
176    
177  !     WaterFluxTag  !     WaterFluxTag
178  !     freshwater flux at tracer point (m/s)  !     freshwater flux at tracer point ( kg/m^2/s )
179    !     WaterFlux is computed for ice-covered area only
180  !     > 0 for decrease in ocean salinity  !     > 0 for decrease in ocean salinity
181  !     Nx * Ny Real*8 array  !     Nx * Ny Real*8 array
182    
183  !     SaltFluxTag  !     SaltFluxTag
184  !     salt flux at tracer point (g/m^2/s)  !     salt flux at tracer point (g/m^2/s)
185    !     SaltFlux is computed for ice-covered area only
186  !     > 0 for increase in ocean salinity  !     > 0 for increase in ocean salinity
187  !     Nx * Ny Real*8 array  !     Nx * Ny Real*8 array
188    
# Line 178  Line 200 
200        INTEGER     HeffTag        INTEGER     HeffTag
201        INTEGER     HsnowTag        INTEGER     HsnowTag
202        INTEGER     HsaltTag        INTEGER     HsaltTag
203          INTEGER     UiceTag
204          INTEGER     ViceTag
205        INTEGER     UwindTag        INTEGER     UwindTag
206        INTEGER     VwindTag        INTEGER     VwindTag
207        INTEGER     LwDownTag        INTEGER     LwDownTag
# Line 186  Line 210 
210        INTEGER     AqhTag        INTEGER     AqhTag
211        INTEGER     PrecipTag        INTEGER     PrecipTag
212        INTEGER     SstTag        INTEGER     SstTag
213          INTEGER     SssTag
214        INTEGER     UvelTag        INTEGER     UvelTag
215        INTEGER     VvelTag        INTEGER     VvelTag
216        INTEGER     UstressTag        INTEGER     UstressTag
# Line 209  Line 234 
234        PARAMETER ( HeffTag          = 10004002 )        PARAMETER ( HeffTag          = 10004002 )
235        PARAMETER ( HsnowTag         = 10004003 )        PARAMETER ( HsnowTag         = 10004003 )
236        PARAMETER ( HsaltTag         = 10004004 )        PARAMETER ( HsaltTag         = 10004004 )
237          PARAMETER ( UiceTag          = 10004005 )
238          PARAMETER ( ViceTag          = 10004006 )
239        PARAMETER ( UwindTag         = 10005001 )        PARAMETER ( UwindTag         = 10005001 )
240        PARAMETER ( VwindTag         = 10005002 )        PARAMETER ( VwindTag         = 10005002 )
241        PARAMETER ( LwDownTag        = 10005101 )        PARAMETER ( LwDownTag        = 10005101 )
# Line 217  Line 244 
244        PARAMETER ( AqhTag           = 10005104 )        PARAMETER ( AqhTag           = 10005104 )
245        PARAMETER ( PrecipTag        = 10005105 )        PARAMETER ( PrecipTag        = 10005105 )
246        PARAMETER ( SstTag           = 10005201 )        PARAMETER ( SstTag           = 10005201 )
247        PARAMETER ( UvelTag          = 10005202 )        PARAMETER ( SssTag           = 10005202 )
248        PARAMETER ( VvelTag          = 10005203 )        PARAMETER ( UvelTag          = 10005203 )
249          PARAMETER ( VvelTag          = 10005204 )
250        PARAMETER ( UstressTag       = 10006001 )        PARAMETER ( UstressTag       = 10006001 )
251        PARAMETER ( VstressTag       = 10006002 )        PARAMETER ( VstressTag       = 10006002 )
252        PARAMETER ( SwResidTag       = 20006101 )        PARAMETER ( SwResidTag       = 20006101 )
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22