| File |
Line number |
Procedure |
Code |
|
./pkg/mom_fluxform/mom_fluxform.F |
256 |
MOM_FLUXFORM |
yA(i,j) = _dxG(i,j,bi,bj) |
|
./model/src/ini_cg2d.F |
101 |
INI_CG2D |
faceArea = _dxG(I,J,bi,bj)*drF(K) |
|
./model/src/ini_cg3d.F |
121 |
INI_CG3D |
faceArea = _dxG(I,J,bi,bj)*drF(K) |
|
./model/src/integr_continuity.F |
86 |
INTEGR_CONTINUITY |
vTrans(i,j) = vFld(i,j,k,bi,bj)*_dxG(i,j,bi,bj) |
|
./model/src/update_cg2d.F |
86 |
UPDATE_CG2D |
faceArea = _dxG(I,J,bi,bj)*drF(K) |
|
./model/src/calc_gw.F |
167 |
CALC_GW |
yA(i,j) = _dxG(i,j,bi,bj)*rThickC_S(i,j) |
|
./model/src/calc_gw.F |
356 |
CALC_GW |
& )*halfRL*_dxG(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
172 |
SOLVE_FOR_PRESSURE |
vf(i,j) = _dxG(i,j,bi,bj) |
|
./model/src/integrate_for_w.F |
56 |
INTEGRATE_FOR_W |
& _dxG(i,j,bi,bj) |
|
./model/src/calc_common_factors.F |
81 |
CALC_COMMON_FACTORS |
yA(i,j) = _dxG(i,j,bi,bj)*drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
218 |
GGL90_CALC |
yA(i,j) = _dxG(i,j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
102 |
MOM_W_SIDEDRAG |
& +heightStepS*_dxG(i,j,bi,bj)*_recip_dyC(i,j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
116 |
MOM_W_SIDEDRAG |
& +heightStepN*_dxG(i,j+1,bi,bj)*_recip_dyC(i,j+1,bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
161 |
COST_ATLANTIC |
$ * _dxG(i,j,bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
205 |
COST_ATLANTIC |
$ * _dxG(i,j,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
202 |
COST_TRANS_MERID |
$ * _dxG(i,j,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
207 |
COST_TRANS_MERID |
$ * _dxG(i,j,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
212 |
COST_TRANS_MERID |
$ * _dxG(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
115 |
ADVECT |
& + _dxG(I ,J+1,bi,bj) * |
|
./pkg/seaice/advect.F |
118 |
ADVECT |
& - _dxG(I ,J ,bi,bj)* |
|
./pkg/seaice/advect.F |
165 |
ADVECT |
& * _dxG(I,J+1,bi,bj) - |
|
./pkg/seaice/advect.F |
168 |
ADVECT |
& * _dxG(I,J,bi,bj)) |
|
./pkg/seaice/advect.F |
188 |
ADVECT |
& + _dxG(I ,J+1,bi,bj) * |
|
./pkg/seaice/advect.F |
191 |
ADVECT |
& - _dxG(I ,J ,bi,bj) * |
|
./pkg/seaice/advect.F |
92 |
ADVECT |
& * _dxG(I ,J+1,bi,bj) - |
|
./pkg/seaice/advect.F |
95 |
ADVECT |
& * _dxG(I,J,bi,bj)) |
|
./pkg/seaice/seaice_advection.F |
236 |
SEAICE_ADVECTION |
yA(i,j) = _dxG(i,j,bi,bj) * maskS(i,j,k,bi,bj) |
|
./pkg/seaice/lsr.F |
207 |
LSR |
& * 1.0 _d 0 /( _dxG(I,J,bi,bj) + _dxG(I-1,J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
213 |
LSR |
& * 1.0 _d 0 /( _dxG(I,J,bi,bj) + _dxG(I-1,J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
416 |
LSR |
& * 1. _d 0 /( _dxG(I,J,bi,bj) + _dxG(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
421 |
LSR |
& * 2. _d 0 /( _dxG(I,J+1,bi,bj) + _dxG(I-1,J+1,bi,bj)) |
|
./pkg/seaice/lsr.F |
423 |
LSR |
& * 2. _d 0 /( _dxG(I,J-1,bi,bj) + _dxG(I-1,J-1,bi,bj))) |
|
./pkg/seaice/lsr.F |
443 |
LSR |
& * 1. _d 0 /( _dxG(I,J,bi,bj) + _dxG(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_advdiff.F |
177 |
SEAICE_ADVDIFF |
yA(i,j) = _dxG(i,j,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./pkg/seaice/diffus.F |
63 |
DIFFUS |
& * _dxG(I+1,J+1,bi,bj)*HEFFM(I,J+1,bi,bj) |
|
./pkg/seaice/diffus.F |
65 |
DIFFUS |
& * _dxG(I+1,J, bi,bj)*HEFFM(I,J-1,bi,bj)) |
|
./pkg/seaice/diffus.F |
82 |
DIFFUS |
& + _dxG(I,J+1,bi,bj) * _recip_dyC(I,J+1,bi,bj) |
|
./pkg/seaice/diffus.F |
88 |
DIFFUS |
& - _dxG(I,J,bi,bj) * _recip_dyC(I,J,bi,bj) |