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 |
& cost_func1_streamice |
|
223 |
_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) |
224 |
_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) |
225 |
_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) |
240 |
#ifdef USE_ALT_RLOW |
#ifdef USE_ALT_RLOW |
241 |
_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) |
242 |
#endif |
#endif |
|
_RL cost_func1_streamice (nSx,nSy) |
|
243 |
|
|
244 |
|
COMMON /STREAMICE_COST_RL/ |
245 |
|
& cost_func1_streamice |
246 |
|
_RL cost_func1_streamice(nSx,nSy) |
247 |
|
|
248 |
C The following arrays are used for the hybrid stress balance |
C The following arrays are used for the hybrid stress balance |
249 |
|
|
250 |
_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) |