/[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.4 by molod, Fri Nov 4 21:48:19 2005 UTC revision 1.5 by heimbach, Sun Mar 12 08:21:47 2006 UTC
# Line 2  Line 2 
2  c  c
3  c         arguments  c         arguments
4  c  c
5        integer n, j        integer n, i, j
6        double precision    x(n)        double precision    x(n)
7  cgf      real*4 x(n)        real*4 tmpx(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(  cph(
14        print *, 'pathei in dostore ',  cph      print *, 'pathei in dostore ',
15       &   store, n, ntape, j  cph     &   store, n, ntape, j
16  cph)  cph)
17    
18        if (store) then        if (store) then
19          write( ntape, rec=j ) x          do i = 1, n
20              tmpx(i) = x(i)
21            enddo
22            write( ntape, rec=j ) tmpx
23        else        else
24          read(  ntape, rec=j ) x          read(  ntape, rec=j ) tmpx
25            do i = 1, n
26              x(i) = tmpx(i)
27            enddo
28        endif        endif
29    
30        return        return
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22