| File |
Line number |
Procedure |
Code |
|
./optim/optim_readdata.F |
102 |
OPTIM_READDATA |
funit = 20 |
|
./optim/optim_readdata.F |
134 |
OPTIM_READDATA |
open( funit, file = fname, |
|
./optim/optim_readdata.F |
141 |
OPTIM_READDATA |
read( funit ) nvartype |
|
./optim/optim_readdata.F |
142 |
OPTIM_READDATA |
read( funit ) nvarlength |
|
./optim/optim_readdata.F |
143 |
OPTIM_READDATA |
read( funit ) yctrlid |
|
./optim/optim_readdata.F |
144 |
OPTIM_READDATA |
read( funit ) filenopt |
|
./optim/optim_readdata.F |
145 |
OPTIM_READDATA |
read( funit ) fileff |
|
./optim/optim_readdata.F |
146 |
OPTIM_READDATA |
read( funit ) fileiG |
|
./optim/optim_readdata.F |
147 |
OPTIM_READDATA |
read( funit ) filejG |
|
./optim/optim_readdata.F |
148 |
OPTIM_READDATA |
read( funit ) filensx |
|
./optim/optim_readdata.F |
149 |
OPTIM_READDATA |
read( funit ) filensy |
|
./optim/optim_readdata.F |
151 |
OPTIM_READDATA |
read( funit ) (nWetcGlobal(k), k=1,nr) |
|
./optim/optim_readdata.F |
152 |
OPTIM_READDATA |
read( funit ) (nWetsGlobal(k), k=1,nr) |
|
./optim/optim_readdata.F |
153 |
OPTIM_READDATA |
read( funit ) (nWetwGlobal(k), k=1,nr) |
|
./optim/optim_readdata.F |
155 |
OPTIM_READDATA |
read( funit ) (nWetvGlobal(k), k=1,nr) |
|
./optim/optim_readdata.F |
158 |
OPTIM_READDATA |
read(funit) (nWetiGlobal(k), k=1,nr) |
|
./optim/optim_readdata.F |
164 |
OPTIM_READDATA |
read( funit ) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_readdata.F |
167 |
OPTIM_READDATA |
read( funit ) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_readdata.F |
170 |
OPTIM_READDATA |
read( funit ) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_readdata.F |
173 |
OPTIM_READDATA |
read( funit ) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_readdata.F |
176 |
OPTIM_READDATA |
read( funit ) (ncvarindex(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
177 |
OPTIM_READDATA |
read( funit ) (ncvarrecs(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
178 |
OPTIM_READDATA |
read( funit ) (ncvarxmax(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
179 |
OPTIM_READDATA |
read( funit ) (ncvarymax(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
180 |
OPTIM_READDATA |
read( funit ) (ncvarnrmax(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
181 |
OPTIM_READDATA |
read( funit ) (ncvargrd(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
182 |
OPTIM_READDATA |
read( funit ) |
|
./optim/optim_readdata.F |
291 |
OPTIM_READDATA |
read( funit ) ncvarindex(icvar) |
|
./optim/optim_readdata.F |
292 |
OPTIM_READDATA |
read( funit ) filej |
|
./optim/optim_readdata.F |
293 |
OPTIM_READDATA |
read( funit ) filei |
|
./optim/optim_readdata.F |
351 |
OPTIM_READDATA |
read( funit ) cbuffindex |
|
./optim/optim_readdata.F |
352 |
OPTIM_READDATA |
read( funit ) filek |
|
./optim/optim_readdata.F |
353 |
OPTIM_READDATA |
read( funit ) (cbuff(ii), ii=1,cbuffindex) |
|
./optim/optim_readdata.F |
377 |
OPTIM_READDATA |
close( funit ) |
|
./optim/optim_readdata.F |
74 |
OPTIM_READDATA |
integer funit |
|
./optim/optim_writedata.F |
100 |
OPTIM_WRITEDATA |
open( funit, file = fname, |
|
./optim/optim_writedata.F |
139 |
OPTIM_WRITEDATA |
write( funit ) nvartype |
|
./optim/optim_writedata.F |
140 |
OPTIM_WRITEDATA |
write( funit ) nvarlength |
|
./optim/optim_writedata.F |
141 |
OPTIM_WRITEDATA |
write( funit ) yctrlid |
|
./optim/optim_writedata.F |
142 |
OPTIM_WRITEDATA |
write( funit ) optimcycle |
|
./optim/optim_writedata.F |
143 |
OPTIM_WRITEDATA |
write( funit ) ff |
|
./optim/optim_writedata.F |
144 |
OPTIM_WRITEDATA |
write( funit ) big |
|
./optim/optim_writedata.F |
145 |
OPTIM_WRITEDATA |
write( funit ) bjg |
|
./optim/optim_writedata.F |
146 |
OPTIM_WRITEDATA |
write( funit ) nsx |
|
./optim/optim_writedata.F |
147 |
OPTIM_WRITEDATA |
write( funit ) nsy |
|
./optim/optim_writedata.F |
148 |
OPTIM_WRITEDATA |
write( funit ) (nWetcGlobal(k), k=1,nr) |
|
./optim/optim_writedata.F |
149 |
OPTIM_WRITEDATA |
write( funit ) (nWetsGlobal(k), k=1,nr) |
|
./optim/optim_writedata.F |
150 |
OPTIM_WRITEDATA |
write( funit ) (nWetwGlobal(k), k=1,nr) |
|
./optim/optim_writedata.F |
152 |
OPTIM_WRITEDATA |
write( funit ) (nWetvGlobal(k), k=1,nr) |
|
./optim/optim_writedata.F |
155 |
OPTIM_WRITEDATA |
write(funit) (nWetiGlobal(k), k=1,nr) |
|
./optim/optim_writedata.F |
161 |
OPTIM_WRITEDATA |
write(funit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_writedata.F |
164 |
OPTIM_WRITEDATA |
write(funit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_writedata.F |
167 |
OPTIM_WRITEDATA |
write(funit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_writedata.F |
170 |
OPTIM_WRITEDATA |
write(funit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_writedata.F |
174 |
OPTIM_WRITEDATA |
write( funit ) (ncvarindex(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
175 |
OPTIM_WRITEDATA |
write( funit ) (ncvarrecs(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
176 |
OPTIM_WRITEDATA |
write( funit ) (ncvarxmax(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
177 |
OPTIM_WRITEDATA |
write( funit ) (ncvarymax(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
178 |
OPTIM_WRITEDATA |
write( funit ) (ncvarnrmax(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
179 |
OPTIM_WRITEDATA |
write( funit ) (ncvargrd(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
180 |
OPTIM_WRITEDATA |
write( funit ) |
|
./optim/optim_writedata.F |
189 |
OPTIM_WRITEDATA |
write( funit ) ncvarindex(icvar) |
|
./optim/optim_writedata.F |
190 |
OPTIM_WRITEDATA |
write( funit ) bj |
|
./optim/optim_writedata.F |
191 |
OPTIM_WRITEDATA |
write( funit ) bi |
|
./optim/optim_writedata.F |
242 |
OPTIM_WRITEDATA |
write( funit ) cbuffindex |
|
./optim/optim_writedata.F |
243 |
OPTIM_WRITEDATA |
write( funit ) k |
|
./optim/optim_writedata.F |
244 |
OPTIM_WRITEDATA |
write( funit ) (cbuff(ii), ii=1,cbuffindex) |
|
./optim/optim_writedata.F |
254 |
OPTIM_WRITEDATA |
close( funit ) |
|
./optim/optim_writedata.F |
61 |
OPTIM_WRITEDATA |
integer funit |
|
./optim/optim_writedata.F |
76 |
OPTIM_WRITEDATA |
funit = 20 |
|
./pkg/ecco/cost_trans_merid.F |
150 |
COST_TRANS_MERID |
call MDSFINDUNIT( funit, mythid ) |
|
./pkg/ecco/cost_trans_merid.F |
153 |
COST_TRANS_MERID |
open(unit=funit,file=fnameout) |
|
./pkg/ecco/cost_trans_merid.F |
259 |
COST_TRANS_MERID |
write(funit,'(i3,i5,2i3,5(X,D22.15))') |
|
./pkg/ecco/cost_trans_merid.F |
266 |
COST_TRANS_MERID |
close(funit) |
|
./pkg/ecco/cost_trans_merid.F |
59 |
COST_TRANS_MERID |
integer funit |
|
./pkg/ecco/cost_trans_zonal.F |
139 |
COST_TRANS_ZONAL |
call MDSFINDUNIT( funit, mythid ) |
|
./pkg/ecco/cost_trans_zonal.F |
142 |
COST_TRANS_ZONAL |
open(unit=funit,file=fnameout) |
|
./pkg/ecco/cost_trans_zonal.F |
248 |
COST_TRANS_ZONAL |
write(funit,'(i3,i5,2i3,5(X,D22.15))') |
|
./pkg/ecco/cost_trans_zonal.F |
255 |
COST_TRANS_ZONAL |
close(funit) |
|
./pkg/ecco/cost_trans_zonal.F |
59 |
COST_TRANS_ZONAL |
integer funit |