| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_cost_weights.F |
1110 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = max(whfluxm(i,j,bi,bj),whflux0m) |
|
./pkg/ecco/ecco_cost_weights.F |
130 |
ECCO_COST_WEIGHTS |
whfluxm (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1762 |
ECCO_COST_WEIGHTS |
if (whfluxm(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1763 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1764 |
ECCO_COST_WEIGHTS |
& 1./whfluxm(i,j,bi,bj)/whfluxm(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1766 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
60 |
COST_HFLUX |
& whfluxm(i,j,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
119 |
COST_WEIGHTS |
& whfluxm, 1, 0, myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
120 |
COST_WEIGHTS |
_EXCH_XY_RL(whfluxm , myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
126 |
COST_WEIGHTS |
IF (whfluxm(i,j,bi,bj) .NE. 0. _d 0) THEN |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
127 |
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 |
128 |
COST_WEIGHTS |
& /whfluxm(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
130 |
COST_WEIGHTS |
whfluxm(i,j,bi,bj) = 1. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
137 |
COST_WEIGHTS |
CALL ACTIVE_WRITE_XY('whfluxm',whfluxm,1,0,myThid,dummy) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
68 |
COST_WEIGHTS |
whfluxm(i,j,bi,bj)= 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
60 |
COST_HFLUX |
& whfluxm(i,j,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
119 |
COST_WEIGHTS |
& whfluxm, 1, 0, myThid ) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
120 |
COST_WEIGHTS |
_EXCH_XY_RL(whfluxm , myThid ) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
126 |
COST_WEIGHTS |
IF (whfluxm(i,j,bi,bj) .NE. 0. _d 0) THEN |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
127 |
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 |
128 |
COST_WEIGHTS |
& /whfluxm(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
130 |
COST_WEIGHTS |
whfluxm(i,j,bi,bj) = 1. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
137 |
COST_WEIGHTS |
CALL ACTIVE_WRITE_XY('whfluxm',whfluxm,1,0,myThid,dummy) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
68 |
COST_WEIGHTS |
whfluxm(i,j,bi,bj)= 0. _d 0 |
|
./pkg/ctrl/ctrl_weights.h |
25 |
NO PROCEDURE |
common /cost_weights_r/ whfluxm |
|
./pkg/ctrl/ctrl_weights.h |
26 |
NO PROCEDURE |
_RL whfluxm (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
|
./pkg/ecco/ecco_cost.h |
1005 |
NO PROCEDURE |
_RL whfluxm (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |