218 |
#ifdef USE_ALT_RLOW |
#ifdef USE_ALT_RLOW |
219 |
& R_low_si, |
& R_low_si, |
220 |
#endif |
#endif |
221 |
& streamice_sigma_coord, streamice_delsigma |
& 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) |
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/ |
COMMON /STREAMICE_COST_RL/ |
271 |
& cost_func1_streamice |
& cost_func1_streamice |