C
      COMMON /ACMRDL/
     & TRDLW,NRDLW,ARDLW
     &,RLWIN(IDIM1:IDIM2,JDIM1:JDIM2),RLWOUT(IDIM1:IDIM2,JDIM1:JDIM2)
     &,RLWTOA(IDIM1:IDIM2,JDIM1:JDIM2),ALWIN(IDIM1:IDIM2,JDIM1:JDIM2)
     &,ALWOUT(IDIM1:IDIM2,JDIM1:JDIM2),ALWTOA(IDIM1:IDIM2,JDIM1:JDIM2)
     &,RLWTT(IDIM1:IDIM2,JDIM1:JDIM2,LM)
      save /ACMRDL/