--- MITgcm_contrib/dgoldberg/streamice/STREAMICE.h 2012/10/01 23:45:14 1.10 +++ MITgcm_contrib/dgoldberg/streamice/STREAMICE.h 2012/10/02 00:05:24 1.11 @@ -220,6 +220,7 @@ #endif & 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) @@ -241,10 +242,6 @@ _RL R_low_si (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) #endif - 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) @@ -267,6 +264,11 @@ _RL STREAMICE_dummy_array (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) + + COMMON /STREAMICE_COST_RL/ + & cost_func1_streamice + _RL cost_func1_streamice(nSx,nSy) + C NOTES : C REAL ARRAYS THAT COMPRISE "STATE": C H_streamice,