13 |
& streamice_CFL_factor, streamice_adjDump, |
& streamice_CFL_factor, streamice_adjDump, |
14 |
& streamice_bg_surf_slope_x, streamice_bg_surf_slope_y, |
& streamice_bg_surf_slope_x, streamice_bg_surf_slope_y, |
15 |
& streamice_kx_b_init, streamice_ky_b_init, |
& streamice_kx_b_init, streamice_ky_b_init, |
16 |
& streamice_wgt_drift, streamice_wgt_surf |
& streamice_wgt_drift, streamice_wgt_surf, |
17 |
|
& streamice_wgt_avthick, streamice_wgt_vel |
18 |
_RL streamice_density, streamice_density_ocean_avg |
_RL streamice_density, streamice_density_ocean_avg |
19 |
_RL A_glen_isothermal, n_glen, eps_glen_min |
_RL A_glen_isothermal, n_glen, eps_glen_min |
20 |
_RL C_basal_fric_const |
_RL C_basal_fric_const |
27 |
_RL streamice_adjDump |
_RL streamice_adjDump |
28 |
_RL streamice_bg_surf_slope_x, streamice_bg_surf_slope_y |
_RL streamice_bg_surf_slope_x, streamice_bg_surf_slope_y |
29 |
_RL streamice_kx_b_init, streamice_ky_b_init |
_RL streamice_kx_b_init, streamice_ky_b_init |
30 |
_RL streamice_wgt_drift, streamice_wgt_surf |
_RL streamice_wgt_drift, streamice_wgt_surf |
31 |
|
_RL streamice_wgt_avthick, streamice_wgt_vel |
32 |
|
|
33 |
|
|
34 |
C parms for parameterized initial thickness |
C parms for parameterized initial thickness |
216 |
& C_basal_friction, |
& C_basal_friction, |
217 |
& A_glen, |
& A_glen, |
218 |
& BDOT_streamice, |
& BDOT_streamice, |
219 |
|
& streamice_sigma_coord, streamice_delsigma, |
220 |
|
& H_streamice_prev |
221 |
|
|
222 |
|
#ifdef STREAMICE_HYBRID_STRESS |
223 |
|
COMMON /STREAMICE_HYBRID/ |
224 |
& streamice_taubx, streamice_tauby, |
& streamice_taubx, streamice_tauby, |
225 |
& streamice_u_surf, streamice_v_surf, |
& streamice_u_surf, streamice_v_surf, |
226 |
& visc_streamice_full, streamice_omega, streamice_basal_geom, |
& visc_streamice_full, streamice_omega, streamice_basal_geom, |
227 |
& streamice_vert_shear_uz, streamice_vert_shear_vz, |
& streamice_vert_shear_uz, streamice_vert_shear_vz |
228 |
& streamice_sigma_coord, streamice_delsigma, |
#endif |
|
& H_streamice_prev |
|
229 |
|
|
230 |
#ifdef USE_ALT_RLOW |
#ifdef USE_ALT_RLOW |
231 |
COMMON /STREAMICE_RLOW/ |
COMMON /STREAMICE_RLOW/ |
250 |
_RL v_bdry_values_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL v_bdry_values_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
251 |
_RL C_basal_friction (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL C_basal_friction (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
252 |
_RL A_glen (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL A_glen (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
253 |
|
_RL streamice_sigma_coord (Nr) |
254 |
|
_RL streamice_delsigma (Nr) |
255 |
|
|
256 |
#ifdef USE_ALT_RLOW |
#ifdef USE_ALT_RLOW |
257 |
_RL R_low_si (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL R_low_si (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
258 |
#endif |
#endif |
259 |
|
|
260 |
C The following arrays are used for the hybrid stress balance |
C The following arrays are used for the hybrid stress balance |
261 |
|
#ifdef STREAMICE_HYBRID_STRESS |
262 |
_RL streamice_taubx (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL streamice_taubx (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
263 |
_RL streamice_tauby (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL streamice_tauby (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
264 |
_RL streamice_u_surf (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL streamice_u_surf (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
270 |
& (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
& (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
271 |
_RL streamice_vert_shear_uz (Nr) |
_RL streamice_vert_shear_uz (Nr) |
272 |
_RL streamice_vert_shear_vz (Nr) |
_RL streamice_vert_shear_vz (Nr) |
273 |
_RL streamice_sigma_coord (Nr) |
#endif |
274 |
_RL streamice_delsigma (Nr) |
|
275 |
|
|
276 |
!! IMPORTANT: MELT RATE IN METERS PER YEAR |
!! IMPORTANT: MELT RATE IN METERS PER YEAR |
277 |
!! POSITIVE WHERE MELTING |
!! POSITIVE WHERE MELTING |