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_CFL_factor, streamice_adjDump |
13 |
_RL streamice_density, streamice_density_ocean_avg |
_RL streamice_density, streamice_density_ocean_avg |
14 |
_RL A_glen_isothermal, n_glen, eps_glen_min |
_RL A_glen_isothermal, n_glen, eps_glen_min |
15 |
_RL C_basal_fric_const |
_RL C_basal_fric_const |
18 |
_RL streamice_vel_update |
_RL streamice_vel_update |
19 |
_RL streamice_cg_tol, streamice_nonlin_tol |
_RL streamice_cg_tol, streamice_nonlin_tol |
20 |
_RL streamice_CFL_factor |
_RL streamice_CFL_factor |
21 |
|
_RL streamice_adjDump |
22 |
|
|
23 |
C parms for parameterized initial thickness |
C parms for parameterized initial thickness |
24 |
C SHELF_MAX_DRAFT: max thickness of ice in m |
C SHELF_MAX_DRAFT: max thickness of ice in m |
45 |
|
|
46 |
C -------------------------- INT PARAMS --------------------------------------------------- |
C -------------------------- INT PARAMS --------------------------------------------------- |
47 |
|
|
48 |
|
INTEGER streamice_max_nl |
49 |
|
PARAMETER ( streamice_max_nl = 100 ) |
50 |
|
|
51 |
COMMON /STREAMICE_PARMS_I/ |
COMMON /STREAMICE_PARMS_I/ |
52 |
& streamice_max_cg_iter, streamice_max_nl_iter, |
& streamice_max_cg_iter, streamice_max_nl_iter, |
53 |
& streamice_vel_upd_counter, streamice_nstep_velocity, |
& streamice_vel_upd_counter, streamice_nstep_velocity, |
75 |
LOGICAL STREAMICE_tave_mnc |
LOGICAL STREAMICE_tave_mnc |
76 |
LOGICAL STREAMICE_GL_regularize, STREAMICE_move_front |
LOGICAL STREAMICE_GL_regularize, STREAMICE_move_front |
77 |
LOGICAL STREAMICE_calve_to_mask |
LOGICAL STREAMICE_calve_to_mask |
78 |
! LOGICAL STREAMICE_construct_matrix |
LOGICAL STREAMICE_construct_matrix |
79 |
LOGICAL STREAMICE_lower_cg_tol |
LOGICAL STREAMICE_lower_cg_tol |
80 |
COMMON /STREAMICE_PARM_L/ |
COMMON /STREAMICE_PARM_L/ |
81 |
& STREAMICEison, |
& STREAMICEison, |
83 |
& STREAMICE_dump_mnc, STREAMICE_tave_mnc, |
& STREAMICE_dump_mnc, STREAMICE_tave_mnc, |
84 |
& STREAMICE_GL_regularize, STREAMICE_move_front, |
& STREAMICE_GL_regularize, STREAMICE_move_front, |
85 |
& STREAMICE_calve_to_mask, |
& STREAMICE_calve_to_mask, |
86 |
! & STREAMICE_construct_matrix, |
& STREAMICE_construct_matrix, |
87 |
& STREAMICE_lower_cg_tol |
& STREAMICE_lower_cg_tol |
88 |
|
|
89 |
C -------------------------- AND NOW ARRAYS --------------------------------------------------- |
C -------------------------- AND NOW ARRAYS --------------------------------------------------- |