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