| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_calc.F |
348 |
GGL90_CALC |
xA(i,j) = _dyG(i,j,bi,bj) |
|
./model/src/calc_common_factors.F |
80 |
CALC_COMMON_FACTORS |
xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k) |
|
./model/src/calc_div_ghat.F |
64 |
CALC_DIV_GHAT |
xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/mom_common/mom_w_sidedrag.F |
82 |
MOM_W_SIDEDRAG |
& *( heightStepW*_dyG( i ,j,bi,bj)*_recip_dxC( i ,j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
92 |
MOM_W_SIDEDRAG |
& +heightStepE*_dyG(i+1,j,bi,bj)*_recip_dxC(i+1,j,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
257 |
MOM_FLUXFORM |
xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k) |
|
./model/src/calc_gw.F |
195 |
CALC_GW |
xA(i,j) = _dyG(i,j,bi,bj)*rThickC_W(i,j) |
|
./model/src/calc_gw.F |
242 |
CALC_GW |
xA(i,j) = _dyG(i,j,bi,bj)*rThickC_W(i,j) |
|
./model/src/calc_gw.F |
455 |
CALC_GW |
& )*halfRL*_dyG(i,j,bi,bj)*deepFacF(k) |
|
./pkg/seaice/advect.F |
132 |
ADVECT |
afx(I,J) = _dyG(I,J,bi,bj) * UI(I,J,bi,bj) |
|
./pkg/seaice/diffus.F |
83 |
DIFFUS |
dfx(I,J) = _dyG(I,J,bi,bj) * _recip_dxC(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
174 |
SEAICE_ADVDIFF |
xA(i,j) = _dyG(i,j,bi,bj)*_maskW(i,j,ks,bi,bj) |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
58 |
SEAICE_COST_ACCUMULATE_MEAN |
& *_dyG(i,j,bi,bj)/lastinterval*deltaTClock |
|
./pkg/seaice/seaice_init_fixed.F |
134 |
SEAICE_INIT_FIXED |
& * ( _dyG(I+1,J,bi,bj) - _dyG(I,J,bi,bj) ) |
|
./pkg/smooth/smooth_rhs.F |
100 |
SMOOTH_RHS |
xA(i,j,bi,bj) = _dyG(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
187 |
THSICE_ADVDIFF |
uTrIce(i,j) = uIce(i,j)*_dyG(i,j,bi,bj) |
|
./model/src/ini_cg2d.F |
102 |
INI_CG2D |
faceArea = _dyG(i,j,bi,bj)*drF(k) |
|
./model/src/ini_cg3d.F |
114 |
INI_CG3D |
faceArea = _dyG(i,j,bi,bj)*drF(k) |
|
./model/src/integr_continuity.F |
96 |
INTEGR_CONTINUITY |
uTrans(i,j) = uFld(i,j,k,bi,bj)*_dyG(i,j,bi,bj) |
|
./model/src/integrate_for_w.F |
61 |
INTEGRATE_FOR_W |
& *_dyG(i,j,bi,bj)*deepFacC(k)*rhoFacC(k) |
|
./model/src/rotate_spherical_polar_grid.F |
233 |
CALC_ANGLES |
IF ( _dyG(I,J,bi,bj) .GT. 0 ) uPseudo(I,J) = |
|
./model/src/rotate_spherical_polar_grid.F |
235 |
CALC_ANGLES |
& / _dyG(I,J,bi,bj) |
|
./model/src/update_cg2d.F |
83 |
UPDATE_CG2D |
faceArea = _dyG(I,J,bi,bj)*drF(K) |
|
./pkg/ecco/cost_trans_zonal.F |
192 |
COST_TRANS_ZONAL |
$ * _dyG(i,j,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
197 |
COST_TRANS_ZONAL |
$ * _dyG(i,j,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
202 |
COST_TRANS_ZONAL |
$ * _dyG(i,j,bi,bj) |