9 |
& A_glen_isothermal, n_glen, eps_glen_min, |
& A_glen_isothermal, n_glen, eps_glen_min, |
10 |
& C_basal_fric_const, n_basal_friction, streamice_input_flux_unif, |
& C_basal_fric_const, n_basal_friction, streamice_input_flux_unif, |
11 |
& streamice_vel_update, streamice_cg_tol, streamice_nonlin_tol, |
& streamice_vel_update, streamice_cg_tol, streamice_nonlin_tol, |
12 |
& streamice_CFL_factor |
& streamice_nonlin_tol_fp, |
13 |
|
& streamice_CFL_factor, streamice_adjDump |
14 |
_RL streamice_density, streamice_density_ocean_avg |
_RL streamice_density, streamice_density_ocean_avg |
15 |
_RL A_glen_isothermal, n_glen, eps_glen_min |
_RL A_glen_isothermal, n_glen, eps_glen_min |
16 |
_RL C_basal_fric_const |
_RL C_basal_fric_const |
18 |
_RL streamice_input_flux_unif |
_RL streamice_input_flux_unif |
19 |
_RL streamice_vel_update |
_RL streamice_vel_update |
20 |
_RL streamice_cg_tol, streamice_nonlin_tol |
_RL streamice_cg_tol, streamice_nonlin_tol |
21 |
|
_RL streamice_nonlin_tol_fp |
22 |
_RL streamice_CFL_factor |
_RL streamice_CFL_factor |
23 |
|
_RL streamice_adjDump |
24 |
|
|
25 |
C parms for parameterized initial thickness |
C parms for parameterized initial thickness |
26 |
C SHELF_MAX_DRAFT: max thickness of ice in m |
C SHELF_MAX_DRAFT: max thickness of ice in m |
47 |
|
|
48 |
C -------------------------- INT PARAMS --------------------------------------------------- |
C -------------------------- INT PARAMS --------------------------------------------------- |
49 |
|
|
50 |
|
INTEGER streamice_max_nl |
51 |
|
PARAMETER ( streamice_max_nl = 100 ) |
52 |
|
|
53 |
COMMON /STREAMICE_PARMS_I/ |
COMMON /STREAMICE_PARMS_I/ |
54 |
& streamice_max_cg_iter, streamice_max_nl_iter, |
& streamice_max_cg_iter, streamice_max_nl_iter, |
55 |
& streamice_vel_upd_counter, streamice_nstep_velocity, |
& streamice_vel_upd_counter, streamice_nstep_velocity, |
175 |
& u_bdry_values_SI, |
& u_bdry_values_SI, |
176 |
& v_bdry_values_SI, |
& v_bdry_values_SI, |
177 |
& STREAMICE_dummy_array, |
& STREAMICE_dummy_array, |
178 |
& C_basal_friction |
& C_basal_friction, |
179 |
|
& A_glen, |
180 |
|
& BDOT_streamice |
181 |
_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) |
182 |
_RL U_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL U_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
183 |
_RL V_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL V_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
194 |
_RL u_bdry_values_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL u_bdry_values_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
195 |
_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) |
196 |
_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) |
197 |
|
_RL A_glen (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
198 |
|
|
199 |
|
!! IMPORTANT: MELT RATE IN METERS PER YEAR |
200 |
|
!! POSITIVE WHERE MELTING |
201 |
|
_RL BDOT_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
202 |
|
|
203 |
_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) |
204 |
|
|