| 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 | 
  | 
 #ifdef USE_ALT_RLOW | 
| 219 | 
  | 
      &     R_low_si, | 
| 220 | 
  | 
 #endif | 
| 221 | 
      &     streamice_sigma_coord, streamice_delsigma | 
      &     streamice_sigma_coord, streamice_delsigma | 
| 222 | 
  | 
  | 
| 223 | 
  | 
  | 
| 224 | 
       _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) | 
| 225 | 
       _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) | 
| 226 | 
       _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) | 
| 238 | 
       _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) | 
| 239 | 
       _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) | 
| 240 | 
       _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) | 
| 241 | 
        | 
 #ifdef USE_ALT_RLOW | 
| 242 | 
  | 
       _RL R_low_si    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) | 
| 243 | 
  | 
 #endif | 
| 244 | 
  | 
  | 
| 245 | 
 C      The following arrays are used for the hybrid stress balance       | 
 C      The following arrays are used for the hybrid stress balance       | 
| 246 | 
        | 
        | 
| 247 | 
       _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) | 
| 264 | 
        | 
        | 
| 265 | 
       _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) | 
| 266 | 
        | 
        | 
| 267 | 
  | 
             | 
| 268 | 
  | 
       COMMON /STREAMICE_COST_RL/ | 
| 269 | 
  | 
      &       cost_func1_streamice | 
| 270 | 
  | 
       _RL cost_func1_streamice(nSx,nSy) | 
| 271 | 
  | 
        | 
| 272 | 
 C    NOTES : | 
 C    NOTES : | 
| 273 | 
 C      REAL ARRAYS THAT COMPRISE "STATE": | 
 C      REAL ARRAYS THAT COMPRISE "STATE": | 
| 274 | 
 C       H_streamice, | 
 C       H_streamice, |