| File |
Line number |
Procedure |
Code |
|
./pkg/layers/layers_fluxcalc.F |
156 |
LAYERS_FLUXCALC |
Hs(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 |
336 |
LAYERS_FLUXCALC |
Hs(i,j,kloc,bi,bj) = Hs(i,j,kloc,bi,bj) + dzfac |
|
./pkg/layers/layers_fluxcalc.F |
358 |
LAYERS_FLUXCALC |
IF (Hs(i,j,kg,bi,bj) .GT. 0.) THEN |
|
./pkg/layers/layers_fluxcalc.F |
361 |
LAYERS_FLUXCALC |
& VH(i,j,kg,bi,bj) / Hs(i,j,kg,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
77 |
LAYERS_FLUXCALC |
_RL Hs (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nlayers,nSx,nSy) |
|
./pkg/layers/layers_fluxcalc.F |
81 |
LAYERS_FLUXCALC |
_RL Hs(1), PIs(1), Vs(1) |
|
./pkg/layers/layers_fluxcalc.F |
84 |
LAYERS_FLUXCALC |
_RL VH(1), Hs(1), PIs(1), Vs(1) |