C STRATIFORM CLASSIFICATION

      do r=1,rhightot
        if(regime(r,phi).ne.1.and.regime(r,phi).ne.2.and.
     1      dbzvertavlower(r,phi).ge.15.)then
          regime(r,phi)=3
        endif
      enddo