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

Diff of /MITgcm/lsopt/dostore.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  c Line 3  c
3  c         arguments  c         arguments
4  c  c
5        integer n, j        integer n, j
6        double precision    x(n)  cph      double precision    x(n)
7          real*4 x(n)
8        logical store        logical store
9    
10        common /xxstore/ itape, ntape, isize        common /xxstore/ itape, ntape, isize
11        integer itape, ntape, isize        integer itape, ntape, isize
12    
13    cph(
14          print *, 'pathei in dostore ',
15         &   store, n, ntape, j
16    cph)
17        if (store) then        if (store) then
18          write( ntape, rec=j ) x          write( ntape, rec=j ) x
19        else        else
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22