
    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)
