/[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.1.2.1 by heimbach, Tue Feb 5 20:34:34 2002 UTC revision 1.4 by heimbach, Wed Sep 7 14:54:19 2005 UTC
# Line 1  Line 1 
1    
2        subroutine lswri( phniter, NN, xx, gg, lphprint )        subroutine lswri( isize, phniter, NN, xx, gg, lphprint )
3    
4  c     ==================================================================  c     ==================================================================
5  c     SUBROUTINE lswri  c     SUBROUTINE lswri
# Line 19  c     ================================== Line 19  c     ==================================
19    
20  C     ========= Routine arguments ======================================  C     ========= Routine arguments ======================================
21    
22        INTEGER   phniter, NN        INTEGER   isize, phniter, NN
23        DOUBLE PRECISION      xx(NN), gg(NN)        real*4 xx(NN), gg(NN)
24    cph      DOUBLE PRECISION      xx(NN), gg(NN)
25        LOGICAL   lphprint        LOGICAL   lphprint
26    
27  cph      CHARACTER yitnum*3  cph      CHARACTER yitnum*3
# Line 31  C     ========= Local variables ======== Line 32  C     ========= Local variables ========
32    
33  C=======================================================================  C=======================================================================
34    
35        if (lphprint)  c      if (lphprint)
36       &   print *, 'pathei: writing in lswri: ', phniter  c     &   print *, 'pathei: formatted output of xx, gg, in lswri: ',
37  c  c     &   phniter
38        open(95,  c
39       &     FILE='PH_X.dat',  c      open(95,
40       &     FORM='UNFORMATTED',  c     &     FILE='PH_X.dat',
41       &     ACCESS='DIRECT',  c     &     FORM='UNFORMATTED',
42       &     RECL=NN*8)  c     &     ACCESS='DIRECT',
43        write(95,REC=phniter+1) xx  c     &     RECL=NN*isize)
44        close(95)  c      write(95,REC=phniter+1) xx
45  c  c      close(95)
46        open(95,  c
47       &     FILE='PH_G.dat',  c      open(95,
48       &     FORM='UNFORMATTED',  c     &     FILE='PH_G.dat',
49       &     ACCESS='DIRECT',  c     &     FORM='UNFORMATTED',
50       &     RECL=NN*8)  c     &     ACCESS='DIRECT',
51        write(95,REC=phniter+1) gg  c     &     RECL=NN*isize)
52        close(95)  c      write(95,REC=phniter+1) gg
53  c  c      close(95)
54    
55        end        end
Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22