Back to home page

MITgcm

 
 

    


File indexing completed on 2018-03-02 18:36:19 UTC

view on githubraw file Latest commit 4cee17c1 on 2002-11-15 04:03:25 UTC
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