| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_trans_zonal.F |
135 |
COST_TRANS_ZONAL |
call MDSFINDUNIT( funit, mythid ) |
|
./pkg/ecco/cost_trans_zonal.F |
138 |
COST_TRANS_ZONAL |
open(unit=funit,file=fnameout) |
|
./pkg/ecco/cost_trans_zonal.F |
244 |
COST_TRANS_ZONAL |
write(funit,'(i3,i5,2i3,5(X,D22.15))') |
|
./pkg/ecco/cost_trans_zonal.F |
251 |
COST_TRANS_ZONAL |
close(funit) |
|
./pkg/ecco/cost_trans_zonal.F |
55 |
COST_TRANS_ZONAL |
integer funit |
|
./pkg/ecco/cost_trans_merid.F |
146 |
COST_TRANS_MERID |
call MDSFINDUNIT( funit, mythid ) |
|
./pkg/ecco/cost_trans_merid.F |
149 |
COST_TRANS_MERID |
open(unit=funit,file=fnameout) |
|
./pkg/ecco/cost_trans_merid.F |
255 |
COST_TRANS_MERID |
write(funit,'(i3,i5,2i3,5(X,D22.15))') |
|
./pkg/ecco/cost_trans_merid.F |
262 |
COST_TRANS_MERID |
close(funit) |
|
./pkg/ecco/cost_trans_merid.F |
55 |
COST_TRANS_MERID |
integer funit |
|
./optim/optim_readdata.F |
103 |
OPTIM_READDATA |
funit = 20 |
|
./optim/optim_readdata.F |
135 |
OPTIM_READDATA |
open( funit, file = fname, |
|
./optim/optim_readdata.F |
142 |
OPTIM_READDATA |
read( funit ) nvartype |
|
./optim/optim_readdata.F |
143 |
OPTIM_READDATA |
read( funit ) nvarlength |
|
./optim/optim_readdata.F |
144 |
OPTIM_READDATA |
read( funit ) expId |
|
./optim/optim_readdata.F |
145 |
OPTIM_READDATA |
read( funit ) filenopt |
|
./optim/optim_readdata.F |
146 |
OPTIM_READDATA |
read( funit ) fileff |
|
./optim/optim_readdata.F |
147 |
OPTIM_READDATA |
read( funit ) fileiG |
|
./optim/optim_readdata.F |
148 |
OPTIM_READDATA |
read( funit ) filejG |
|
./optim/optim_readdata.F |
149 |
OPTIM_READDATA |
read( funit ) filensx |
|
./optim/optim_readdata.F |
150 |
OPTIM_READDATA |
read( funit ) filensy |
|
./optim/optim_readdata.F |
152 |
OPTIM_READDATA |
read( funit ) (nWetcGlobal(k), k=1,nr) |
|
./optim/optim_readdata.F |
153 |
OPTIM_READDATA |
read( funit ) (nWetsGlobal(k), k=1,nr) |
|
./optim/optim_readdata.F |
154 |
OPTIM_READDATA |
read( funit ) (nWetwGlobal(k), k=1,nr) |
|
./optim/optim_readdata.F |
156 |
OPTIM_READDATA |
read( funit ) (nWetvGlobal(k), k=1,nr) |
|
./optim/optim_readdata.F |
161 |
OPTIM_READDATA |
read( funit ) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_readdata.F |
164 |
OPTIM_READDATA |
read( funit ) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_readdata.F |
167 |
OPTIM_READDATA |
read( funit ) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_readdata.F |
170 |
OPTIM_READDATA |
read( funit ) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_readdata.F |
173 |
OPTIM_READDATA |
read( funit ) (ncvarindex(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
174 |
OPTIM_READDATA |
read( funit ) (ncvarrecs(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
175 |
OPTIM_READDATA |
read( funit ) (ncvarxmax(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
176 |
OPTIM_READDATA |
read( funit ) (ncvarymax(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
177 |
OPTIM_READDATA |
read( funit ) (ncvarnrmax(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
178 |
OPTIM_READDATA |
read( funit ) (ncvargrd(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
179 |
OPTIM_READDATA |
read( funit ) |
|
./optim/optim_readdata.F |
260 |
OPTIM_READDATA |
read( funit ) ncvarindex(icvar) |
|
./optim/optim_readdata.F |
261 |
OPTIM_READDATA |
read( funit ) filej |
|
./optim/optim_readdata.F |
262 |
OPTIM_READDATA |
read( funit ) filei |
|
./optim/optim_readdata.F |
302 |
OPTIM_READDATA |
read( funit ) cbuffindex |
|
./optim/optim_readdata.F |
303 |
OPTIM_READDATA |
read( funit ) filek |
|
./optim/optim_readdata.F |
304 |
OPTIM_READDATA |
read( funit ) (cbuff(ii), ii=1,cbuffindex) |
|
./optim/optim_readdata.F |
330 |
OPTIM_READDATA |
close( funit ) |
|
./optim/optim_readdata.F |
75 |
OPTIM_READDATA |
integer funit |
|
./optim/optim_writedata.F |
101 |
OPTIM_WRITEDATA |
open( funit, file = fname, |
|
./optim/optim_writedata.F |
140 |
OPTIM_WRITEDATA |
write( funit ) nvartype |
|
./optim/optim_writedata.F |
141 |
OPTIM_WRITEDATA |
write( funit ) nvarlength |
|
./optim/optim_writedata.F |
142 |
OPTIM_WRITEDATA |
write( funit ) expId |
|
./optim/optim_writedata.F |
143 |
OPTIM_WRITEDATA |
write( funit ) optimcycle |
|
./optim/optim_writedata.F |
144 |
OPTIM_WRITEDATA |
write( funit ) ff |
|
./optim/optim_writedata.F |
145 |
OPTIM_WRITEDATA |
write( funit ) big |
|
./optim/optim_writedata.F |
146 |
OPTIM_WRITEDATA |
write( funit ) bjg |
|
./optim/optim_writedata.F |
147 |
OPTIM_WRITEDATA |
write( funit ) nsx |
|
./optim/optim_writedata.F |
148 |
OPTIM_WRITEDATA |
write( funit ) nsy |
|
./optim/optim_writedata.F |
149 |
OPTIM_WRITEDATA |
write( funit ) (nWetcGlobal(k), k=1,nr) |
|
./optim/optim_writedata.F |
150 |
OPTIM_WRITEDATA |
write( funit ) (nWetsGlobal(k), k=1,nr) |
|
./optim/optim_writedata.F |
151 |
OPTIM_WRITEDATA |
write( funit ) (nWetwGlobal(k), k=1,nr) |
|
./optim/optim_writedata.F |
153 |
OPTIM_WRITEDATA |
write( funit ) (nWetvGlobal(k), k=1,nr) |
|
./optim/optim_writedata.F |
158 |
OPTIM_WRITEDATA |
write(funit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_writedata.F |
161 |
OPTIM_WRITEDATA |
write(funit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_writedata.F |
164 |
OPTIM_WRITEDATA |
write(funit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_writedata.F |
167 |
OPTIM_WRITEDATA |
write(funit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_writedata.F |
171 |
OPTIM_WRITEDATA |
write( funit ) (ncvarindex(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
172 |
OPTIM_WRITEDATA |
write( funit ) (ncvarrecs(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
173 |
OPTIM_WRITEDATA |
write( funit ) (ncvarxmax(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
174 |
OPTIM_WRITEDATA |
write( funit ) (ncvarymax(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
175 |
OPTIM_WRITEDATA |
write( funit ) (ncvarnrmax(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
176 |
OPTIM_WRITEDATA |
write( funit ) (ncvargrd(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
177 |
OPTIM_WRITEDATA |
write( funit ) |
|
./optim/optim_writedata.F |
186 |
OPTIM_WRITEDATA |
write( funit ) ncvarindex(icvar) |
|
./optim/optim_writedata.F |
187 |
OPTIM_WRITEDATA |
write( funit ) bj |
|
./optim/optim_writedata.F |
188 |
OPTIM_WRITEDATA |
write( funit ) bi |
|
./optim/optim_writedata.F |
238 |
OPTIM_WRITEDATA |
write( funit ) cbuffindex |
|
./optim/optim_writedata.F |
239 |
OPTIM_WRITEDATA |
write( funit ) k |
|
./optim/optim_writedata.F |
240 |
OPTIM_WRITEDATA |
write( funit ) (cbuff(ii), ii=1,cbuffindex) |
|
./optim/optim_writedata.F |
250 |
OPTIM_WRITEDATA |
close( funit ) |
|
./optim/optim_writedata.F |
62 |
OPTIM_WRITEDATA |
integer funit |
|
./optim/optim_writedata.F |
77 |
OPTIM_WRITEDATA |
funit = 20 |