| 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 |