C
      COMMON /ACMCLH/
     & THEAT,NHEAT,AVRAIN,AVCNVC,ARATIM,ACUTIM
     &,TRAIN(IDIM1:IDIM2,JDIM1:JDIM2,LM)
     &,TCUCN(IDIM1:IDIM2,JDIM1:JDIM2,LM)
      save /ACMCLH/