/[MITgcm]/MITgcm/lsopt/outstore.F
ViewVC logotype

Diff of /MITgcm/lsopt/outstore.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by heimbach, Tue Feb 5 20:34:34 2002 UTC revision 1.2 by heimbach, Fri Nov 15 04:03:24 2002 UTC
# Line 0  Line 1 
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
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22