!
      real(4),pointer::acsnow(:,:),acsnom(:,:),ssroff(:,:),bgroff(:,:)
      COMMON /ACMPRE/TPREC,ACSNOW,ACSNOM,SSROFF,BGROFF