Parent Directory | Revision Log | Revision Graph
o Incorporating QNVS line search routines into MITgcm (this is separate code, not compiled with MITgcm, and therefore not under pkg) - lsopt/ - optim/
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 |