INTEGER IGC,ICC
      PARAMETER (IGC=3, ICC=4)
c   IGC must correspond to parameter IG in CLASS300
c   ICC must correspond to parameter IC in CLASS300
c
      REAL DELT,TFREZ
      REAL RGAS,GASV,G,SBC,VKC,CT,VMIN
      REAL TCW,TCICE,TCSAND,TCCLAY,TCOM,TCDRYS,RHOSOL,RHOOM
      REAL HCPW,HCPICE,HCPSOL,HCPOM,HCPSND,HCPCLY,
     1                SPHW,SPHICE,SPHVEG,SPHAIR,RHOW,RHOICE,
     2                TCGLAC,CLHMLT,CLHVAP
      REAL THPORG,THRORG,THMORG,BORG,PSISORG,GRKSORG
      REAL GROWYR,ZOLNG,ZOLNS,ZOLNI,ZORAT,ZORATG
      REAL CANEXT,XLEAF
      REAL ALVSI,ALIRI,ALVSO,ALIRO,ALBRCK
      REAL DELZ,ZBOT,DELTA
      REAL AS,ASX,CI,BS,BETA,FACTN,HMIN,ANGMAX
c
      COMMON /CLASS1/ DELT,TFREZ
      COMMON /CLASS2/ RGAS,GASV,G,SBC,VKC,CT,VMIN
      COMMON /CLASS3/ TCW,TCICE,TCSAND,TCCLAY,TCOM,TCDRYS,
     1                RHOSOL,RHOOM
      COMMON /CLASS4/ HCPW,HCPICE,HCPSOL,HCPOM,HCPSND,HCPCLY,
     1                SPHW,SPHICE,SPHVEG,SPHAIR,RHOW,RHOICE,
     2                TCGLAC,CLHMLT,CLHVAP
      COMMON /CLASS5/ THPORG(IGC),THRORG(IGC),THMORG(IGC),BORG(IGC),
     1                PSISORG(IGC),GRKSORG(IGC)
      COMMON /CLASS6/ GROWYR(18,4,2),ZOLNG,ZOLNS,ZOLNI,ZORAT(ICC),
     1                ZORATG
      COMMON /CLASS7/ CANEXT(ICC),XLEAF(ICC)
      COMMON /CLASS8/ ALVSI,ALIRI,ALVSO,ALIRO,ALBRCK
      COMMON /CLASSD1/DELZ(IGC),ZBOT(IGC),DELTA
      COMMON /CLASSD2/AS,ASX,CI,BS,BETA,FACTN,HMIN,ANGMAX