--- MITgcm/lsopt/outstore.F	2002/02/05 20:34:34	1.1
+++ MITgcm/lsopt/outstore.F	2002/11/15 04:03:24	1.2
@@ -0,0 +1,23 @@
+      subroutine outstore( n, fc, gnorm0, m, jmin, jmax )
+c
+c         arguments
+c
+      integer n, m, jmin, jmax
+      double precision    fc, gnorm0
+c----
+c
+      common /xxstore/ itape, ntape, isize
+      integer itape, ntape, isize
+
+      open(  itape
+     $     , file   = 'OPWARMI'
+     $     , access = 'sequential'
+     $     , form   = 'formatted'  )
+      rewind (itape)
+
+      write( itape, * ) n, fc, gnorm0, isize, m, jmin, jmax
+
+      close(itape)
+
+      return
+      end