C*********************************************************************
C*********************************************************************
C
      SUBROUTINE KUBUN
     I   (  QCLW, QRAI, IR,
     O      IPQCLW, IPQRAI,
     B      DENS0,
     D      NX, NZ, NXB, NZB, NROT )
C
C*********************************************************************
      IMPLICIT REAL*8 ( A-H, O-Z )
C*********************************************************************
C
      DIMENSION
     \   QCLW ( -2:NXB, -2:NZB, NROT ),
     \   QRAI ( -2:NXB, -2:NZB, NROT )
      INTEGER*4
     \   IPQCLW(-2:NXB), IPQRAI(-2:NXB)
      DIMENSION
     \   DENS0(-2:NZB)
C
C=====================================================================
C     do nothing
C=====================================================================
C
      RETURN
      E N D





