| File |
Line number |
Procedure |
Code |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
42 |
COST_TRACER |
_RL locfc |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
49 |
COST_TRACER |
locfc = 0. _d 0 |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
55 |
COST_TRACER |
locfc = locfc + maskC(i,j,k,bi,bj)* |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
62 |
COST_TRACER |
objf_tracer(bi,bj) = objf_tracer(bi,bj) + locfc |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
40 |
COST_HFLUX |
_RL locfc,tmpC |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
68 |
COST_HFLUX |
locfc = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
71 |
COST_HFLUX |
locfc = locfc + tmpC*maskC(i,j,1,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
79 |
COST_HFLUX |
objf_hflux_tut(bi,bj) = locfc |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
37 |
COST_TEMP |
_RL locfc,tmp |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
74 |
COST_TEMP |
locfc = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
78 |
COST_TEMP |
locfc = locfc + tmp*maskC(i,j,k,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
85 |
COST_TEMP |
objf_temp_tut(bi,bj) = locfc |
|
./pkg/cost/cost_atlantic_heat.F |
35 |
COST_ATLANTIC_HEAT |
_RL locfc |
|
./pkg/cost/cost_atlantic_heat.F |
63 |
COST_ATLANTIC_HEAT |
locfc = 0.0 |
|
./pkg/cost/cost_atlantic_heat.F |
82 |
COST_ATLANTIC_HEAT |
locfc = locfc + sum*dxG(i,j,bi,bj) |
|
./pkg/cost/cost_tracer.F |
42 |
COST_TRACER |
_RL locfc |
|
./pkg/cost/cost_tracer.F |
49 |
COST_TRACER |
locfc = 0. _d 0 |
|
./pkg/cost/cost_tracer.F |
55 |
COST_TRACER |
locfc = locfc + maskC(i,j,k,bi,bj)* |
|
./pkg/cost/cost_tracer.F |
62 |
COST_TRACER |
objf_tracer(bi,bj) = objf_tracer(bi,bj) + locfc |
|
./pkg/cost/cost_vector.F |
35 |
COST_VECTOR |
_RL locfc |
|
./pkg/cost/cost_vector.F |
59 |
COST_VECTOR |
locfc = 0.0 |
|
./pkg/ecco/cost_tau_eddy.F |
215 |
COST_TAU_EDDY |
locfc = 0.0 |
|
./pkg/ecco/cost_tau_eddy.F |
236 |
COST_TAU_EDDY |
locfc = locfc + maskW(i,j,k,bi,bj)* |
|
./pkg/ecco/cost_tau_eddy.F |
242 |
COST_TAU_EDDY |
locfc = locfc + maskS(i,j,k,bi,bj)* |
|
./pkg/ecco/cost_tau_eddy.F |
249 |
COST_TAU_EDDY |
objf_eddytau(bi,bj) = locfc |
|
./pkg/ecco/cost_tau_eddy.F |
250 |
COST_TAU_EDDY |
print*,'objf_eddytau =',locfc |
|
./pkg/ecco/cost_tau_eddy.F |
52 |
COST_TAU_EDDY |
_RL locfc |