| File |
Line number |
Procedure |
Code |
|
./model/src/calc_grad_phi_hyd.F |
221 |
CALC_GRAD_PHI_HYD |
factorP = halfRL*atm_Cp*(rC(k)/atm_Po)**atm_kappa |
|
./model/src/calc_grid_angles.F |
100 |
CALC_GRID_ANGLES |
& ( yG(i,j,bi,bj) + yG(i,j+1,bi,bj) )*halfRL ) |
|
./model/src/calc_grid_angles.F |
118 |
CALC_GRID_ANGLES |
& ( yG(i,j,bi,bj) + yG(i+1,j,bi,bj) )*halfRL ) |
|
./model/src/calc_gw.F |
368 |
CALC_GW |
& - (viscAh_W(i,j,k,bi,bj)+viscAh_W(i-1,j,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
372 |
CALC_GW |
& + (viscA4_W(i,j,k,bi,bj)+viscA4_W(i-1,j,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
386 |
CALC_GW |
& - (viscAh_W(i,j,k,bi,bj)+viscAh_W(i,j-1,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
392 |
CALC_GW |
& + (viscA4_W(i,j,k,bi,bj)+viscA4_W(i,j-1,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
504 |
CALC_GW |
& )*halfRL*_dyG(i,j,bi,bj)*deepFacF(k) |
|
./model/src/calc_gw.F |
505 |
CALC_GW |
flx_EW(i,j) = uTrans*(wFld(i,j)+wFld(i-1,j))*halfRL |
|
./model/src/calc_gw.F |
519 |
CALC_GW |
& )*halfRL*_dxG(i,j,bi,bj)*deepFacF(k) |
|
./model/src/calc_gw.F |
520 |
CALC_GW |
flx_NS(i,j) = vTrans*(wFld(i,j)+wFld(i,j-1))*halfRL |
|
./model/src/calc_gw.F |
531 |
CALC_GW |
tmp_WbarZ = halfRL* |
|
./model/src/calc_gw.F |
535 |
CALC_GW |
rTrans = halfRL* |
|
./pkg/mom_common/mom_calc_3d_strain.F |
110 |
MOM_CALC_3D_STRAIN |
str12(i,j,k) = halfRL*( |
|
./pkg/mom_common/mom_calc_3d_strain.F |
131 |
MOM_CALC_3D_STRAIN |
str13(i,j,k) = halfRL*( |
|
./pkg/mom_common/mom_calc_3d_strain.F |
141 |
MOM_CALC_3D_STRAIN |
str23(i,j,k) = halfRL*( |
|
./pkg/mom_common/mom_calc_3d_strain.F |
153 |
MOM_CALC_3D_STRAIN |
str13(i,j,k) = halfRL*( |
|
./pkg/mom_common/mom_calc_3d_strain.F |
164 |
MOM_CALC_3D_STRAIN |
str23(i,j,k) = halfRL*( |
|
./pkg/mom_common/mom_calc_visc.F |
542 |
MOM_CALC_VISC |
viscAh_W(i,j,k+1,bi,bj) = halfRL*viscAh_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
543 |
MOM_CALC_VISC |
viscA4_W(i,j,k+1,bi,bj) = halfRL*viscA4_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
563 |
MOM_CALC_VISC |
& + halfRL*viscAh_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
565 |
MOM_CALC_VISC |
& + halfRL*viscA4_D(i,j) |
|
./model/src/calc_phi_hyd.F |
232 |
CALC_PHI_HYD |
& + halfRL*drF(k)*gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
248 |
CALC_PHI_HYD |
& + halfRL*drF(k)*gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
251 |
CALC_PHI_HYD |
& + halfRL*drF(k)*gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
262 |
CALC_PHI_HYD |
dRlocM = halfRL*drC(k) |
|
./model/src/calc_phi_hyd.F |
267 |
CALC_PHI_HYD |
dRlocP=halfRL*drC(k+1) |
|
./model/src/calc_phi_hyd.F |
380 |
CALC_PHI_HYD |
phiHydC(i,j) = phiHydF(i,j) + halfRL*drF(k)*alphaRho(i,j) |
|
./model/src/calc_phi_hyd.F |
384 |
CALC_PHI_HYD |
phiHydF(i,j) = phiHydC(i,j) + halfRL*drF(k)*alphaRho(i,j) |
|
./model/src/calc_phi_hyd.F |
392 |
CALC_PHI_HYD |
dRlocM = halfRL*drC(k) |
|
./model/src/calc_phi_hyd.F |
397 |
CALC_PHI_HYD |
dRlocP=halfRL*drC(k+1) |
|
./model/src/calc_phi_hyd.F |
511 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) )*halfRL |
|
./model/src/calc_phi_hyd.F |
518 |
CALC_PHI_HYD |
& -((rC(k+1)/atm_Po)**atm_kappa) )*halfRL |
|
./model/src/calc_phi_hyd.F |
577 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) )*halfRL |
|
./model/src/calc_phi_hyd.F |
584 |
CALC_PHI_HYD |
& -((rC(k+1)/atm_Po)**atm_kappa) )*halfRL |
|
./pkg/monitor/mon_ke.F |
210 |
MON_KE |
& ( yG(i,j,bi,bj) + yG(i,j+1,bi,bj) )*halfRL ) |
|
./pkg/monitor/mon_ke.F |
249 |
MON_KE |
& ( yG(i,j,bi,bj) + yG(i+1,j,bi,bj) )*halfRL ) |
|
./model/src/diags_phi_rlow.F |
101 |
DIAGS_PHI_RLOW |
IF (k.GT.1 ) ratioRm = halfRL*drC(k)/(rF(k)-rC(k)) |
|
./model/src/diags_phi_rlow.F |
102 |
DIAGS_PHI_RLOW |
IF (k.LT.Nr) ratioRp = halfRL*drC(k+1)/(rC(k)-rF(k+1)) |
|
./pkg/atm_phys/atm_phys_driver.F |
534 |
ATM_PHYS_DRIVER |
fu(i,j,bi,bj) = halfRL |
|
./pkg/atm_phys/atm_phys_driver.F |
536 |
ATM_PHYS_DRIVER |
fv(i,j,bi,bj) = halfRL |
|
./pkg/cheapaml/cheapaml.F |
526 |
CHEAPAML |
& *( oneRL - (halfRL+ABS(yG(i,j,bi,bj))/230. _d 0) |
|
./eesupp/inc/EEPARAMS.h |
80 |
NO PROCEDURE |
_RL zeroRL, oneRL, twoRL, halfRL |
|
./eesupp/inc/EEPARAMS.h |
82 |
NO PROCEDURE |
PARAMETER ( twoRL = 2.0 _d 0 , halfRL = 0.5 _d 0 ) |