File |
Line number |
Procedure |
Code |
./pkg/ecco/ecco_cost_weights.F |
261 |
ECCO_COST_WEIGHTS |
factor = 0. _d 0 |
./pkg/ecco/ecco_cost_weights.F |
263 |
ECCO_COST_WEIGHTS |
factor = 1. _d 0 |
./pkg/ecco/ecco_cost_weights.F |
70 |
ECCO_COST_WEIGHTS |
_RL factor |
./pkg/longstep/longstep_average_3d.F |
44 |
LONGSTEP_AVERAGE_3D |
_RL factor |
./pkg/longstep/longstep_average_3d.F |
49 |
LONGSTEP_AVERAGE_3D |
factor = lsCnt(bi,bj) |
./pkg/longstep/longstep_average_3d.F |
50 |
LONGSTEP_AVERAGE_3D |
IF (lsCnt(bi,bj).NE.0) factor = 1. _d 0 / factor |
./pkg/longstep/longstep_average_3d.F |
54 |
LONGSTEP_AVERAGE_3D |
lsFld(i,j,k,bi,bj) = lsFld(i,j,k,bi,bj)*factor |
./pkg/longstep/longstep_average_3d_fac.F |
46 |
LONGSTEP_AVERAGE_3D_FAC |
_RL factor |
./pkg/longstep/longstep_average_3d_fac.F |
54 |
LONGSTEP_AVERAGE_3D_FAC |
factor = lsCnt(bi,bj) |
./pkg/longstep/longstep_average_3d_fac.F |
55 |
LONGSTEP_AVERAGE_3D_FAC |
factor = factor*fac(i,j,k,bi,bj) |
./pkg/longstep/longstep_average_3d_fac.F |
56 |
LONGSTEP_AVERAGE_3D_FAC |
IF (factor.NE.zeroRL) factor = 1. _d 0 / factor |
./pkg/longstep/longstep_average_3d_fac.F |
57 |
LONGSTEP_AVERAGE_3D_FAC |
lsFld(i,j,k,bi,bj) = lsFld(i,j,k,bi,bj)*factor |
./verification/flt_example/extra/cvprofiles.F |
25 |
NO PROCEDURE |
integer factor(6) |
./verification/flt_example/extra/cvprofiles.F |
26 |
NO PROCEDURE |
data factor / 1.e5, 1.e4, 1.e3, 1.e2, 1.e1, 1.e0 / |
./lsopt/lsline.F |
70 |
LSLINE |
double precision factor |
./lsopt/lsline.F |
71 |
LSLINE |
parameter( factor = 0.2 ) |
./pkg/diagnostics/diagnostics_utils.F |
137 |
DIAGNOSTICS_GET_DIAG |
_RL factor |
./pkg/diagnostics/diagnostics_utils.F |
157 |
DIAGNOSTICS_GET_DIAG |
factor = FLOAT(ndiag(ip,bi,bj)) |
./pkg/diagnostics/diagnostics_utils.F |
158 |
DIAGNOSTICS_GET_DIAG |
IF (ndiag(ip,bi,bj).NE.0) factor = 1. _d 0 / factor |
./pkg/diagnostics/diagnostics_utils.F |
164 |
DIAGNOSTICS_GET_DIAG |
qtmp(i,j,k) = qdiag(i,j,ipnt,bi,bj)*factor |
./pkg/diagnostics/diagnostics_utils.F |
173 |
DIAGNOSTICS_GET_DIAG |
qtmp(i,j,k) = qdiag(i,j,ipnt,bi,bj)*factor |
./pkg/ecco/cost_gencost_sshv4.F |
344 |
COST_GENCOST_SSHV4 |
factor = 0.01 _d 0 |
./pkg/ecco/cost_gencost_sshv4.F |
361 |
COST_GENCOST_SSHV4 |
mdtob(i,j,bi,bj) = mdtob(i,j,bi,bj)*factor |
./pkg/ecco/cost_gencost_sshv4.F |
82 |
COST_GENCOST_SSHV4 |
_RL spval, factor |
./pkg/ecco/cost_sla_read.F |
166 |
COST_SLA_READ |
sla_obs(i,j,bi,bj) = sla_mask(i,j,bi,bj)*factor* |
./pkg/ecco/cost_sla_read.F |
56 |
COST_SLA_READ |
_RL factor |
./pkg/ecco/cost_sla_read.F |
93 |
COST_SLA_READ |
factor = 0.01 |
./pkg/ecco/cost_sla_read_yd.F |
145 |
COST_SLA_READ_YD |
sla_obs(i,j,bi,bj) = sla_mask(i,j,bi,bj)*factor* |
./pkg/ecco/cost_sla_read_yd.F |
64 |
COST_SLA_READ_YD |
_RL factor |
./pkg/ecco/cost_sla_read_yd.F |
96 |
COST_SLA_READ_YD |
factor = 0.01 |