96 |
LOGICAL STREAMICE_construct_matrix |
LOGICAL STREAMICE_construct_matrix |
97 |
LOGICAL STREAMICE_lower_cg_tol |
LOGICAL STREAMICE_lower_cg_tol |
98 |
LOGICAL STREAMICE_diagnostic_only |
LOGICAL STREAMICE_diagnostic_only |
99 |
|
LOGICAL STREAMICE_ppm_driving_stress |
100 |
LOGICAL STREAMICE_h_ctrl_const_surf |
LOGICAL STREAMICE_h_ctrl_const_surf |
101 |
|
|
102 |
C The following parameters specify periodic boundary conditions. |
C The following parameters specify periodic boundary conditions. |
117 |
& STREAMICE_construct_matrix, |
& STREAMICE_construct_matrix, |
118 |
& STREAMICE_lower_cg_tol, |
& STREAMICE_lower_cg_tol, |
119 |
& STREAMICE_NS_periodic, STREAMICE_EW_periodic, |
& STREAMICE_NS_periodic, STREAMICE_EW_periodic, |
120 |
& STREAMICE_diagnostic_only |
& STREAMICE_diagnostic_only, |
121 |
|
& STREAMICE_ppm_driving_stress, |
122 |
|
& STREAMICE_h_ctrl_const_surf |
123 |
|
|
124 |
C -------------------------- AND NOW ARRAYS --------------------------------------------------- |
C -------------------------- AND NOW ARRAYS --------------------------------------------------- |
125 |
|
|
215 |
& streamice_u_surf, streamice_v_surf, |
& streamice_u_surf, streamice_v_surf, |
216 |
& visc_streamice_full, streamice_omega, streamice_basal_geom, |
& visc_streamice_full, streamice_omega, streamice_basal_geom, |
217 |
& streamice_vert_shear_uz, streamice_vert_shear_vz, |
& streamice_vert_shear_uz, streamice_vert_shear_vz, |
218 |
& streamice_sigma_coord, streamice_delsigma |
#ifdef USE_ALT_RLOW |
219 |
|
& R_low_si, |
220 |
|
#endif |
221 |
|
& streamice_sigma_coord, streamice_delsigma, |
222 |
|
& cost_func1_streamice |
223 |
_RL H_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL H_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
224 |
_RL U_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL U_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
225 |
_RL V_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL V_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
237 |
_RL v_bdry_values_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL v_bdry_values_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
238 |
_RL C_basal_friction (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL C_basal_friction (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
239 |
_RL A_glen (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL A_glen (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
240 |
|
#ifdef USE_ALT_RLOW |
241 |
|
_RL R_low_si (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
242 |
|
#endif |
243 |
|
_RL cost_func1_streamice (nSx,nSy) |
244 |
|
|
245 |
|
|
246 |
C The following arrays are used for the hybrid stress balance |
C The following arrays are used for the hybrid stress balance |
247 |
|
|