--- MITgcm_contrib/dgoldberg/streamice/STREAMICE.h 2012/09/27 20:29:00 1.9 +++ MITgcm_contrib/dgoldberg/streamice/STREAMICE.h 2012/10/01 23:45:14 1.10 @@ -218,8 +218,8 @@ #ifdef USE_ALT_RLOW & R_low_si, #endif - & streamice_sigma_coord, streamice_delsigma, - & cost_func1_streamice + & streamice_sigma_coord, streamice_delsigma + _RL H_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) _RL U_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,9 +240,11 @@ #ifdef USE_ALT_RLOW _RL R_low_si (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) #endif - _RL cost_func1_streamice (nSx,nSy) - + COMMON /STREAMICE_COST_RL/ + & cost_func1_streamice + _RL cost_func1_streamice(nSx,nSy) + C The following arrays are used for the hybrid stress balance _RL streamice_taubx (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)