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, |
77 |
LOGICAL STREAMICE_tave_mnc |
LOGICAL STREAMICE_tave_mnc |
78 |
LOGICAL STREAMICE_GL_regularize, STREAMICE_move_front |
LOGICAL STREAMICE_GL_regularize, STREAMICE_move_front |
79 |
LOGICAL STREAMICE_calve_to_mask |
LOGICAL STREAMICE_calve_to_mask |
80 |
! LOGICAL STREAMICE_construct_matrix |
LOGICAL STREAMICE_construct_matrix |
81 |
LOGICAL STREAMICE_lower_cg_tol |
LOGICAL STREAMICE_lower_cg_tol |
82 |
COMMON /STREAMICE_PARM_L/ |
COMMON /STREAMICE_PARM_L/ |
83 |
& STREAMICEison, |
& STREAMICEison, |
85 |
& STREAMICE_dump_mnc, STREAMICE_tave_mnc, |
& STREAMICE_dump_mnc, STREAMICE_tave_mnc, |
86 |
& STREAMICE_GL_regularize, STREAMICE_move_front, |
& STREAMICE_GL_regularize, STREAMICE_move_front, |
87 |
& STREAMICE_calve_to_mask, |
& STREAMICE_calve_to_mask, |
88 |
! & STREAMICE_construct_matrix, |
& STREAMICE_construct_matrix, |
89 |
& STREAMICE_lower_cg_tol |
& STREAMICE_lower_cg_tol |
90 |
|
|
91 |
C -------------------------- AND NOW ARRAYS --------------------------------------------------- |
C -------------------------- AND NOW ARRAYS --------------------------------------------------- |