MITgcm/lsopt/outstore.F

      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
1	heimbach	1.1.2.1	subroutine outstore( n, fc, gnorm0, m, jmin, jmax )
2			c
3			c arguments
4			c
5			integer n, m, jmin, jmax
6			double precision fc, gnorm0
7			c----
8			c
9			common /xxstore/ itape, ntape, isize
10			integer itape, ntape, isize
11
12			open( itape
13			$ , file = 'OPWARMI'
14			$ , access = 'sequential'
15			$ , form = 'formatted' )
16			rewind (itape)
17
18			write( itape, * ) n, fc, gnorm0, isize, m, jmin, jmax
19
20			close(itape)
21
22			return
23			end