module iccn_def
      use machine , only : kind_phys
      implicit none
      
      integer, parameter :: kcipl=32, latscip=192, lonscip=288
     &                      , timeci=12

      real (kind=kind_phys)::  ci_lat(latscip), ci_lon(lonscip)
     &                       , ci_time(timeci+1)
      real (kind=4), allocatable, dimension(:,:,:,:):: ciplin, ccnin
      real (kind=kind_phys), allocatable, dimension(:,:,:,:):: ci_pres
      data ci_time/15.5,45.,74.5,105.,135.5,166.,196.5,     
     &            227.5,258.,288.5,319.,349.5,380.5/

      end module iccn_def