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

Contents of /MITgcm/lsopt/outstore.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 (20 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: +23 -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 subroutine outstore( n, fc, gnorm0, m, jmin, jmax )
2 c
3 c arguments
4 c
5 integer n, m, jmin, jmax
6 double precision fc, gnorm0
7 c----
8 c
9 common /xxstore/ itape, ntape, isize
10 integer itape, ntape, isize
11
12 open( itape
13 $ , file = 'OPWARMI'
14 $ , access = 'sequential'
15 $ , form = 'formatted' )
16 rewind (itape)
17
18 write( itape, * ) n, fc, gnorm0, isize, m, jmin, jmax
19
20 close(itape)
21
22 return
23 end

  ViewVC Help
Powered by ViewVC 1.1.22