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