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

Contents of /MITgcm/lsopt/lswri.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1.2.1 - (show annotations) (download)
Tue Feb 5 20:34:34 2002 UTC (22 years, 10 months ago) by heimbach
Branch: ecco-branch
CVS Tags: ecco_c50_e32, ecco_c50_e33, ecco_c50_e30, ecco_c50_e31, ecco_c51_e34d, ecco_c51_e34e, ecco_c51_e34f, ecco_c51_e34g, ecco_c51_e34a, ecco_c51_e34b, ecco_c51_e34c, icebear5, icebear4, icebear3, icebear2, ecco_c50_e29, ecco_c50_e28, ecco_c44_e19, ecco_c44_e18, ecco_c44_e17, ecco_c44_e16, ecco_c50_e33a, ecco_c51_e34, ecco_ice2, ecco_ice1, ecco_c44_e25, ecco_c44_e22, ecco_c44_e23, ecco_c44_e20, ecco_c44_e21, ecco_c44_e26, ecco_c44_e27, ecco_c44_e24, ecco-branch-mod1, ecco-branch-mod2, ecco-branch-mod3, ecco-branch-mod4, ecco-branch-mod5
Branch point for: c24_e25_ice, icebear
Changes since 1.1: +54 -0 lines
o Updating adjoint/makefile to ECCO code
o Adding optim and lsopt for line search optimization.
o Adding verif. experiments for ECCO
Code will be tagged ecco-branch-mod1.

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

  ViewVC Help
Powered by ViewVC 1.1.22