| 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 |
|
|
| 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) |
| 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) |
| 243 |
_RL R_low_si (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL R_low_si (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
| 244 |
#endif |
#endif |
| 245 |
|
|
|
COMMON /STREAMICE_COST_RL/ |
|
|
& cost_func1_streamice |
|
|
_RL cost_func1_streamice(nSx,nSy) |
|
|
|
|
| 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, |