| File |
Line number |
Procedure |
Code |
|
./pkg/mom_common/mom_calc_hdiv.F |
41 |
MOM_CALC_HDIV |
& +vFld( i ,j+1)*dxg( i ,j+1,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
42 |
MOM_CALC_HDIV |
& -vFld( i , j )*dxg( i , j ,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
55 |
MOM_CALC_HDIV |
& +( vFld( i ,j+1)*dxg( i ,j+1,bi,bj)*hFacS( i ,j+1,K,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
56 |
MOM_CALC_HDIV |
& -vFld( i , j )*dxg( i , j ,bi,bj)*hFacS( i , j ,K,bi,bj) ) |
|
./pkg/mom_common/mom_calc_tension.F |
57 |
MOM_CALC_TENSION |
& -dxg( i ,j+1,bi,bj)*vFld( i ,j+1) |
|
./pkg/mom_common/mom_calc_tension.F |
58 |
MOM_CALC_TENSION |
& +dxg( i , j ,bi,bj)*vFld( i , j ) )*recip_rA(i,j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
209 |
COST_OBCSVOL |
fctile = fctile - tmpx* delZ(k) *dxg(i,j+jp1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
251 |
COST_OBCSVOL |
fctile = fctile + tmpx* delZ(k) *dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
188 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
189 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
224 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
225 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
346 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
347 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
382 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
383 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
196 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
200 |
CTRL_VOLFLUX |
tmpflux = tmpflux -tmpx*delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
245 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
250 |
CTRL_VOLFLUX |
tmpflux = tmpflux +tmpx*delR(k)*dxg(i,j+jp1,bi,bj) |