Diff of /MITgcm_contrib/dgoldberg/streamice/STREAMICE.h

Parent Directory | Revision Log | Revision Graph | Patch

--- 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)