/[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.2 by dimitri, Fri Feb 3 14:08:28 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  !     Nx * Ny Real*8 array
91    
92  !     UwindTag  !     UwindTag
# Line 126  Line 126 
126  !     sea surface temperature at the tracer points (deg C)  !     sea surface temperature at the tracer points (deg C)
127  !     Nx * Ny Real*8 array  !     Nx * Ny Real*8 array
128    
129    !     SssTag
130    !     sea surface salinity at the tracer points (g/kg)
131    !     Nx * Ny Real*8 array
132    
133  !     UvelTag  !     UvelTag
134  !     sea surface zonal velocity (m/s)  !     sea surface zonal velocity (m/s)
135  !     at southwest c-grid locations  !     at southwest c-grid locations
# Line 138  Line 142 
142    
143  !     UstressTag  !     UstressTag
144  !     zonal stress under ice at southwest c-grid locations (N/m^2)  !     zonal stress under ice at southwest c-grid locations (N/m^2)
145    !     Ustress is computed for ice-covered area only
146    !     > 0 increases ocean surface velocity in the U direction
147  !     Nx * Ny Real*8 array  !     Nx * Ny Real*8 array
148    
149  !     VstressTag  !     VstressTag
150  !     meridional stress under ice at southwest c-grid locations (N/m^2)  !     meridional stress under ice at southwest c-grid locations (N/m^2)
151    !     Vstress is computed for ice-covered area only
152    !     > 0 increases ocean surface velocity in the V direction
153  !     Nx * Ny Real*8 array  !     Nx * Ny Real*8 array
154    
155  !     SwResidTag  !     SwResidTag
156  !     residual shortwave under ice at tracer point (W/m2)  !     residual shortwave under ice at tracer point (W/m2)
157    !     SwResid is computed for ice-covered area only
158  !     > 0 for increase in theta (ocean warming)  !     > 0 for increase in theta (ocean warming)
159  !     Nx * Ny Real*8 array  !     Nx * Ny Real*8 array
160    
161  !     HeatFluxTag  !     HeatFluxTag
162  !     heat flux (less shortwave) at tracer point (W/m2)  !     heat flux (less shortwave) at tracer point (W/m2)
163    !     HeatFlux is computed for ice-covered area only
164  !     > 0 for increase in theta (ocean warming)  !     > 0 for increase in theta (ocean warming)
165  !     Nx * Ny Real*8 array  !     Nx * Ny Real*8 array
166    
167  !     WaterFluxTag  !     WaterFluxTag
168  !     freshwater flux at tracer point (m/s)  !     freshwater flux at tracer point (m/s)
169    !     WaterFlux is computed for ice-covered area only
170  !     > 0 for decrease in ocean salinity  !     > 0 for decrease in ocean salinity
171  !     Nx * Ny Real*8 array  !     Nx * Ny Real*8 array
172    
173  !     SaltFluxTag  !     SaltFluxTag
174  !     salt flux at tracer point (g/m^2/s)  !     salt flux at tracer point (g/m^2/s)
175    !     SaltFlux is computed for ice-covered area only
176  !     > 0 for increase in ocean salinity  !     > 0 for increase in ocean salinity
177  !     Nx * Ny Real*8 array  !     Nx * Ny Real*8 array
178    
# Line 186  Line 198 
198        INTEGER     AqhTag        INTEGER     AqhTag
199        INTEGER     PrecipTag        INTEGER     PrecipTag
200        INTEGER     SstTag        INTEGER     SstTag
201          INTEGER     SssTag
202        INTEGER     UvelTag        INTEGER     UvelTag
203        INTEGER     VvelTag        INTEGER     VvelTag
204        INTEGER     UstressTag        INTEGER     UstressTag
# Line 217  Line 230 
230        PARAMETER ( AqhTag           = 10005104 )        PARAMETER ( AqhTag           = 10005104 )
231        PARAMETER ( PrecipTag        = 10005105 )        PARAMETER ( PrecipTag        = 10005105 )
232        PARAMETER ( SstTag           = 10005201 )        PARAMETER ( SstTag           = 10005201 )
233        PARAMETER ( UvelTag          = 10005202 )        PARAMETER ( SssTag           = 10005202 )
234        PARAMETER ( VvelTag          = 10005203 )        PARAMETER ( UvelTag          = 10005203 )
235          PARAMETER ( VvelTag          = 10005204 )
236        PARAMETER ( UstressTag       = 10006001 )        PARAMETER ( UstressTag       = 10006001 )
237        PARAMETER ( VstressTag       = 10006002 )        PARAMETER ( VstressTag       = 10006002 )
238        PARAMETER ( SwResidTag       = 20006101 )        PARAMETER ( SwResidTag       = 20006101 )
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22