real :: gwsht,bn,cp,cm,e,ep,em,du,fe,fp,efp0,efm0,rn,
     |  rnr,alt1,z,p1,p2,de,efm,dem,efp,dep,efma,dema,efpa,depa,w
      COMMON/VSCR/
     1  GWSHT(ZIMXP,ZKMXP),   BN(ZIMXP,ZKMXP),   CP(ZIMXP,ZKMXP),
     2     CM(ZIMXP,ZKMXP),    E(ZIMXP,ZKMXP),   EP(ZIMXP,ZKMXP),
     3     EM(ZIMXP,ZKMXP),   DU(ZIMXP,ZKMXP),   FE(ZIMXP,ZKMXP),
     4     FP(ZIMXP,ZKMXP),       EFP0(ZIMXP),       EFM0(ZIMXP),
!
! 4/01: DZ(ZIMXP) removed to avoid conflict with dz in params.h
!    5           RN(ZIMXP),         DZ(ZIMXP),        RNR(ZIMXP),
     5           RN(ZIMXP),                           RNR(ZIMXP),
!
     6         ALT1(ZIMXP),          Z(ZIMXP),         P1(ZIMXP),
     7           P2(ZIMXP),         DE(ZIMXP),        EFM(ZIMXP),
     8          DEM(ZIMXP),        EFP(ZIMXP),        DEP(ZIMXP),
     9         EFMA(ZIMXP),       DEMA(ZIMXP),       EFPA(ZIMXP),
     +         DEPA(ZIMXP),          W(ZIMXP)
!$OMP THREADPRIVATE (/vscr/)
!DIR$ TASKCOMMON vscr
C