--- MITgcm/lsopt/instore.F	2002/11/15 04:03:24	1.2
+++ MITgcm/lsopt/instore.F	2004/09/09 15:51:26	1.3
@@ -3,7 +3,7 @@
 c
 c         arguments
 c
-      integer n, is, m, jmin, jmax, ifail
+      integer n, is, m, jmin, jmax, ifail, rectmp
       double precision    fc, gnorm0
       logical cold
 c----
@@ -17,6 +17,8 @@
       isize = is
       cold  = .true.
 
+      print *, 'pathei: in instore '
+
 cc one record = two arrays of real*(isize)
 
       open(  itape
@@ -38,12 +40,17 @@
      $        '  opening direct access with recl = ',n,' * ',isize
       print*
 
+      rectmp = n * isize
+cph(
+      print *, 'pathei rectmp ', rectmp, n, isize
+cph)
+
       open( ntape
      $    , file   = 'OPWARMD'
      $    , status = 'unknown'
      $    , form   = 'unformatted'
      $    , access = 'direct'
-     $    , recl   = n * isize
+     $    , recl   = rectmp
      $    )
 
       return