| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_cost_weights.F |
224 |
ECCO_COST_WEIGHTS |
call MDSFINDUNIT( gwunit, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
227 |
ECCO_COST_WEIGHTS |
open(gwunit, file=data_errfile(ilo:ihi), |
|
./pkg/ecco/ecco_cost_weights.F |
230 |
ECCO_COST_WEIGHTS |
read(gwunit,*) |
|
./pkg/ecco/ecco_cost_weights.F |
251 |
ECCO_COST_WEIGHTS |
read(gwunit,*) wti(k), wsi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
256 |
ECCO_COST_WEIGHTS |
close(gwunit) |
|
./pkg/ecco/ecco_cost_weights.F |
54 |
ECCO_COST_WEIGHTS |
integer gwunit |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
229 |
ECCO_COST_WEIGHTS |
O gwunit, |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
232 |
ECCO_COST_WEIGHTS |
read(gwunit,*) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
254 |
ECCO_COST_WEIGHTS |
read(gwunit,*) wti(k), wsi(k) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
260 |
ECCO_COST_WEIGHTS |
close(gwunit) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
54 |
ECCO_COST_WEIGHTS |
integer gwunit |