| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1655 |
CLOUD |
_RL daylen,half,one,zero,cmb2pa,rhmax |
|
./pkg/fizhi/fizhi_moist.F |
2218 |
CLOUD |
TEM = half*TX5(I) * PRI(II,K) |
|
./pkg/fizhi/fizhi_moist.F |
2228 |
CLOUD |
TEM = half*TX5(I) * PRI(II,L) |
|
./pkg/fizhi/fizhi_moist.F |
2241 |
CLOUD |
TEM = half*TX5(I) * PRI(II,IC) |
|
./pkg/fizhi/fizhi_moist.F |
2384 |
RNEVP |
_RL zm1p04,zero,two89,zp44,zp01,half,zp578,one,z3600,z1800 |
|
./model/src/calc_phi_hyd.F |
217 |
CALC_PHI_HYD |
& + half*drF(k)*gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
226 |
CALC_PHI_HYD |
dRlocM=half*drC(k) |
|
./model/src/calc_phi_hyd.F |
231 |
CALC_PHI_HYD |
dRlocP=half*drC(k+1) |
|
./model/src/calc_phi_hyd.F |
319 |
CALC_PHI_HYD |
phiHydC(i,j) = phiHydF(i,j) + half*drF(k)*alphaRho(i,j) |
|
./model/src/calc_phi_hyd.F |
323 |
CALC_PHI_HYD |
phiHydF(i,j) = phiHydC(i,j) + half*drF(k)*alphaRho(i,j) |
|
./model/src/calc_phi_hyd.F |
331 |
CALC_PHI_HYD |
dRlocM=half*drC(k) |
|
./model/src/calc_phi_hyd.F |
336 |
CALC_PHI_HYD |
dRlocP=half*drC(k+1) |
|
./model/src/calc_phi_hyd.F |
394 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) )*half |
|
./model/src/calc_phi_hyd.F |
401 |
CALC_PHI_HYD |
& -((rC(k+1)/atm_Po)**atm_kappa) )*half |
|
./model/src/calc_phi_hyd.F |
460 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) )*half |
|
./model/src/calc_phi_hyd.F |
467 |
CALC_PHI_HYD |
& -((rC(k+1)/atm_Po)**atm_kappa) )*half |
|
./model/src/calc_phi_hyd.F |
81 |
CALC_PHI_HYD |
_RL zero, one, half |
|
./model/src/calc_phi_hyd.F |
86 |
CALC_PHI_HYD |
PARAMETER ( zero= 0. _d 0 , one= 1. _d 0 , half= .5 _d 0 ) |
|
./model/src/diags_phi_rlow.F |
100 |
DIAGS_PHI_RLOW |
IF (k.GT.1 ) ratioRm = half*drC(k)/(rF(k)-rC(k)) |
|
./model/src/diags_phi_rlow.F |
101 |
DIAGS_PHI_RLOW |
IF (k.LT.Nr) ratioRp = half*drC(k+1)/(rC(k)-rF(k+1)) |
|
./model/src/diags_phi_rlow.F |
62 |
DIAGS_PHI_RLOW |
_RL zero, one, half |
|
./model/src/diags_phi_rlow.F |
64 |
DIAGS_PHI_RLOW |
PARAMETER ( zero= 0. _d 0 , one= 1. _d 0 , half= .5 _d 0 ) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
122 |
BULKF_FORMULA_LAY |
_RL half, one, two |
|
./pkg/bulk_force/bulkf_formula_lay.F |
128 |
BULKF_FORMULA_LAY |
DATA half, one, two |
|
./pkg/bulk_force/bulkf_formula_lay.F |
173 |
BULKF_FORMULA_LAY |
stable = half + SIGN(half, delth) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
193 |
BULKF_FORMULA_LAY |
stable = half + SIGN(half, huol) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
199 |
BULKF_FORMULA_LAY |
& -two*ATAN(x) + half*pi ) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
203 |
BULKF_FORMULA_LAY |
& + (one-stable)*( two*LOG(half*(one+xsq)) ) |