| File |
Line number |
Procedure |
Code |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
71 |
COST_HFLUX |
& whfluxm(i,j,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
116 |
COST_WEIGHTS |
& whfluxm, 1, 0, myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
117 |
COST_WEIGHTS |
_EXCH_XY_RL(whfluxm , myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
123 |
COST_WEIGHTS |
IF (whfluxm(i,j,bi,bj) .NE. 0. _d 0) THEN |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
124 |
COST_WEIGHTS |
whfluxm(i,j,bi,bj) = 1. _d 0 /whfluxm(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
125 |
COST_WEIGHTS |
& /whfluxm(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
127 |
COST_WEIGHTS |
whfluxm(i,j,bi,bj) = 1. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
134 |
COST_WEIGHTS |
CALL ACTIVE_WRITE_XY('whfluxm',whfluxm,1,0,myThid,dummy) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
65 |
COST_WEIGHTS |
whfluxm(i,j,bi,bj)= 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
71 |
COST_HFLUX |
& whfluxm(i,j,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
116 |
COST_WEIGHTS |
& whfluxm, 1, 0, myThid ) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
117 |
COST_WEIGHTS |
_EXCH_XY_RL(whfluxm , myThid ) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
123 |
COST_WEIGHTS |
IF (whfluxm(i,j,bi,bj) .NE. 0. _d 0) THEN |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
124 |
COST_WEIGHTS |
whfluxm(i,j,bi,bj) = 1. _d 0 /whfluxm(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
125 |
COST_WEIGHTS |
& /whfluxm(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
127 |
COST_WEIGHTS |
whfluxm(i,j,bi,bj) = 1. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
134 |
COST_WEIGHTS |
CALL ACTIVE_WRITE_XY('whfluxm',whfluxm,1,0,myThid,dummy) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
65 |
COST_WEIGHTS |
whfluxm(i,j,bi,bj)= 0. _d 0 |
|
./pkg/ctrl/ctrl_weights.h |
50 |
NO PROCEDURE |
common /cost_weights_r/ whfluxm |
|
./pkg/ctrl/ctrl_weights.h |
51 |
NO PROCEDURE |
_RL whfluxm (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
|
./pkg/ecco/ecco_cost.h |
1162 |
NO PROCEDURE |
_RL whfluxm (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
|
./pkg/ecco/ecco_cost_weights.F |
1086 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = max(whfluxm(i,j,bi,bj),whflux0m) |
|
./pkg/ecco/ecco_cost_weights.F |
121 |
ECCO_COST_WEIGHTS |
whfluxm (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1780 |
ECCO_COST_WEIGHTS |
if (whfluxm(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1781 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1782 |
ECCO_COST_WEIGHTS |
& 1./whfluxm(i,j,bi,bj)/whfluxm(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1784 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = 0.0 _d 0 |