/[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.3 by heimbach, Thu Sep 9 15:51:26 2004 UTC revision 1.4 by heimbach, Sun Mar 12 08:21:47 2006 UTC
# Line 3  Line 3 
3  c  c
4  c         arguments  c         arguments
5  c  c
6        integer n, is, m, jmin, jmax, ifail, rectmp        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 40  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        rectmp = n * isize        tmp1 = n
45          tmp2 = isize
46          rectmp = tmp1*tmp2
47  cph(  cph(
48        print *, 'pathei rectmp ', rectmp, n, isize        print *, 'pathei rectmp ', rectmp, n, isize
49  cph)  cph)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22