c
c=======================================================================
c  Include file "ccfl.h".
c=======================================================================
c
#ifndef rmdocinc
c  CFLUM     zonal velocity which comes closest to its CFL criteria.
c  CFLUP     percent of CFL criteria reached by CFLUM.
c  ICFLU     I-coordinate of CFLUM.
c  JCFLU     J-coordinate of CFLUM.
c  KCFLU     K-coordinate of CFLUM.
c  CFLVM     meridional velocity which comes closest to its CFL
c            criteria.
c  CFLVP     percent of CFL criteria reached by CFLVM.
c  ICFLV     I-coordinate of CFLVM.
c  JCFLV     J-coordinate of CFLVM.
c  KCFLV     k-coordinate of CFLVM.
c  CFLWTM    vertical T-velocity which comes closest to its CFL criteria.
c  CFLWTP    percent of CFL criteria reached by CFLWTM.
c  ICFLWT    I-coordinate of CFLWTM.
c  JCFLWT    J-coordinate of CFLWTM.
c  KCFLWT    K-coordinate of CFLWTM.
c  CFLWUM    vertical U-velocity which comes closest to its CFL criteria.
c  CFLWUP    percent of CFL criteria reached by CFLWUM.
c  ICFLWU    I-coordinate of CFLWUM.
c  JCFLWU    J-coordinate of CFLWUM.
c  KCFLWU    K-coordinate of CFLWUM.
c
c=======================================================================
c
#endif
      common /iccfl/ icflu,icflv,icflwt,icflwu,jcflu,jcflv,jcflwt,jcflwu
     *       ,kcflu,kcflv,kcflwu,kcflwt
      integer icflu,icflv,icflwt,icflwu,jcflu,jcflv,jcflwt,jcflwu,kcflu,
     *        kcflv,kcflwu,kcflwt
c
      common /fccfl/ cflum,cflup,cflvm,cflvp,cflwtm,cflwum,cflwtp,cflwup
      FLOAT
     *      cflum,cflup,cflvm,cflvp,cflwtm,cflwum,cflwtp,cflwup