MITgcm/lsopt/outstore.F

4cee17c1be Patr*0001       subroutine outstore( n, fc, gnorm0, m, jmin, jmax )
                0002 c
                0003 c         arguments
                0004 c
                0005       integer n, m, jmin, jmax
                0006       double precision    fc, gnorm0
                0007 c----
                0008 c
                0009       common /xxstore/ itape, ntape, isize
                0010       integer itape, ntape, isize
                0011
                0012       open(  itape
                0013      $     , file   = 'OPWARMI'
                0014      $     , access = 'sequential'
                0015      $     , form   = 'formatted'  )
                0016       rewind (itape)
                0017
                0018       write( itape, * ) n, fc, gnorm0, isize, m, jmin, jmax
                0019
                0020       close(itape)
                0021
                0022       return
                0023       end