C
      COMMON /ACMRDS/
     & TRDSW,NRDSW,ARDSW
     &,RSWIN(IDIM1:IDIM2,JDIM1:JDIM2),RSWOUT(IDIM1:IDIM2,JDIM1:JDIM2)
     &,RSWTOA(IDIM1:IDIM2,JDIM1:JDIM2),ASWIN(IDIM1:IDIM2,JDIM1:JDIM2)
     &,ASWOUT(IDIM1:IDIM2,JDIM1:JDIM2),ASWTOA(IDIM1:IDIM2,JDIM1:JDIM2)
     &,RSWTT(IDIM1:IDIM2,JDIM1:JDIM2,LM)
      save /ACMRDS/