| 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_biogeo/code_oad/cost_tracer.F |
42 |
COST_TRACER |
_RL locfc |
|
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F |
49 |
COST_TRACER |
locfc = 0. _d 0 |
|
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F |
55 |
COST_TRACER |
locfc = locfc + maskC(i,j,k,bi,bj)* |
|
./verification/tutorial_global_oce_biogeo/code_oad/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 |
39 |
COST_HFLUX |
_RL locfc,tmpC |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
67 |
COST_HFLUX |
locfc = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
70 |
COST_HFLUX |
locfc = locfc + tmpC*maskC(i,j,1,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
78 |
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 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
39 |
COST_HFLUX |
_RL locfc,tmpC |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
67 |
COST_HFLUX |
locfc = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
70 |
COST_HFLUX |
locfc = locfc + tmpC*maskC(i,j,1,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
78 |
COST_HFLUX |
objf_hflux_tut(bi,bj) = locfc |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
37 |
COST_TEMP |
_RL locfc,tmp |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
74 |
COST_TEMP |
locfc = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
78 |
COST_TEMP |
locfc = locfc + tmp*maskC(i,j,k,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_oad/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 |
41 |
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 + hFacC(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 |
216 |
COST_TAU_EDDY |
locfc = 0.0 |
|
./pkg/ecco/cost_tau_eddy.F |
237 |
COST_TAU_EDDY |
locfc = locfc + maskW(i,j,k,bi,bj)* |
|
./pkg/ecco/cost_tau_eddy.F |
243 |
COST_TAU_EDDY |
locfc = locfc + maskS(i,j,k,bi,bj)* |
|
./pkg/ecco/cost_tau_eddy.F |
250 |
COST_TAU_EDDY |
objf_eddytau(bi,bj) = locfc |
|
./pkg/ecco/cost_tau_eddy.F |
251 |
COST_TAU_EDDY |
print*,'objf_eddytau =',locfc |
|
./pkg/ecco/cost_tau_eddy.F |
53 |
COST_TAU_EDDY |
_RL locfc |
|
./pkg/ecco/ecco_cost_final.F |
1187 |
ECCO_COST_FINAL |
locfc=locfc+glofc |
|
./pkg/ecco/ecco_cost_final.F |
1201 |
ECCO_COST_FINAL |
& ' --> fc =', locfc |
|
./pkg/ecco/ecco_cost_final.F |
1211 |
ECCO_COST_FINAL |
& 'fc =', locfc, 0. |
|
./pkg/ecco/ecco_cost_final.F |
1462 |
ECCO_COST_FINAL |
& ' cost_Final: final cost function = ',locfc |
|
./pkg/ecco/ecco_cost_final.F |
162 |
ECCO_COST_FINAL |
locfc = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
69 |
ECCO_COST_FINAL |
_RL locfc |
|
./pkg/ecco/ecco_cost_final.F |
724 |
ECCO_COST_FINAL |
CALL GLOBAL_SUM_TILE_RL( tile_fc, locfc, myThid ) |