C
      PARAMETER (IMJM=IM*JM-JM/2)
      COMMON /EXTRA/
     & PINT(IM,JM,LP1),ALPINT(IM,JM,LP1),ZINT(IM,JM,LP1)
     &,KMNTM(LM),KMNT(IMJM,LM),SLP(IM,JM)
     &,T500(IM,JM),PDSL(IM,JM),PDVP1(IM,JM),PSLP(IM,JM)
     &,PTSL(IM,JM),PFSL(IM,JM)
     &,TSL(IM,JM),TTV(IM,JM),FSL(IM,JM)
     &,QSL(IM,JM),Z1000(IM,JM)
     &,OLDRD,STDRD
      save /EXTRA/