1 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1--+-+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
2 |
|
|
3 |
#ifdef ALLOW_STREAMICE |
#ifdef ALLOW_STREAMICE |
4 |
|
|
12 |
& streamice_nonlin_tol_fp, |
& streamice_nonlin_tol_fp, |
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 |
17 |
_RL streamice_density, streamice_density_ocean_avg |
_RL streamice_density, streamice_density_ocean_avg |
18 |
_RL A_glen_isothermal, n_glen, eps_glen_min |
_RL A_glen_isothermal, n_glen, eps_glen_min |
19 |
_RL C_basal_fric_const |
_RL C_basal_fric_const |
26 |
_RL streamice_adjDump |
_RL streamice_adjDump |
27 |
_RL streamice_bg_surf_slope_x, streamice_bg_surf_slope_y |
_RL streamice_bg_surf_slope_x, streamice_bg_surf_slope_y |
28 |
_RL streamice_kx_b_init, streamice_ky_b_init |
_RL streamice_kx_b_init, streamice_ky_b_init |
29 |
|
_RL streamice_wgt_drift, streamice_wgt_surf |
30 |
|
|
31 |
|
|
32 |
C parms for parameterized initial thickness |
C parms for parameterized initial thickness |
33 |
C SHELF_MAX_DRAFT: max thickness of ice in m |
C SHELF_MAX_DRAFT: max thickness of ice in m |
218 |
& streamice_u_surf, streamice_v_surf, |
& streamice_u_surf, streamice_v_surf, |
219 |
& visc_streamice_full, streamice_omega, streamice_basal_geom, |
& visc_streamice_full, streamice_omega, streamice_basal_geom, |
220 |
& streamice_vert_shear_uz, streamice_vert_shear_vz, |
& streamice_vert_shear_uz, streamice_vert_shear_vz, |
221 |
|
& streamice_sigma_coord, streamice_delsigma, |
222 |
|
& H_streamice_prev |
223 |
|
|
224 |
#ifdef USE_ALT_RLOW |
#ifdef USE_ALT_RLOW |
225 |
|
COMMON /STREAMICE_RLOW/ |
226 |
& R_low_si, |
& R_low_si, |
227 |
#endif |
#endif |
|
& streamice_sigma_coord, streamice_delsigma |
|
228 |
|
|
229 |
|
|
230 |
_RL H_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL H_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
267 |
!! IMPORTANT: MELT RATE IN METERS PER YEAR |
!! IMPORTANT: MELT RATE IN METERS PER YEAR |
268 |
!! POSITIVE WHERE MELTING |
!! POSITIVE WHERE MELTING |
269 |
_RL BDOT_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL BDOT_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
270 |
|
_RL H_streamice_prev (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
271 |
_RL STREAMICE_dummy_array (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL STREAMICE_dummy_array (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
272 |
|
|
273 |
|
|
274 |
|
|
275 |
COMMON /STREAMICE_COST_RL/ |
COMMON /STREAMICE_COST_RL/ |
276 |
& cost_func1_streamice |
& cost_func1_streamice |