| 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 |
160 |
OPTIM_READDATA |
read( funit ) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_readdata.F |
163 |
OPTIM_READDATA |
read( funit ) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_readdata.F |
166 |
OPTIM_READDATA |
read( funit ) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_readdata.F |
169 |
OPTIM_READDATA |
read( funit ) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_readdata.F |
172 |
OPTIM_READDATA |
read( funit ) (ncvarindex(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
173 |
OPTIM_READDATA |
read( funit ) (ncvarrecs(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
174 |
OPTIM_READDATA |
read( funit ) (ncvarxmax(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
175 |
OPTIM_READDATA |
read( funit ) (ncvarymax(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
176 |
OPTIM_READDATA |
read( funit ) (ncvarnrmax(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
177 |
OPTIM_READDATA |
read( funit ) (ncvargrd(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
178 |
OPTIM_READDATA |
read( funit ) |
|
./optim/optim_readdata.F |
259 |
OPTIM_READDATA |
read( funit ) ncvarindex(icvar) |
|
./optim/optim_readdata.F |
260 |
OPTIM_READDATA |
read( funit ) filej |
|
./optim/optim_readdata.F |
261 |
OPTIM_READDATA |
read( funit ) filei |
|
./optim/optim_readdata.F |
301 |
OPTIM_READDATA |
read( funit ) cbuffindex |
|
./optim/optim_readdata.F |
302 |
OPTIM_READDATA |
read( funit ) filek |
|
./optim/optim_readdata.F |
303 |
OPTIM_READDATA |
read( funit ) (cbuff(ii), ii=1,cbuffindex) |
|
./optim/optim_readdata.F |
329 |
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 |
157 |
OPTIM_WRITEDATA |
write(funit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_writedata.F |
160 |
OPTIM_WRITEDATA |
write(funit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_writedata.F |
163 |
OPTIM_WRITEDATA |
write(funit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_writedata.F |
166 |
OPTIM_WRITEDATA |
write(funit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_writedata.F |
170 |
OPTIM_WRITEDATA |
write( funit ) (ncvarindex(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
171 |
OPTIM_WRITEDATA |
write( funit ) (ncvarrecs(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
172 |
OPTIM_WRITEDATA |
write( funit ) (ncvarxmax(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
173 |
OPTIM_WRITEDATA |
write( funit ) (ncvarymax(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
174 |
OPTIM_WRITEDATA |
write( funit ) (ncvarnrmax(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
175 |
OPTIM_WRITEDATA |
write( funit ) (ncvargrd(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
176 |
OPTIM_WRITEDATA |
write( funit ) |
|
./optim/optim_writedata.F |
185 |
OPTIM_WRITEDATA |
write( funit ) ncvarindex(icvar) |
|
./optim/optim_writedata.F |
186 |
OPTIM_WRITEDATA |
write( funit ) bj |
|
./optim/optim_writedata.F |
187 |
OPTIM_WRITEDATA |
write( funit ) bi |
|
./optim/optim_writedata.F |
237 |
OPTIM_WRITEDATA |
write( funit ) cbuffindex |
|
./optim/optim_writedata.F |
238 |
OPTIM_WRITEDATA |
write( funit ) k |
|
./optim/optim_writedata.F |
239 |
OPTIM_WRITEDATA |
write( funit ) (cbuff(ii), ii=1,cbuffindex) |
|
./optim/optim_writedata.F |
249 |
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 |
147 |
COST_TRANS_MERID |
call MDSFINDUNIT( funit, mythid ) |
|
./pkg/ecco/cost_trans_merid.F |
150 |
COST_TRANS_MERID |
open(unit=funit,file=fnameout) |
|
./pkg/ecco/cost_trans_merid.F |
256 |
COST_TRANS_MERID |
write(funit,'(i3,i5,2i3,5(X,D22.15))') |
|
./pkg/ecco/cost_trans_merid.F |
263 |
COST_TRANS_MERID |
close(funit) |
|
./pkg/ecco/cost_trans_merid.F |
56 |
COST_TRANS_MERID |
integer funit |
|
./pkg/ecco/cost_trans_zonal.F |
136 |
COST_TRANS_ZONAL |
call MDSFINDUNIT( funit, mythid ) |
|
./pkg/ecco/cost_trans_zonal.F |
139 |
COST_TRANS_ZONAL |
open(unit=funit,file=fnameout) |
|
./pkg/ecco/cost_trans_zonal.F |
245 |
COST_TRANS_ZONAL |
write(funit,'(i3,i5,2i3,5(X,D22.15))') |
|
./pkg/ecco/cost_trans_zonal.F |
252 |
COST_TRANS_ZONAL |
close(funit) |
|
./pkg/ecco/cost_trans_zonal.F |
56 |
COST_TRANS_ZONAL |
integer funit |