| 15 | & streamice_kx_b_init, streamice_ky_b_init, | & streamice_kx_b_init, streamice_ky_b_init, | 
| 16 | & streamice_wgt_drift, streamice_wgt_surf, | & streamice_wgt_drift, streamice_wgt_surf, | 
| 17 | & streamice_wgt_avthick, streamice_wgt_vel, | & streamice_wgt_avthick, streamice_wgt_vel, | 
| 18 |  | & streamice_wgt_tikh, | 
| 19 | & streamice_addl_backstress | & streamice_addl_backstress | 
| 20 | _RL streamice_density, streamice_density_ocean_avg | _RL streamice_density, streamice_density_ocean_avg | 
| 21 | _RL A_glen_isothermal, n_glen, eps_glen_min, eps_u_min | _RL A_glen_isothermal, n_glen, eps_glen_min, eps_u_min | 
| 31 | _RL streamice_kx_b_init, streamice_ky_b_init | _RL streamice_kx_b_init, streamice_ky_b_init | 
| 32 | _RL streamice_wgt_drift, streamice_wgt_surf | _RL streamice_wgt_drift, streamice_wgt_surf | 
| 33 | _RL streamice_wgt_avthick, streamice_wgt_vel | _RL streamice_wgt_avthick, streamice_wgt_vel | 
| 34 |  | _RL streamice_wgt_tikh | 
| 35 | _RL streamice_addl_backstress | _RL streamice_addl_backstress | 
| 36 |  |  | 
| 37 |  |  | 
| 80 | CHARACTER*(MAX_LEN_FNAM) STREAMICEsigcoordFile | CHARACTER*(MAX_LEN_FNAM) STREAMICEsigcoordFile | 
| 81 | CHARACTER*(MAX_LEN_FNAM) STREAMICEdelsigFile | CHARACTER*(MAX_LEN_FNAM) STREAMICEdelsigFile | 
| 82 | CHARACTER*(MAX_LEN_FNAM) STREAMICEbasalTracConfig | CHARACTER*(MAX_LEN_FNAM) STREAMICEbasalTracConfig | 
| 83 |  | CHARACTER*(MAX_LEN_FNAM) STREAMICEGlenConstConfig | 
| 84 | CHARACTER*(MAX_LEN_FNAM) STREAMICEbasalTracFile | CHARACTER*(MAX_LEN_FNAM) STREAMICEbasalTracFile | 
| 85 |  | CHARACTER*(MAX_LEN_FNAM) STREAMICEGlenConstFile | 
| 86 | CHARACTER*(MAX_LEN_FNAM) STREAMICEvelOptimFile | CHARACTER*(MAX_LEN_FNAM) STREAMICEvelOptimFile | 
| 87 |  |  | 
| 88 |  | !     THE FOLLOWING FILENAMES ARE FOR SPECIFYING IRREGULAR DOMAIN GEOMETRIES | 
| 89 |  | !     (i.e. boundaries that do not conform with rectangular walls) | 
| 90 |  | CHARACTER*(MAX_LEN_FNAM) STREAMICEhmaskFile | 
| 91 |  | CHARACTER*(MAX_LEN_FNAM) STREAMICEuFaceBdryFile | 
| 92 |  | CHARACTER*(MAX_LEN_FNAM) STREAMICEvFaceBdryFile | 
| 93 |  | CHARACTER*(MAX_LEN_FNAM) STREAMICEuDirichValsFile | 
| 94 |  | CHARACTER*(MAX_LEN_FNAM) STREAMICEvDirichValsFile | 
| 95 |  |  | 
| 96 |  |  | 
| 97 | COMMON /STREAMICE_PARM_C/ | COMMON /STREAMICE_PARM_C/ | 
| 98 | &     STREAMICEthickInit, | &     STREAMICEthickInit, | 
| 99 | &     STREAMICEthickFile, | &     STREAMICEthickFile, | 
| 103 | &     STREAMICEdelsigFile, | &     STREAMICEdelsigFile, | 
| 104 | &     STREAMICEbasalTracConfig, | &     STREAMICEbasalTracConfig, | 
| 105 | &     STREAMICEbasalTracFile, | &     STREAMICEbasalTracFile, | 
| 106 | &     STREAMICEvelOptimFile | &     STREAMICEvelOptimFile, | 
| 107 |  | &     STREAMICEhmaskFile, | 
| 108 |  | &     STREAMICEuFaceBdryFile, | 
| 109 |  | &     STREAMICEvFaceBdryFile, | 
| 110 |  | &     STREAMICEuDirichValsFile, | 
| 111 |  | &     STREAMICEvDirichValsFile, | 
| 112 |  | &     STREAMICEGlenConstFile, | 
| 113 |  | &     STREAMICEGlenConstConfig | 
| 114 |  |  | 
| 115 | C     -------------------------- LOGICAL PARAMS --------------------------------------------------- | C     -------------------------- LOGICAL PARAMS --------------------------------------------------- | 
| 116 |  |  | 
| 241 | &     STREAMICE_dummy_array, | &     STREAMICE_dummy_array, | 
| 242 | &     C_basal_friction, | &     C_basal_friction, | 
| 243 | &     A_glen, | &     A_glen, | 
| 244 | &     BDOT_streamice, | &     BDOT_streamice, ADOT_streamice,  ! mass balances in meters per year | 
| 245 | &     streamice_sigma_coord, streamice_delsigma, | &     streamice_sigma_coord, streamice_delsigma, | 
| 246 | &     H_streamice_prev | &     H_streamice_prev | 
| 247 |  |  | 
| 299 | #endif | #endif | 
| 300 |  |  | 
| 301 |  |  | 
| 302 |  | _RL ADOT_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) | 
| 303 | !! IMPORTANT: MELT RATE IN METERS PER YEAR | !! IMPORTANT: MELT RATE IN METERS PER YEAR | 
| 304 | !! POSITIVE WHERE MELTING | !! POSITIVE WHERE MELTING | 
| 305 | _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) |