| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_bottomdrag.F |
102 |
COST_BOTTOMDRAG |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_bottomdrag.F |
108 |
COST_BOTTOMDRAG |
fctile = fctile |
|
./pkg/ecco/cost_bottomdrag.F |
112 |
COST_BOTTOMDRAG |
fctile = fctile + tmpx*tmpx |
|
./pkg/ecco/cost_bottomdrag.F |
118 |
COST_BOTTOMDRAG |
objf_bottomdrag(bi,bj) = objf_bottomdrag(bi,bj) + fctile |
|
./pkg/ecco/cost_bottomdrag.F |
119 |
COST_BOTTOMDRAG |
fcthread = fcthread + fctile |
|
./pkg/ecco/cost_bottomdrag.F |
132 |
COST_BOTTOMDRAG |
& fctile |
|
./pkg/ecco/cost_bottomdrag.F |
161 |
COST_BOTTOMDRAG |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_bottomdrag.F |
49 |
COST_BOTTOMDRAG |
_RL fctile |
|
./pkg/ecco/cost_ctdsclim.F |
173 |
COST_CTDSCLIM |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_ctdsclim.F |
194 |
COST_CTDSCLIM |
fctile = fctile + |
|
./pkg/ecco/cost_ctdsclim.F |
206 |
COST_CTDSCLIM |
fcthread = fcthread + fctile |
|
./pkg/ecco/cost_ctdsclim.F |
207 |
COST_CTDSCLIM |
objf_ctdsclim(bi,bj) = objf_ctdsclim(bi,bj) + fctile |
|
./pkg/ecco/cost_ctdsclim.F |
220 |
COST_CTDSCLIM |
& fctile |
|
./pkg/ecco/cost_ctdsclim.F |
71 |
COST_CTDSCLIM |
_RL fctile |
|
./pkg/ecco/cost_ctdtclim.F |
172 |
COST_CTDTCLIM |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_ctdtclim.F |
194 |
COST_CTDTCLIM |
fctile = fctile + |
|
./pkg/ecco/cost_ctdtclim.F |
206 |
COST_CTDTCLIM |
fcthread = fcthread + fctile |
|
./pkg/ecco/cost_ctdtclim.F |
207 |
COST_CTDTCLIM |
objf_ctdtclim(bi,bj) = objf_ctdtclim(bi,bj) + fctile |
|
./pkg/ecco/cost_ctdtclim.F |
220 |
COST_CTDTCLIM |
& fctile |
|
./pkg/ecco/cost_ctdtclim.F |
71 |
COST_CTDTCLIM |
_RL fctile |
|
./pkg/ecco/cost_diffkr.F |
102 |
COST_DIFFKR |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_diffkr.F |
110 |
COST_DIFFKR |
fctile = fctile |
|
./pkg/ecco/cost_diffkr.F |
114 |
COST_DIFFKR |
fctile = fctile + tmpx*tmpx |
|
./pkg/ecco/cost_diffkr.F |
121 |
COST_DIFFKR |
objf_diffkr(bi,bj) = objf_diffkr(bi,bj) + fctile |
|
./pkg/ecco/cost_diffkr.F |
122 |
COST_DIFFKR |
fcthread = fcthread + fctile |
|
./pkg/ecco/cost_diffkr.F |
135 |
COST_DIFFKR |
& fctile |
|
./pkg/ecco/cost_diffkr.F |
164 |
COST_DIFFKR |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_diffkr.F |
49 |
COST_DIFFKR |
_RL fctile |
|
./pkg/ecco/cost_forcing_gen.F |
212 |
COST_FORCING_GEN |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_forcing_gen.F |
222 |
COST_FORCING_GEN |
fctile = fctile |
|
./pkg/ecco/cost_forcing_gen.F |
227 |
COST_FORCING_GEN |
fctile = fctile + tmpx*tmpx |
|
./pkg/ecco/cost_forcing_gen.F |
236 |
COST_FORCING_GEN |
objf_gen_anom(bi,bj) = objf_gen_anom(bi,bj) + fctile |
|
./pkg/ecco/cost_forcing_gen.F |
262 |
COST_FORCING_GEN |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_forcing_gen.F |
277 |
COST_FORCING_GEN |
fctile = fctile |
|
./pkg/ecco/cost_forcing_gen.F |
288 |
COST_FORCING_GEN |
objf_gen_smoo(bi,bj) = objf_gen_smoo(bi,bj) + fctile |
|
./pkg/ecco/cost_forcing_gen.F |
86 |
COST_FORCING_GEN |
_RL fctile |
|
./pkg/ecco/cost_kapgm.F |
105 |
COST_KAPGM |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_kapgm.F |
113 |
COST_KAPGM |
fctile = fctile |
|
./pkg/ecco/cost_kapgm.F |
117 |
COST_KAPGM |
fctile = fctile + tmpx*tmpx |
|
./pkg/ecco/cost_kapgm.F |
124 |
COST_KAPGM |
objf_kapgm(bi,bj) = objf_kapgm(bi,bj) + fctile |
|
./pkg/ecco/cost_kapgm.F |
125 |
COST_KAPGM |
fcthread = fcthread + fctile |
|
./pkg/ecco/cost_kapgm.F |
138 |
COST_KAPGM |
& fctile |
|
./pkg/ecco/cost_kapgm.F |
167 |
COST_KAPGM |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_kapgm.F |
52 |
COST_KAPGM |
_RL fctile |
|
./pkg/ecco/cost_kapredi.F |
105 |
COST_KAPREDI |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_kapredi.F |
113 |
COST_KAPREDI |
fctile = fctile |
|
./pkg/ecco/cost_kapredi.F |
117 |
COST_KAPREDI |
fctile = fctile + tmpx*tmpx |
|
./pkg/ecco/cost_kapredi.F |
124 |
COST_KAPREDI |
objf_kapredi(bi,bj) = objf_kapredi(bi,bj) + fctile |
|
./pkg/ecco/cost_kapredi.F |
125 |
COST_KAPREDI |
fcthread = fcthread + fctile |
|
./pkg/ecco/cost_kapredi.F |
138 |
COST_KAPREDI |
& fctile |
|
./pkg/ecco/cost_kapredi.F |
167 |
COST_KAPREDI |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_kapredi.F |
52 |
COST_KAPREDI |
_RL fctile |
|
./pkg/ecco/cost_obcs_ageos.F |
148 |
COST_OBCS_AGEOS |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
270 |
COST_OBCS_AGEOS |
fctile = fctile + 100*wcurrent(k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
337 |
COST_OBCS_AGEOS |
fctile = fctile + 100*wcurrent(k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
401 |
COST_OBCS_AGEOS |
fctile = fctile + 100*wcurrent(k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
464 |
COST_OBCS_AGEOS |
fctile = fctile + 100*wcurrent(k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
474 |
COST_OBCS_AGEOS |
fcthread = fcthread + fctile |
|
./pkg/ecco/cost_obcs_ageos.F |
475 |
COST_OBCS_AGEOS |
objf_ageos(bi,bj) = objf_ageos(bi,bj) + fctile |
|
./pkg/ecco/cost_obcs_ageos.F |
488 |
COST_OBCS_AGEOS |
& fctile |
|
./pkg/ecco/cost_obcs_ageos.F |
71 |
COST_OBCS_AGEOS |
_RL fctile |
|
./pkg/ecco/cost_obcse.F |
124 |
COST_OBCSE |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_obcse.F |
131 |
COST_OBCSE |
fctile = fctile + |
|
./pkg/ecco/cost_obcse.F |
139 |
COST_OBCSE |
fcthread = fcthread + fctile |
|
./pkg/ecco/cost_obcse.F |
140 |
COST_OBCSE |
objf_obcse(bi,bj) = objf_obcse(bi,bj) + fctile |
|
./pkg/ecco/cost_obcse.F |
161 |
COST_OBCSE |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_obcse.F |
168 |
COST_OBCSE |
fctile = fctile + |
|
./pkg/ecco/cost_obcse.F |
176 |
COST_OBCSE |
fcthread = fcthread + fctile |
|
./pkg/ecco/cost_obcse.F |
177 |
COST_OBCSE |
objf_obcse(bi,bj) = objf_obcse(bi,bj) + fctile |
|
./pkg/ecco/cost_obcse.F |
197 |
COST_OBCSE |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_obcse.F |
204 |
COST_OBCSE |
fctile = fctile + |
|
./pkg/ecco/cost_obcse.F |
212 |
COST_OBCSE |
fcthread = fcthread + fctile |
|
./pkg/ecco/cost_obcse.F |
213 |
COST_OBCSE |
objf_obcse(bi,bj) = objf_obcse(bi,bj) + fctile |
|
./pkg/ecco/cost_obcse.F |
234 |
COST_OBCSE |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_obcse.F |
241 |
COST_OBCSE |
fctile = fctile + |
|
./pkg/ecco/cost_obcse.F |
249 |
COST_OBCSE |
fcthread = fcthread + fctile |
|
./pkg/ecco/cost_obcse.F |
250 |
COST_OBCSE |
objf_obcse(bi,bj) = objf_obcse(bi,bj) + fctile |
|
./pkg/ecco/cost_obcse.F |
63 |
COST_OBCSE |
_RL fctile |
|
./pkg/ecco/cost_obcsn.F |
124 |
COST_OBCSN |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_obcsn.F |
131 |
COST_OBCSN |
fctile = fctile + |
|
./pkg/ecco/cost_obcsn.F |
139 |
COST_OBCSN |
fcthread = fcthread + fctile |
|
./pkg/ecco/cost_obcsn.F |
140 |
COST_OBCSN |
objf_obcsn(bi,bj) = objf_obcsn(bi,bj) + fctile |
|
./pkg/ecco/cost_obcsn.F |
161 |
COST_OBCSN |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_obcsn.F |
168 |
COST_OBCSN |
fctile = fctile + |
|
./pkg/ecco/cost_obcsn.F |
176 |
COST_OBCSN |
fcthread = fcthread + fctile |
|
./pkg/ecco/cost_obcsn.F |
177 |
COST_OBCSN |
objf_obcsn(bi,bj) = objf_obcsn(bi,bj) + fctile |
|
./pkg/ecco/cost_obcsn.F |
197 |
COST_OBCSN |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_obcsn.F |
204 |
COST_OBCSN |
fctile = fctile + |
|
./pkg/ecco/cost_obcsn.F |
212 |
COST_OBCSN |
fcthread = fcthread + fctile |
|
./pkg/ecco/cost_obcsn.F |
213 |
COST_OBCSN |
objf_obcsn(bi,bj) = objf_obcsn(bi,bj) + fctile |
|
./pkg/ecco/cost_obcsn.F |
234 |
COST_OBCSN |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_obcsn.F |
241 |
COST_OBCSN |
fctile = fctile + |
|
./pkg/ecco/cost_obcsn.F |
249 |
COST_OBCSN |
fcthread = fcthread + fctile |
|
./pkg/ecco/cost_obcsn.F |
250 |
COST_OBCSN |
objf_obcsn(bi,bj) = objf_obcsn(bi,bj) + fctile |
|
./pkg/ecco/cost_obcsn.F |
63 |
COST_OBCSN |
_RL fctile |
|
./pkg/ecco/cost_obcss.F |
124 |
COST_OBCSS |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_obcss.F |
131 |
COST_OBCSS |
fctile = fctile + |
|
./pkg/ecco/cost_obcss.F |
139 |
COST_OBCSS |
fcthread = fcthread + fctile |
|
./pkg/ecco/cost_obcss.F |
140 |
COST_OBCSS |
objf_obcss(bi,bj) = objf_obcss(bi,bj) + fctile |
|
./pkg/ecco/cost_obcss.F |
161 |
COST_OBCSS |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_obcss.F |
168 |
COST_OBCSS |
fctile = fctile + |
|
./pkg/ecco/cost_obcss.F |
176 |
COST_OBCSS |
fcthread = fcthread + fctile |
|
./pkg/ecco/cost_obcss.F |
177 |
COST_OBCSS |
objf_obcss(bi,bj) = objf_obcss(bi,bj) + fctile |
|
./pkg/ecco/cost_obcss.F |
197 |
COST_OBCSS |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_obcss.F |
204 |
COST_OBCSS |
fctile = fctile + |
|
./pkg/ecco/cost_obcss.F |
212 |
COST_OBCSS |
fcthread = fcthread + fctile |
|
./pkg/ecco/cost_obcss.F |
213 |
COST_OBCSS |
objf_obcss(bi,bj) = objf_obcss(bi,bj) + fctile |
|
./pkg/ecco/cost_obcss.F |
234 |
COST_OBCSS |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_obcss.F |
241 |
COST_OBCSS |
fctile = fctile + |
|
./pkg/ecco/cost_obcss.F |
249 |
COST_OBCSS |
fcthread = fcthread + fctile |
|
./pkg/ecco/cost_obcss.F |
250 |
COST_OBCSS |
objf_obcss(bi,bj) = objf_obcss(bi,bj) + fctile |
|
./pkg/ecco/cost_obcss.F |
63 |
COST_OBCSS |
_RL fctile |
|
./pkg/ecco/cost_obcsvol.F |
202 |
COST_OBCSVOL |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_obcsvol.F |
211 |
COST_OBCSVOL |
fctile = fctile - tmpx* delZ(k) *dxg(i,j+jp1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
216 |
COST_OBCSVOL |
sumvol = sumvol + fctile |
|
./pkg/ecco/cost_obcsvol.F |
244 |
COST_OBCSVOL |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_obcsvol.F |
253 |
COST_OBCSVOL |
fctile = fctile + tmpx* delZ(k) *dxg(i,j+jp1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
258 |
COST_OBCSVOL |
sumvol = sumvol + fctile |
|
./pkg/ecco/cost_obcsvol.F |
287 |
COST_OBCSVOL |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_obcsvol.F |
296 |
COST_OBCSVOL |
fctile = fctile + tmpy* delZ(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
301 |
COST_OBCSVOL |
sumvol = sumvol + fctile |
|
./pkg/ecco/cost_obcsvol.F |
330 |
COST_OBCSVOL |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_obcsvol.F |
339 |
COST_OBCSVOL |
fctile = fctile - tmpy* delZ(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
344 |
COST_OBCSVOL |
sumvol = sumvol + fctile |
|
./pkg/ecco/cost_obcsvol.F |
71 |
COST_OBCSVOL |
_RL fctile |
|
./pkg/ecco/cost_obcsw.F |
124 |
COST_OBCSW |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_obcsw.F |
131 |
COST_OBCSW |
fctile = fctile + |
|
./pkg/ecco/cost_obcsw.F |
139 |
COST_OBCSW |
fcthread = fcthread + fctile |
|
./pkg/ecco/cost_obcsw.F |
140 |
COST_OBCSW |
objf_obcsw(bi,bj) = objf_obcsw(bi,bj) + fctile |
|
./pkg/ecco/cost_obcsw.F |
161 |
COST_OBCSW |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_obcsw.F |
168 |
COST_OBCSW |
fctile = fctile + |
|
./pkg/ecco/cost_obcsw.F |
176 |
COST_OBCSW |
fcthread = fcthread + fctile |
|
./pkg/ecco/cost_obcsw.F |
177 |
COST_OBCSW |
objf_obcsw(bi,bj) = objf_obcsw(bi,bj) + fctile |
|
./pkg/ecco/cost_obcsw.F |
197 |
COST_OBCSW |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_obcsw.F |
204 |
COST_OBCSW |
fctile = fctile + |
|
./pkg/ecco/cost_obcsw.F |
212 |
COST_OBCSW |
fcthread = fcthread + fctile |
|
./pkg/ecco/cost_obcsw.F |
213 |
COST_OBCSW |
objf_obcsw(bi,bj) = objf_obcsw(bi,bj) + fctile |
|
./pkg/ecco/cost_obcsw.F |
234 |
COST_OBCSW |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_obcsw.F |
241 |
COST_OBCSW |
fctile = fctile + |
|
./pkg/ecco/cost_obcsw.F |
249 |
COST_OBCSW |
fcthread = fcthread + fctile |
|
./pkg/ecco/cost_obcsw.F |
250 |
COST_OBCSW |
objf_obcsw(bi,bj) = objf_obcsw(bi,bj) + fctile |
|
./pkg/ecco/cost_obcsw.F |
63 |
COST_OBCSW |
_RL fctile |
|
./pkg/ecco/cost_salt.F |
173 |
COST_SALT |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_salt.F |
195 |
COST_SALT |
fctile = fctile + |
|
./pkg/ecco/cost_salt.F |
218 |
COST_SALT |
fcthread = fcthread + fctile |
|
./pkg/ecco/cost_salt.F |
219 |
COST_SALT |
objf_salt(bi,bj) = objf_salt(bi,bj) + fctile |
|
./pkg/ecco/cost_salt.F |
65 |
COST_SALT |
_RL fctile |
|
./pkg/ecco/cost_salt0.F |
114 |
COST_SALT0 |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_salt0.F |
123 |
COST_SALT0 |
fctile = fctile |
|
./pkg/ecco/cost_salt0.F |
127 |
COST_SALT0 |
fctile = fctile + tmpx*tmpx |
|
./pkg/ecco/cost_salt0.F |
136 |
COST_SALT0 |
objf_salt0(bi,bj) = objf_salt0(bi,bj) + fctile |
|
./pkg/ecco/cost_salt0.F |
154 |
COST_SALT0 |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_salt0.F |
170 |
COST_SALT0 |
fctile = fctile |
|
./pkg/ecco/cost_salt0.F |
179 |
COST_SALT0 |
objf_salt0smoo(bi,bj) = objf_salt0smoo(bi,bj) + fctile |
|
./pkg/ecco/cost_salt0.F |
61 |
COST_SALT0 |
_RL fctile |
|
./pkg/ecco/cost_salt_ini_fin.F |
104 |
COST_SALT_INI_FIN |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_salt_ini_fin.F |
110 |
COST_SALT_INI_FIN |
fctile = fctile |
|
./pkg/ecco/cost_salt_ini_fin.F |
119 |
COST_SALT_INI_FIN |
& objf_salt_ini_fin(bi,bj) + fctile |
|
./pkg/ecco/cost_salt_ini_fin.F |
120 |
COST_SALT_INI_FIN |
fcthread = fcthread + fctile |
|
./pkg/ecco/cost_salt_ini_fin.F |
133 |
COST_SALT_INI_FIN |
& fctile |
|
./pkg/ecco/cost_salt_ini_fin.F |
164 |
COST_SALT_INI_FIN |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_salt_ini_fin.F |
53 |
COST_SALT_INI_FIN |
_RL fctile |
|
./pkg/ecco/cost_tau_eddy.F |
108 |
COST_TAU_EDDY |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_tau_eddy.F |
115 |
COST_TAU_EDDY |
fctile = fctile |
|
./pkg/ecco/cost_tau_eddy.F |
119 |
COST_TAU_EDDY |
fctile = fctile + tmpx*tmpx |
|
./pkg/ecco/cost_tau_eddy.F |
126 |
COST_TAU_EDDY |
objf_eddytau(bi,bj) = objf_eddytau(bi,bj) + fctile |
|
./pkg/ecco/cost_tau_eddy.F |
127 |
COST_TAU_EDDY |
fcthread = fcthread + fctile |
|
./pkg/ecco/cost_tau_eddy.F |
143 |
COST_TAU_EDDY |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_tau_eddy.F |
150 |
COST_TAU_EDDY |
fctile = fctile |
|
./pkg/ecco/cost_tau_eddy.F |
154 |
COST_TAU_EDDY |
fctile = fctile + tmpx*tmpx |
|
./pkg/ecco/cost_tau_eddy.F |
161 |
COST_TAU_EDDY |
objf_eddytau(bi,bj) = objf_eddytau(bi,bj) + fctile |
|
./pkg/ecco/cost_tau_eddy.F |
162 |
COST_TAU_EDDY |
fcthread = fcthread + fctile |
|
./pkg/ecco/cost_tau_eddy.F |
175 |
COST_TAU_EDDY |
& fctile |
|
./pkg/ecco/cost_tau_eddy.F |
258 |
COST_TAU_EDDY |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_tau_eddy.F |
55 |
COST_TAU_EDDY |
_RL fctile |
|
./pkg/ecco/cost_theta.F |
172 |
COST_THETA |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_theta.F |
194 |
COST_THETA |
fctile = fctile + |
|
./pkg/ecco/cost_theta.F |
217 |
COST_THETA |
fcthread = fcthread + fctile |
|
./pkg/ecco/cost_theta.F |
218 |
COST_THETA |
objf_temp(bi,bj) = objf_temp(bi,bj) + fctile |
|
./pkg/ecco/cost_theta.F |
65 |
COST_THETA |
_RL fctile |
|
./pkg/ecco/cost_theta0.F |
114 |
COST_THETA0 |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_theta0.F |
123 |
COST_THETA0 |
fctile = fctile |
|
./pkg/ecco/cost_theta0.F |
127 |
COST_THETA0 |
fctile = fctile + tmpx*tmpx |
|
./pkg/ecco/cost_theta0.F |
136 |
COST_THETA0 |
objf_temp0(bi,bj) = objf_temp0(bi,bj) + fctile |
|
./pkg/ecco/cost_theta0.F |
154 |
COST_THETA0 |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_theta0.F |
170 |
COST_THETA0 |
fctile = fctile |
|
./pkg/ecco/cost_theta0.F |
179 |
COST_THETA0 |
objf_temp0smoo(bi,bj) = objf_temp0smoo(bi,bj) + fctile |
|
./pkg/ecco/cost_theta0.F |
61 |
COST_THETA0 |
_RL fctile |
|
./pkg/ecco/cost_theta_ini_fin.F |
104 |
COST_THETA_INI_FIN |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_theta_ini_fin.F |
110 |
COST_THETA_INI_FIN |
fctile = fctile |
|
./pkg/ecco/cost_theta_ini_fin.F |
119 |
COST_THETA_INI_FIN |
& objf_theta_ini_fin(bi,bj) + fctile |
|
./pkg/ecco/cost_theta_ini_fin.F |
120 |
COST_THETA_INI_FIN |
fcthread = fcthread + fctile |
|
./pkg/ecco/cost_theta_ini_fin.F |
133 |
COST_THETA_INI_FIN |
& fctile |
|
./pkg/ecco/cost_theta_ini_fin.F |
164 |
COST_THETA_INI_FIN |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_theta_ini_fin.F |
53 |
COST_THETA_INI_FIN |
_RL fctile |