| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_cost_weights.F |
1032 |
ECCO_COST_WEIGHTS |
call ACTIVE_WRITE_XY_LOC( 'waqh', waqh, 1, 0, mythid, dummy) |
|
./pkg/ecco/ecco_cost_weights.F |
124 |
ECCO_COST_WEIGHTS |
waqh (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
798 |
ECCO_COST_WEIGHTS |
& waqh, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
806 |
ECCO_COST_WEIGHTS |
if (waqh(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
807 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
810 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = waqh(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
811 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = max(waqh(i,j,bi,bj),waqh0) |
|
./pkg/ecco/ecco_cost_weights.F |
915 |
ECCO_COST_WEIGHTS |
if (waqh(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
916 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
917 |
ECCO_COST_WEIGHTS |
& 1./waqh(i,j,bi,bj)/waqh(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
919 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost.h |
701 |
NO PROCEDURE |
& watemp,waqh,wuwind,wvwind, |
|
./pkg/ecco/ecco_cost.h |
729 |
NO PROCEDURE |
_RL waqh (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
|
./pkg/ecco/cost_aqh.F |
119 |
COST_AQH |
& + waqh(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_aqh.F |
121 |
COST_AQH |
if ( waqh(i,j,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1084 |
ECCO_COST_WEIGHTS |
call ACTIVE_WRITE_XY_LOC( 'waqh', waqh, 1, 0, mythid, dummy) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
124 |
ECCO_COST_WEIGHTS |
waqh (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
855 |
ECCO_COST_WEIGHTS |
& waqh, irec, mythid ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
863 |
ECCO_COST_WEIGHTS |
if (waqh(i,j,bi,bj) .lt. -9900.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
864 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
867 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = waqh(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
868 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = max(waqh(i,j,bi,bj),waqh0) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
975 |
ECCO_COST_WEIGHTS |
if (waqh(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
976 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
977 |
ECCO_COST_WEIGHTS |
& 1./waqh(i,j,bi,bj)/waqh(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
979 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = 0.0 _d 0 |