| File |
Line number |
Procedure |
Code |
|
./pkg/layers/layers_fluxcalc.F |
129 |
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,U,V, |
|
./pkg/layers/layers_fluxcalc.F |
222 |
LAYERS_FLUXCALC |
Hw(i,j,kloc,bi,bj) = Hw(i,j,kloc,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
317 |
LAYERS_FLUXCALC |
IF (Hw(i,j,kg,bi,bj) .GT. 0.) THEN |
|
./pkg/layers/layers_fluxcalc.F |
320 |
LAYERS_FLUXCALC |
& UH(i,j,kg,bi,bj) / Hw(i,j,kg,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
64 |
LAYERS_FLUXCALC |
_RL Hw (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nlayers,nSx,nSy) |
|
./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) ) |