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 | heimbach | 1.2 | 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 |