--- MITgcm_contrib/dgoldberg/streamice/STREAMICE.h	2012/09/27 20:29:00	1.9
+++ MITgcm_contrib/dgoldberg/streamice/STREAMICE.h	2012/10/02 00:05:24	1.11
@@ -218,8 +218,9 @@
 #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 +241,7 @@
 #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)
 
-      
 C      The following arrays are used for the hybrid stress balance      
       
       _RL streamice_taubx (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
@@ -265,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,