| 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/ctrl/ctrl_obcsvol.F |
190 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
191 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
226 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
227 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
348 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
349 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
384 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
385 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
198 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
202 |
CTRL_VOLFLUX |
tmpflux = tmpflux -tmpx*delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
247 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
252 |
CTRL_VOLFLUX |
tmpflux = tmpflux +tmpx*delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
211 |
COST_OBCSVOL |
fctile = fctile - tmpx* delZ(k) *dxg(i,j+jp1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
253 |
COST_OBCSVOL |
fctile = fctile + tmpx* delZ(k) *dxg(i,j+jp1,bi,bj) |