| File |
Line number |
Procedure |
Code |
|
./pkg/mom_common/mom_calc_hdiv.F |
39 |
MOM_CALC_HDIV |
& uFld(i+1, j )*dyg(i+1, j ,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
40 |
MOM_CALC_HDIV |
& -uFld( i , j )*dyg( i , j ,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
53 |
MOM_CALC_HDIV |
& ( ( uFld(i+1, j )*dyg(i+1, j ,bi,bj)*hFacW(i+1, j ,K,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
54 |
MOM_CALC_HDIV |
& -uFld( i , j )*dyg( i , j ,bi,bj)*hFacW( i , j ,K,bi,bj) ) |
|
./pkg/mom_common/mom_calc_tension.F |
55 |
MOM_CALC_TENSION |
& ( dyg(i+1, j ,bi,bj)*uFld(i+1, j ) |
|
./pkg/mom_common/mom_calc_tension.F |
56 |
MOM_CALC_TENSION |
& -dyg( i , j ,bi,bj)*uFld( i , j ) |
|
./pkg/ctrl/ctrl_obcsvol.F |
262 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
263 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
298 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
299 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
420 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
421 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
456 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
457 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
302 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
308 |
CTRL_VOLFLUX |
tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
365 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
373 |
CTRL_VOLFLUX |
tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
377 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
296 |
COST_OBCSVOL |
fctile = fctile + tmpy* delZ(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
339 |
COST_OBCSVOL |
fctile = fctile - tmpy* delZ(k) *dyg(i+ip1,j,bi,bj) |