/[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 by heimbach, Tue Feb 5 20:34:34 2002 UTC revision 1.2 by heimbach, Fri Nov 15 04:03:24 2002 UTC
# Line 0  Line 1 
1    
2          subroutine lswri( phniter, NN, xx, gg, lphprint )
3    
4    c     ==================================================================
5    c     SUBROUTINE lswri
6    c     ==================================================================
7    c
8    c     o writes formatted output of updated controls and
9    c       adjoint variables
10    c
11    c     o started: Patrick Heimbach, MIT/EAPS
12    c                01-Apr-1999
13    c
14    c     ==================================================================
15    c     SUBROUTINE lswri
16    c     ==================================================================
17    
18          implicit none
19    
20    C     ========= Routine arguments ======================================
21    
22          INTEGER   phniter, NN
23          DOUBLE PRECISION      xx(NN), gg(NN)
24          LOGICAL   lphprint
25    
26    cph      CHARACTER yitnum*3
27    c
28    
29    C     ========= Local variables ========================================
30    
31    
32    C=======================================================================
33    
34          if (lphprint)
35         &   print *, 'pathei: writing in lswri: ', phniter
36    c
37          open(95,
38         &     FILE='PH_X.dat',
39         &     FORM='UNFORMATTED',
40         &     ACCESS='DIRECT',
41         &     RECL=NN*8)
42          write(95,REC=phniter+1) xx
43          close(95)
44    c
45          open(95,
46         &     FILE='PH_G.dat',
47         &     FORM='UNFORMATTED',
48         &     ACCESS='DIRECT',
49         &     RECL=NN*8)
50          write(95,REC=phniter+1) gg
51          close(95)
52    c
53    
54          end
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22