| File |
Line number |
Procedure |
Code |
|
./pkg/layers/layers_fluxcalc.F |
148 |
LAYERS_FLUXCALC |
Hw(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
20 |
LAYERS_FLUXCALC |
O UH,VH,Hw,Hs,PIw,PIs,Uw,Vs, |
|
./pkg/layers/layers_fluxcalc.F |
247 |
LAYERS_FLUXCALC |
Hw(i,j,kloc,bi,bj) = Hw(i,j,kloc,bi,bj) + dzfac |
|
./pkg/layers/layers_fluxcalc.F |
351 |
LAYERS_FLUXCALC |
IF (Hw(i,j,kg,bi,bj) .GT. 0.) THEN |
|
./pkg/layers/layers_fluxcalc.F |
354 |
LAYERS_FLUXCALC |
& UH(i,j,kg,bi,bj) / Hw(i,j,kg,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
65 |
LAYERS_FLUXCALC |
_RL Hw (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nlayers,nSx,nSy) |
|
./pkg/layers/layers_fluxcalc.F |
69 |
LAYERS_FLUXCALC |
_RL Hw(1), PIw(1), Uw(1) |
|
./pkg/layers/layers_fluxcalc.F |
72 |
LAYERS_FLUXCALC |
_RL UH(1), Hw(1), PIw(1), Uw(1) |
|
./pkg/ebm/EBM.h |
72 |
NO PROCEDURE |
_RL trans_eff, Hw, Nw, Tw, At, dz, htil, tau |
|
./pkg/ebm/EBM.h |
73 |
NO PROCEDURE |
PARAMETER ( trans_eff = 2. _d 0 , Hw = 8. _d 3, Nw = 0.013 _d 0 ) |
|
./pkg/ebm/ebm_atmosphere.F |
187 |
EBM_ATMOSPHERE |
gamma = -T35(no_so)*beta*Hw*Nw*Nw/ |
|
./pkg/ebm/ebm_atmosphere.F |
189 |
EBM_ATMOSPHERE |
kappa = Hw/(1. _d 0 + gamma) |
|
./pkg/ebm/ebm_atmosphere.F |
190 |
EBM_ATMOSPHERE |
De = Hw/(0.48 _d 0 + 1.48 _d 0 *gamma) |
|
./pkg/ebm/ebm_atmosphere.F |
194 |
EBM_ATMOSPHERE |
& ( 1. _d 0 /(1. _d 0 /Hw + 1. _d 0 /De) |
|
./pkg/ebm/ebm_atmosphere.F |
195 |
EBM_ATMOSPHERE |
& -1. _d 0 /(1. _d 0 /Hw+1. _d 0 /De+1. _d 0 /dz) ) |