| File |
Line number |
Procedure |
Code |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1047 |
ECCO_COST_WEIGHTS |
if (whfluxm(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1048 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1049 |
ECCO_COST_WEIGHTS |
& 1./whfluxm(i,j,bi,bj)/whfluxm(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1051 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
111 |
ECCO_COST_WEIGHTS |
whfluxm (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
869 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = max(whfluxm(i,j,bi,bj),whflux0m) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1040 |
ECCO_COST_WEIGHTS |
if (whfluxm(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1041 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1042 |
ECCO_COST_WEIGHTS |
& 1./whfluxm(i,j,bi,bj)/whfluxm(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1044 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
110 |
ECCO_COST_WEIGHTS |
whfluxm (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
865 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = max(whfluxm(i,j,bi,bj),whflux0m) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
72 |
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 |
|
./pkg/ctrl/ctrl_weights.h |
48 |
NO PROCEDURE |
common /cost_weights_r/ whfluxm |
|
./pkg/ctrl/ctrl_weights.h |
49 |
NO PROCEDURE |
_RL whfluxm (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
|
./pkg/ecco/ecco_cost.h |
1037 |
NO PROCEDURE |
_RL whfluxm (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
|
./pkg/ecco/ecco_cost_weights.F |
1034 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = max(whfluxm(i,j,bi,bj),whflux0m) |
|
./pkg/ecco/ecco_cost_weights.F |
118 |
ECCO_COST_WEIGHTS |
whfluxm (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1635 |
ECCO_COST_WEIGHTS |
if (whfluxm(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1636 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1637 |
ECCO_COST_WEIGHTS |
& 1./whfluxm(i,j,bi,bj)/whfluxm(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1639 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = 0.0 _d 0 |