| 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 |
38 |
COST_HFLUX |
_RL locfc,tmpC |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
56 |
COST_HFLUX |
locfc = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
59 |
COST_HFLUX |
locfc = locfc + tmpC*maskC(i,j,1,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
67 |
COST_HFLUX |
objf_hflux_tut(bi,bj) = locfc |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
35 |
COST_TEMP |
_RL locfc,tmp |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
62 |
COST_TEMP |
locfc = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
66 |
COST_TEMP |
locfc = locfc + tmp*maskC(i,j,k,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
73 |
COST_TEMP |
objf_temp_tut(bi,bj) = locfc |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
38 |
COST_HFLUX |
_RL locfc,tmpC |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
56 |
COST_HFLUX |
locfc = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
59 |
COST_HFLUX |
locfc = locfc + tmpC*maskC(i,j,1,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
67 |
COST_HFLUX |
objf_hflux_tut(bi,bj) = locfc |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
35 |
COST_TEMP |
_RL locfc,tmp |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
62 |
COST_TEMP |
locfc = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
66 |
COST_TEMP |
locfc = locfc + tmp*maskC(i,j,k,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
73 |
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/ecco_cost_final.F |
1310 |
ECCO_COST_FINAL |
locfc=locfc+glofc |
|
./pkg/ecco/ecco_cost_final.F |
1326 |
ECCO_COST_FINAL |
& ' --> fc =', locfc |
|
./pkg/ecco/ecco_cost_final.F |
1338 |
ECCO_COST_FINAL |
& 'fc =', locfc, 0. |
|
./pkg/ecco/ecco_cost_final.F |
1618 |
ECCO_COST_FINAL |
& ' cost_Final: final cost function = ',locfc |
|
./pkg/ecco/ecco_cost_final.F |
187 |
ECCO_COST_FINAL |
locfc = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
798 |
ECCO_COST_FINAL |
CALL GLOBAL_SUM_TILE_RL( tile_fc, locfc, myThid ) |
|
./pkg/ecco/ecco_cost_final.F |
80 |
ECCO_COST_FINAL |
_RL locfc |