| File |
Line number |
Procedure |
Code |
|
./pkg/layers/layers_fluxcalc.F |
135 |
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,U,V, |
|
./pkg/layers/layers_fluxcalc.F |
301 |
LAYERS_FLUXCALC |
Hs(i,j,kloc,bi,bj) = Hs(i,j,kloc,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
324 |
LAYERS_FLUXCALC |
IF (Hs(i,j,kg,bi,bj) .GT. 0.) THEN |
|
./pkg/layers/layers_fluxcalc.F |
327 |
LAYERS_FLUXCALC |
& VH(i,j,kg,bi,bj) / Hs(i,j,kg,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
65 |
LAYERS_FLUXCALC |
_RL Hs (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nlayers,nSx,nSy) |