| 10 | 
      & C_basal_fric_const, n_basal_friction, streamice_input_flux_unif, | 
      & C_basal_fric_const, n_basal_friction, streamice_input_flux_unif, | 
| 11 | 
      & streamice_vel_update, streamice_cg_tol, streamice_nonlin_tol, | 
      & streamice_vel_update, streamice_cg_tol, streamice_nonlin_tol, | 
| 12 | 
      & streamice_nonlin_tol_fp, | 
      & streamice_nonlin_tol_fp, | 
| 13 | 
      & streamice_CFL_factor, streamice_adjDump | 
      & streamice_CFL_factor, streamice_adjDump,  | 
| 14 | 
  | 
      & streamice_bg_surf_slope_x, streamice_bg_surf_slope_y, | 
| 15 | 
  | 
      & streamice_kx_b_init, streamice_ky_b_init | 
| 16 | 
       _RL streamice_density, streamice_density_ocean_avg | 
       _RL streamice_density, streamice_density_ocean_avg | 
| 17 | 
       _RL A_glen_isothermal, n_glen, eps_glen_min | 
       _RL A_glen_isothermal, n_glen, eps_glen_min | 
| 18 | 
       _RL C_basal_fric_const | 
       _RL C_basal_fric_const | 
| 23 | 
       _RL streamice_nonlin_tol_fp | 
       _RL streamice_nonlin_tol_fp | 
| 24 | 
       _RL streamice_CFL_factor | 
       _RL streamice_CFL_factor | 
| 25 | 
       _RL streamice_adjDump | 
       _RL streamice_adjDump | 
| 26 | 
  | 
       _RL streamice_bg_surf_slope_x, streamice_bg_surf_slope_y | 
| 27 | 
  | 
       _RL streamice_kx_b_init, streamice_ky_b_init | 
| 28 | 
        | 
        | 
| 29 | 
 C     parms for parameterized initial thickness | 
 C     parms for parameterized initial thickness | 
| 30 | 
 C     SHELF_MAX_DRAFT: max thickness of ice in m | 
 C     SHELF_MAX_DRAFT: max thickness of ice in m | 
| 67 | 
       CHARACTER*(MAX_LEN_FNAM) STREAMICEthickFile | 
       CHARACTER*(MAX_LEN_FNAM) STREAMICEthickFile | 
| 68 | 
       CHARACTER*(MAX_LEN_FNAM) STREAMICEthickInit | 
       CHARACTER*(MAX_LEN_FNAM) STREAMICEthickInit | 
| 69 | 
       CHARACTER*(MAX_LEN_FNAM) STREAMICEcalveMaskFile | 
       CHARACTER*(MAX_LEN_FNAM) STREAMICEcalveMaskFile | 
| 70 | 
  | 
       CHARACTER*(MAX_LEN_FNAM) STREAMICEsigcoordInit | 
| 71 | 
  | 
       CHARACTER*(MAX_LEN_FNAM) STREAMICEsigcoordFile | 
| 72 | 
  | 
       CHARACTER*(MAX_LEN_FNAM) STREAMICEdelsigFile | 
| 73 | 
  | 
       CHARACTER*(MAX_LEN_FNAM) STREAMICEbasalTracConfig | 
| 74 | 
  | 
       CHARACTER*(MAX_LEN_FNAM) STREAMICEbasalTracFile | 
| 75 | 
  | 
       CHARACTER*(MAX_LEN_FNAM) STREAMICEvelOptimFile | 
| 76 | 
       COMMON /STREAMICE_PARM_C/  | 
       COMMON /STREAMICE_PARM_C/  | 
| 77 | 
      &     STREAMICEthickInit, | 
      &     STREAMICEthickInit, | 
| 78 | 
      &     STREAMICEthickFile, | 
      &     STREAMICEthickFile, | 
| 79 | 
      &     STREAMICEcalveMaskFile | 
      &     STREAMICEcalveMaskFile, | 
| 80 | 
  | 
      &     STREAMICEsigcoordInit, | 
| 81 | 
  | 
      &     STREAMICEsigcoordFile, | 
| 82 | 
  | 
      &     STREAMICEdelsigFile, | 
| 83 | 
  | 
      &     STREAMICEbasalTracConfig, | 
| 84 | 
  | 
      &     STREAMICEbasalTracFile, | 
| 85 | 
  | 
      &     STREAMICEvelOptimFile | 
| 86 | 
       | 
       | 
| 87 | 
 C     -------------------------- LOGICAL PARAMS --------------------------------------------------- | 
 C     -------------------------- LOGICAL PARAMS --------------------------------------------------- | 
| 88 | 
  | 
  | 
| 95 | 
       LOGICAL STREAMICE_calve_to_mask | 
       LOGICAL STREAMICE_calve_to_mask | 
| 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 | 
| 99 | 
  | 
       LOGICAL STREAMICE_h_ctrl_const_surf | 
| 100 | 
  | 
        | 
| 101 | 
  | 
 C     The following parameters specify periodic boundary conditions.  | 
| 102 | 
  | 
 C     For now this will completely override all other boundary conditions | 
| 103 | 
  | 
 C     and apply to the entire boundary | 
| 104 | 
  | 
  | 
| 105 | 
  | 
       LOGICAL STREAMICE_NS_periodic | 
| 106 | 
  | 
       LOGICAL STREAMICE_EW_periodic | 
| 107 | 
  | 
        | 
| 108 | 
  | 
 C      LOGICAL STREAMICE_hybrid_stress | 
| 109 | 
  | 
        | 
| 110 | 
       COMMON /STREAMICE_PARM_L/ | 
       COMMON /STREAMICE_PARM_L/ | 
| 111 | 
      & STREAMICEison, | 
      & STREAMICEison, | 
| 112 | 
      & STREAMICE_dump_mdsio, STREAMICE_tave_mdsio, | 
      & STREAMICE_dump_mdsio, STREAMICE_tave_mdsio, | 
| 114 | 
      & STREAMICE_GL_regularize, STREAMICE_move_front, | 
      & STREAMICE_GL_regularize, STREAMICE_move_front, | 
| 115 | 
      & STREAMICE_calve_to_mask, | 
      & STREAMICE_calve_to_mask, | 
| 116 | 
      & STREAMICE_construct_matrix, | 
      & STREAMICE_construct_matrix, | 
| 117 | 
      & STREAMICE_lower_cg_tol | 
      & STREAMICE_lower_cg_tol, | 
| 118 | 
  | 
      & STREAMICE_NS_periodic, STREAMICE_EW_periodic, | 
| 119 | 
  | 
      & STREAMICE_diagnostic_only | 
| 120 | 
  | 
  | 
| 121 | 
 C     -------------------------- AND NOW ARRAYS --------------------------------------------------- | 
 C     -------------------------- AND NOW ARRAYS --------------------------------------------------- | 
| 122 | 
  | 
  | 
| 207 | 
      &     STREAMICE_dummy_array, | 
      &     STREAMICE_dummy_array, | 
| 208 | 
      &     C_basal_friction, | 
      &     C_basal_friction, | 
| 209 | 
      &     A_glen, | 
      &     A_glen, | 
| 210 | 
      &     BDOT_streamice | 
      &     BDOT_streamice, | 
| 211 | 
  | 
      &     streamice_taubx, streamice_tauby, | 
| 212 | 
  | 
      &     streamice_u_surf, streamice_v_surf, | 
| 213 | 
  | 
      &     visc_streamice_full, streamice_omega, streamice_basal_geom, | 
| 214 | 
  | 
      &     streamice_vert_shear_uz, streamice_vert_shear_vz, | 
| 215 | 
  | 
      &     streamice_sigma_coord, streamice_delsigma | 
| 216 | 
       _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) | 
| 217 | 
       _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) | 
| 218 | 
       _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) | 
| 231 | 
       _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) | 
| 232 | 
       _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) | 
| 233 | 
        | 
        | 
| 234 | 
  | 
 C      The following arrays are used for the hybrid stress balance       | 
| 235 | 
  | 
        | 
| 236 | 
  | 
       _RL streamice_taubx (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) | 
| 237 | 
  | 
       _RL streamice_tauby (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) | 
| 238 | 
  | 
       _RL streamice_u_surf (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) | 
| 239 | 
  | 
       _RL streamice_v_surf (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) | 
| 240 | 
  | 
       _RL streamice_omega (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) | 
| 241 | 
  | 
       _RL streamice_basal_geom  | 
| 242 | 
  | 
      & (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) | 
| 243 | 
  | 
       _RL visc_streamice_full  | 
| 244 | 
  | 
      & (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) | 
| 245 | 
  | 
       _RL streamice_vert_shear_uz (Nr) | 
| 246 | 
  | 
       _RL streamice_vert_shear_vz (Nr) | 
| 247 | 
  | 
       _RL streamice_sigma_coord (Nr) | 
| 248 | 
  | 
       _RL streamice_delsigma (Nr) | 
| 249 | 
  | 
        | 
| 250 | 
 !! IMPORTANT: MELT RATE IN METERS PER YEAR | 
 !! IMPORTANT: MELT RATE IN METERS PER YEAR | 
| 251 | 
 !! POSITIVE WHERE MELTING | 
 !! POSITIVE WHERE MELTING | 
| 252 | 
       _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) |