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