44 |
|
|
45 |
C -------------------------- INT PARAMS --------------------------------------------------- |
C -------------------------- INT PARAMS --------------------------------------------------- |
46 |
|
|
47 |
|
INTEGER streamice_max_nl |
48 |
|
PARAMETER ( streamice_max_nl = 100 ) |
49 |
|
|
50 |
COMMON /STREAMICE_PARMS_I/ |
COMMON /STREAMICE_PARMS_I/ |
51 |
& streamice_max_cg_iter, streamice_max_nl_iter, |
& streamice_max_cg_iter, streamice_max_nl_iter, |
52 |
& streamice_vel_upd_counter, streamice_nstep_velocity, |
& streamice_vel_upd_counter, streamice_nstep_velocity, |
74 |
LOGICAL STREAMICE_tave_mnc |
LOGICAL STREAMICE_tave_mnc |
75 |
LOGICAL STREAMICE_GL_regularize, STREAMICE_move_front |
LOGICAL STREAMICE_GL_regularize, STREAMICE_move_front |
76 |
LOGICAL STREAMICE_calve_to_mask |
LOGICAL STREAMICE_calve_to_mask |
77 |
! LOGICAL STREAMICE_construct_matrix |
LOGICAL STREAMICE_construct_matrix |
78 |
LOGICAL STREAMICE_lower_cg_tol |
LOGICAL STREAMICE_lower_cg_tol |
79 |
COMMON /STREAMICE_PARM_L/ |
COMMON /STREAMICE_PARM_L/ |
80 |
& STREAMICEison, |
& STREAMICEison, |
82 |
& STREAMICE_dump_mnc, STREAMICE_tave_mnc, |
& STREAMICE_dump_mnc, STREAMICE_tave_mnc, |
83 |
& STREAMICE_GL_regularize, STREAMICE_move_front, |
& STREAMICE_GL_regularize, STREAMICE_move_front, |
84 |
& STREAMICE_calve_to_mask, |
& STREAMICE_calve_to_mask, |
85 |
! & STREAMICE_construct_matrix, |
& STREAMICE_construct_matrix, |
86 |
& STREAMICE_lower_cg_tol |
& STREAMICE_lower_cg_tol |
87 |
|
|
88 |
C -------------------------- AND NOW ARRAYS --------------------------------------------------- |
C -------------------------- AND NOW ARRAYS --------------------------------------------------- |