/[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.2 by heimbach, Fri Nov 15 04:03:24 2002 UTC revision 1.3 by heimbach, Thu Sep 9 15:51:26 2004 UTC
# Line 3  Line 3 
3  c  c
4  c         arguments  c         arguments
5  c  c
6        integer n, is, m, jmin, jmax, ifail        integer n, is, m, jmin, jmax, ifail, rectmp
7        double precision    fc, gnorm0        double precision    fc, gnorm0
8        logical cold        logical cold
9  c----  c----
# Line 17  c Line 17  c
17        isize = is        isize = is
18        cold  = .true.        cold  = .true.
19    
20          print *, 'pathei: in instore '
21    
22  cc one record = two arrays of real*(isize)  cc one record = two arrays of real*(isize)
23    
24        open(  itape        open(  itape
# Line 38  cc one record = two arrays of real*(isiz Line 40  cc one record = two arrays of real*(isiz
40       $        '  opening direct access with recl = ',n,' * ',isize       $        '  opening direct access with recl = ',n,' * ',isize
41        print*        print*
42    
43          rectmp = n * isize
44    cph(
45          print *, 'pathei rectmp ', rectmp, n, isize
46    cph)
47    
48        open( ntape        open( ntape
49       $    , file   = 'OPWARMD'       $    , file   = 'OPWARMD'
50       $    , status = 'unknown'       $    , status = 'unknown'
51       $    , form   = 'unformatted'       $    , form   = 'unformatted'
52       $    , access = 'direct'       $    , access = 'direct'
53       $    , recl   = n * isize       $    , recl   = rectmp
54       $    )       $    )
55    
56        return        return
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22