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

Diff of /MITgcm/lsopt/lswri.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, Wed Sep 7 14:54:19 2005 UTC
# Line 32  C     ========= Local variables ======== Line 32  C     ========= Local variables ========
32    
33  C=======================================================================  C=======================================================================
34    
35        if (lphprint)  c      if (lphprint)
36       &   print *, 'pathei: formatted output of xx, gg, in lswri: ',  c     &   print *, 'pathei: formatted output of xx, gg, in lswri: ',
37       &   phniter  c     &   phniter
38  c  c
39        open(95,  c      open(95,
40       &     FILE='PH_X.dat',  c     &     FILE='PH_X.dat',
41       &     FORM='UNFORMATTED',  c     &     FORM='UNFORMATTED',
42       &     ACCESS='DIRECT',  c     &     ACCESS='DIRECT',
43       &     RECL=NN*isize)  c     &     RECL=NN*isize)
44        write(95,REC=phniter+1) xx  c      write(95,REC=phniter+1) xx
45        close(95)  c      close(95)
46  c  c
47        open(95,  c      open(95,
48       &     FILE='PH_G.dat',  c     &     FILE='PH_G.dat',
49       &     FORM='UNFORMATTED',  c     &     FORM='UNFORMATTED',
50       &     ACCESS='DIRECT',  c     &     ACCESS='DIRECT',
51       &     RECL=NN*isize)  c     &     RECL=NN*isize)
52        write(95,REC=phniter+1) gg  c      write(95,REC=phniter+1) gg
53        close(95)  c      close(95)
54    
55        end        end
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22