1 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1--+-+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
2 |
|
|
3 |
#ifdef ALLOW_STREAMICE |
#ifdef ALLOW_STREAMICE |
4 |
|
|
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 |
101 |
|
|
102 |
C The following parameters specify periodic boundary conditions. |
C The following parameters specify periodic boundary conditions. |
103 |
C For now this will completely override all other boundary conditions |
C For now this will completely override all other 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 |
|
& H_streamice_prev |
223 |
|
|
224 |
|
|
225 |
_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) |
226 |
_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) |
227 |
_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) |
239 |
_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) |
240 |
_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) |
241 |
_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) |
242 |
|
#ifdef USE_ALT_RLOW |
243 |
|
_RL R_low_si (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
244 |
|
#endif |
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 |
|
|
248 |
_RL streamice_taubx (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL streamice_taubx (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
262 |
!! IMPORTANT: MELT RATE IN METERS PER YEAR |
!! IMPORTANT: MELT RATE IN METERS PER YEAR |
263 |
!! POSITIVE WHERE MELTING |
!! POSITIVE WHERE MELTING |
264 |
_RL BDOT_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL BDOT_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
265 |
|
_RL H_streamice_prev (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
266 |
_RL STREAMICE_dummy_array (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL STREAMICE_dummy_array (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
267 |
|
|
268 |
|
|
269 |
|
|
270 |
|
COMMON /STREAMICE_COST_RL/ |
271 |
|
& cost_func1_streamice |
272 |
|
_RL cost_func1_streamice(nSx,nSy) |
273 |
|
|
274 |
C NOTES : |
C NOTES : |
275 |
C REAL ARRAYS THAT COMPRISE "STATE": |
C REAL ARRAYS THAT COMPRISE "STATE": |
276 |
C H_streamice, |
C H_streamice, |