File |
Line number |
Procedure |
Code |
./pkg/ecco/ecco_cost_weights.F |
1017 |
ECCO_COST_WEIGHTS |
nnz = 1 |
./pkg/ecco/ecco_cost_weights.F |
1024 |
ECCO_COST_WEIGHTS |
call MDSREADFIELD( tauv_errfile, cost_iprec, cost_yftype, nnz, |
./pkg/ecco/ecco_cost_weights.F |
1055 |
ECCO_COST_WEIGHTS |
nnz = 1 |
./pkg/ecco/ecco_cost_weights.F |
1063 |
ECCO_COST_WEIGHTS |
& nnz, wvwind, irec, mythid ) |
./pkg/ecco/ecco_cost_weights.F |
1086 |
ECCO_COST_WEIGHTS |
nnz = 1 |
./pkg/ecco/ecco_cost_weights.F |
1095 |
ECCO_COST_WEIGHTS |
& nnz, whflux, irec, mythid ) |
./pkg/ecco/ecco_cost_weights.F |
1121 |
ECCO_COST_WEIGHTS |
nnz = 1 |
./pkg/ecco/ecco_cost_weights.F |
1130 |
ECCO_COST_WEIGHTS |
& nnz, watemp, irec, mythid ) |
./pkg/ecco/ecco_cost_weights.F |
1154 |
ECCO_COST_WEIGHTS |
nnz = 1 |
./pkg/ecco/ecco_cost_weights.F |
1163 |
ECCO_COST_WEIGHTS |
& nnz, wsflux, irec, mythid ) |
./pkg/ecco/ecco_cost_weights.F |
1189 |
ECCO_COST_WEIGHTS |
nnz = 1 |
./pkg/ecco/ecco_cost_weights.F |
1197 |
ECCO_COST_WEIGHTS |
call MDSREADFIELD( aqh_errfile, cost_iprec, cost_yftype, nnz, |
./pkg/ecco/ecco_cost_weights.F |
1221 |
ECCO_COST_WEIGHTS |
nnz = 1 |
./pkg/ecco/ecco_cost_weights.F |
1230 |
ECCO_COST_WEIGHTS |
& nnz, wprecip, irec, mythid ) |
./pkg/ecco/ecco_cost_weights.F |
1253 |
ECCO_COST_WEIGHTS |
nnz = 1 |
./pkg/ecco/ecco_cost_weights.F |
1262 |
ECCO_COST_WEIGHTS |
& nnz, wswflux, irec, mythid ) |
./pkg/ecco/ecco_cost_weights.F |
1285 |
ECCO_COST_WEIGHTS |
nnz = 1 |
./pkg/ecco/ecco_cost_weights.F |
1294 |
ECCO_COST_WEIGHTS |
& nnz, wswdown, irec, mythid ) |
./pkg/ecco/ecco_cost_weights.F |
1317 |
ECCO_COST_WEIGHTS |
nnz = 1 |
./pkg/ecco/ecco_cost_weights.F |
1326 |
ECCO_COST_WEIGHTS |
& nnz, wlwflux, irec, mythid ) |
./pkg/ecco/ecco_cost_weights.F |
1349 |
ECCO_COST_WEIGHTS |
nnz = 1 |
./pkg/ecco/ecco_cost_weights.F |
1358 |
ECCO_COST_WEIGHTS |
& nnz, wlwdown, irec, mythid ) |
./pkg/ecco/ecco_cost_weights.F |
1381 |
ECCO_COST_WEIGHTS |
nnz = 1 |
./pkg/ecco/ecco_cost_weights.F |
1390 |
ECCO_COST_WEIGHTS |
& nnz, wsnowprecip, irec, mythid ) |
./pkg/ecco/ecco_cost_weights.F |
1414 |
ECCO_COST_WEIGHTS |
nnz = 1 |
./pkg/ecco/ecco_cost_weights.F |
1423 |
ECCO_COST_WEIGHTS |
& nnz, wevap, irec, mythid ) |
./pkg/ecco/ecco_cost_weights.F |
1446 |
ECCO_COST_WEIGHTS |
nnz = 1 |
./pkg/ecco/ecco_cost_weights.F |
1455 |
ECCO_COST_WEIGHTS |
& nnz, wapressure, irec, mythid ) |
./pkg/ecco/ecco_cost_weights.F |
1479 |
ECCO_COST_WEIGHTS |
nnz = 1 |
./pkg/ecco/ecco_cost_weights.F |
1488 |
ECCO_COST_WEIGHTS |
& nnz, wrunoff, irec, mythid ) |
./pkg/ecco/ecco_cost_weights.F |
1513 |
ECCO_COST_WEIGHTS |
& nnz, wbottomdrag, irec, mythid ) |
./pkg/ecco/ecco_cost_weights.F |
636 |
ECCO_COST_WEIGHTS |
nnz = 1 |
./pkg/ecco/ecco_cost_weights.F |
640 |
ECCO_COST_WEIGHTS |
& nnz, wp, irec, mythid ) |
./pkg/ecco/ecco_cost_weights.F |
65 |
ECCO_COST_WEIGHTS |
integer irec,nnz |
./pkg/ecco/ecco_cost_weights.F |
675 |
ECCO_COST_WEIGHTS |
nnz = 1 |
./pkg/ecco/ecco_cost_weights.F |
679 |
ECCO_COST_WEIGHTS |
& nnz, wtp, irec, mythid ) |
./pkg/ecco/ecco_cost_weights.F |
707 |
ECCO_COST_WEIGHTS |
& call MDSREADFIELD( tp_errfile, cost_iprec, cost_yftype, nnz, |
./pkg/ecco/ecco_cost_weights.F |
712 |
ECCO_COST_WEIGHTS |
& call MDSREADFIELD( ers_errfile, cost_iprec, cost_yftype, nnz, |
./pkg/ecco/ecco_cost_weights.F |
717 |
ECCO_COST_WEIGHTS |
& call MDSREADFIELD( gfo_errfile, cost_iprec, cost_yftype, nnz, |
./pkg/ecco/ecco_cost_weights.F |
878 |
ECCO_COST_WEIGHTS |
nnz = 1 |
./pkg/ecco/ecco_cost_weights.F |
881 |
ECCO_COST_WEIGHTS |
&call MDSREADFIELD( scatx_errfile, cost_iprec, cost_yftype, nnz, |
./pkg/ecco/ecco_cost_weights.F |
884 |
ECCO_COST_WEIGHTS |
&call MDSREADFIELD( scaty_errfile, cost_iprec, cost_yftype, nnz, |
./pkg/ecco/ecco_cost_weights.F |
917 |
ECCO_COST_WEIGHTS |
nnz = 1 |
./pkg/ecco/ecco_cost_weights.F |
948 |
ECCO_COST_WEIGHTS |
nnz = 1 |
./pkg/ecco/ecco_cost_weights.F |
955 |
ECCO_COST_WEIGHTS |
& nnz, wtauu, irec, mythid ) |
./pkg/ecco/ecco_cost_weights.F |
986 |
ECCO_COST_WEIGHTS |
nnz = 1 |
./pkg/ecco/ecco_cost_weights.F |
993 |
ECCO_COST_WEIGHTS |
& nnz, wuwind, irec, mythid ) |
./pkg/seaice/seaice_cost_weights.F |
101 |
SEAICE_COST_WEIGHTS |
nnz = 1 |
./pkg/seaice/seaice_cost_weights.F |
106 |
SEAICE_COST_WEIGHTS |
CALL READ_REC_3D_RL( smrarea_errfile, cost_iprec, nnz, |
./pkg/seaice/seaice_cost_weights.F |
53 |
SEAICE_COST_WEIGHTS |
integer irec,nnz |
./pkg/ecco/cost_averagesgeneric.F |
10 |
COST_AVERAGESGENERIC |
& sum1loc, locrec, nnz, mythid ) |
./pkg/ecco/cost_averagesgeneric.F |
117 |
COST_AVERAGESGENERIC |
do k = 1,nnz |
./pkg/ecco/cost_averagesgeneric.F |
132 |
COST_AVERAGESGENERIC |
if ( nnz .EQ. 1 ) then |
./pkg/ecco/cost_averagesgeneric.F |
140 |
COST_AVERAGESGENERIC |
if ( nnz .EQ. 1 ) then |
./pkg/ecco/cost_averagesgeneric.F |
151 |
COST_AVERAGESGENERIC |
do k = 1,nnz |
./pkg/ecco/cost_averagesgeneric.F |
164 |
COST_AVERAGESGENERIC |
do k = 1,nnz |
./pkg/ecco/cost_averagesgeneric.F |
182 |
COST_AVERAGESGENERIC |
if ( nnz .EQ. 1 ) then |
./pkg/ecco/cost_averagesgeneric.F |
190 |
COST_AVERAGESGENERIC |
if ( nnz .EQ. 1 ) then |
./pkg/ecco/cost_averagesgeneric.F |
203 |
COST_AVERAGESGENERIC |
do k = 1,nnz |
./pkg/ecco/cost_averagesgeneric.F |
37 |
COST_AVERAGESGENERIC |
integer nnz |
./pkg/ecco/cost_averagesgeneric.F |
41 |
COST_AVERAGESGENERIC |
_RL localbar(1-olx:snx+olx,1-oly:sny+oly,nnz,nsx,nsy) |
./pkg/ecco/cost_averagesgeneric.F |
42 |
COST_AVERAGESGENERIC |
_RL localfld(1-olx:snx+olx,1-oly:sny+oly,nnz,nsx,nsy) |
./pkg/ecco/cost_averagesgeneric.F |
95 |
COST_AVERAGESGENERIC |
& sum1loc, locrec, nnz |