MITgcm/lsopt/lswri.F


      subroutine lswri( phniter, NN, xx, gg, lphprint )

c     ==================================================================
c     SUBROUTINE lswri
c     ==================================================================
c
c     o writes formatted output of updated controls and 
c       adjoint variables
c
c     o started: Patrick Heimbach, MIT/EAPS
c                01-Apr-1999
c
c     ==================================================================
c     SUBROUTINE lswri
c     ==================================================================

      implicit none

C     ========= Routine arguments ======================================

      INTEGER   phniter, NN
      DOUBLE PRECISION      xx(NN), gg(NN)
      LOGICAL   lphprint

cph      CHARACTER yitnum*3
c

C     ========= Local variables ========================================


C=======================================================================

      if (lphprint) 
     &   print *, 'pathei: writing in lswri: ', phniter
c
      open(95,
     &     FILE='PH_X.dat',
     &     FORM='UNFORMATTED',
     &     ACCESS='DIRECT',
     &     RECL=NN*8)
      write(95,REC=phniter+1) xx
      close(95)
c
      open(95,
     &     FILE='PH_G.dat',
     &     FORM='UNFORMATTED',
     &     ACCESS='DIRECT',
     &     RECL=NN*8)
      write(95,REC=phniter+1) gg
      close(95)
c

      end
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