Symbol Description Uses
PIs 1 if layer exists, 0 otherwise (at V point) 6



File Line number Procedure Code
./pkg/layers/layers_fluxcalc.F 157 LAYERS_FLUXCALC
         PIs(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 359 LAYERS_FLUXCALC
          PIs(i,j,kg,bi,bj) = 1. _d 0
./pkg/layers/layers_fluxcalc.F 78 LAYERS_FLUXCALC
      _RL PIs    (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)