--- MITgcm/verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F	2015/01/30 21:04:45	1.1
+++ MITgcm/verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F	2015/01/30 21:45:13	1.2
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F,v 1.1 2015/01/30 21:04:45 heimbach Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F,v 1.2 2015/01/30 21:45:13 heimbach Exp $
 C $Name:  $
 
 #include "CTRL_OPTIONS.h"
@@ -137,7 +137,7 @@
      O      xx_gentim2d_loc,
      I      xx_gentim2d0(1-Olx,1-Oly,1,1,iarr),
      I      xx_gentim2d1(1-Olx,1-Oly,1,1,iarr),
-     I      xx_gentim2d_dummy,
+     I      xx_gentim2d_dummy(iarr),
      I      zeroRL, zeroRL,
      I      wgentim2d(1-Olx,1-Oly,1,1,iarr),
      I      mytime, myiter, mythid )
@@ -167,7 +167,7 @@
 
                 bdot_streamice(i,j,bi,bj) =
      &           bdot_streamice(i,j,bi,bj)+
-     &            xx_gentim2d(i,j,bi,bj)
+     &            xx_gentim2d(i,j,bi,bj,iarr)
 
                endif
           enddo