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