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

Diff of /MITgcm/lsopt/instore.F

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

revision 1.1.2.1 by heimbach, Tue Feb 5 20:34:33 2002 UTC revision 1.4 by heimbach, Sun Mar 12 08:21:47 2006 UTC
# Line 6  c Line 6  c
6        integer n, is, m, jmin, jmax, ifail        integer n, is, m, jmin, jmax, ifail
7        double precision    fc, gnorm0        double precision    fc, gnorm0
8        logical cold        logical cold
9          integer*8 rectmp, tmp1, tmp2
10  c----  c----
11  c  c
12        common /xxstore/ itape, ntape, isize        common /xxstore/ itape, ntape, isize
# Line 17  c Line 18  c
18        isize = is        isize = is
19        cold  = .true.        cold  = .true.
20    
21          print *, 'pathei: in instore '
22    
23  cc one record = two arrays of real*(isize)  cc one record = two arrays of real*(isize)
24    
25        open(  itape        open(  itape
# Line 38  cc one record = two arrays of real*(isiz Line 41  cc one record = two arrays of real*(isiz
41       $        '  opening direct access with recl = ',n,' * ',isize       $        '  opening direct access with recl = ',n,' * ',isize
42        print*        print*
43    
44          tmp1 = n
45          tmp2 = isize
46          rectmp = tmp1*tmp2
47    cph(
48          print *, 'pathei rectmp ', rectmp, n, isize
49    cph)
50    
51        open( ntape        open( ntape
52       $    , file   = 'OPWARMD'       $    , file   = 'OPWARMD'
53       $    , status = 'unknown'       $    , status = 'unknown'
54       $    , form   = 'unformatted'       $    , form   = 'unformatted'
55       $    , access = 'direct'       $    , access = 'direct'
56       $    , recl   = n * isize       $    , recl   = rectmp
57       $    )       $    )
58    
59        return        return
Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22