SUBROUTINE CLASSD(DT) 1
C
C     * DEC 12/02 - Y.DELAGE    ADAPT TO RPN LIBRARY
C     * AUG 06/02 - D.VERSEGHY. DEFINE PHYSICAL CONSTANTS PASSED
C     *                         THROUGH CLASS COMMON BLOCKS.  
C     *                         (BASED ON ROUTINE "HYDCON".)
C
C     * THE FOLLOWING COMMON BLOCK PARAMETERS ARE DEFINED WITHIN
C     * THE ATMOSPHERIC MODEL
C
      IMPLICIT NONE
      REAL DT
C

C     * ADDITIONAL COMMON BLOCKS ARE DEFINED SPECIFICALLY FOR USE 
C     * IN CLASS.

#include "consphy_class.cdk"
#include "class_com.cdk"
C
      DATA      CT,         VMIN
     1       /  1.15E-3,    0.1     /

      DATA      TCW,        TCICE,      TCSAND,     TCCLAY,     TCOM
     1       /  0.57,       2.24,       8.0,        2.5,        0.25   /

      DATA      TCDRYS,     RHOSOL,     RHOOM
     1       /  0.275,      2.65E3,     1.30E3  /    

      DATA      HCPW,       HCPICE,     HCPSOL,     HCPOM
     1       /  4.187E6,    1.96E6,     2.25E6,     2.50E6 /

      DATA      HCPSND,     HCPCLY,     SPHW,       SPHICE,     SPHVEG
     1       /  2.13E6,     2.38E6,     4.186E3,    2.10E3,     2.70E3 /

      DATA      RHOW,       RHOICE,     TCGLAC,     CLHMLT,     CLHVAP
     1       /  1.0E3,      0.917E3,    2.24,       0.334E6,    2.501E6/

      DATA      ZOLNG,      ZOLNS,      ZOLNI,      ZORATG
     1       /  -4.605,     -6.908,     -6.215,     3.0         /

      DATA      ALVSI,      ALIRI,      ALVSO,      ALIRO,      ALBRCK
     1       /  0.90,       0.70,       0.06,       0.30,       0.27  /



      DATA GROWYR   /213.,213.,213.,213.,213.,213.,0.,0.,0.,
     1               0.,0.,0., 75.,106.,136.,167.,167.,167.,
     2               273.,273.,273.,273.,273.,273.,0.,0.,0.,
     3               0.,0.,0.,135.,166.,196.,196.,196.,196.,
     4               121.,121.,121.,121.,121.,121.,0.,0.,0.,
     5               0.,0.,0.,275.,244.,214.,214.,214.,214.,
     6               151.,151.,151.,151.,151.,151.,0.,0.,0.,
     7               0.,0.,0.,305.,274.,244.,244.,244.,244.,
     8               213.,213.,213.,213.,213.,213.,0.,0.,0.,
     9               0.,0., 75.,106.,136.,167.,167.,167.,167.,
     A               273.,273.,273.,273.,273.,273.,0.,0.,0.,
     B               0.,0.,135.,166.,196.,196.,196.,196.,196.,
     C               121.,121.,121.,121.,121.,121.,0.,0.,0.,
     D               0.,0.,275.,244.,214.,214.,214.,214.,214.,
     E               151.,151.,151.,151.,151.,151.,0.,0.,0.,
     F               0.,0.,305.,274.,244.,244.,244.,244.,244. /
C
      DATA ZORAT    /1.0,1.0,1.0,1.0/
c     DATA ZORAT    /5.0, 5.0, 5.0, 5.0/
      DATA CANEXT   /-0.5,-1.5,-0.8,-0.8/
      DATA XLEAF    /0.001,0.05,0.01,0.01/
      DATA THPORG   /0.93,0.88,0.83/
      DATA THRORG   /0.275,0.620,0.705/
      DATA THMORG   /0.04,0.15,0.22/
      DATA BORG     /2.7,6.1,12.0/
      DATA PSISORG  /0.0103,0.0102,0.0101/
      DATA GRKSORG  /2.8E-4,2.0E-6,1.0E-7/
      DATA  DELZ    /0.10,0.25,3.75/
      DATA  ZBOT    /0.10,0.35,4.10/
C
C==================================================================
C     * RE-DEFINE CONSTANTS FOR STORAGE IN CLASS COMMON BLOCKS.
C
      TFREZ=TCDK
      RGAS=RGASD
      GASV=RGASV
      G=GRAV
      SBC=STEFAN
      SPHAIR=CPD
      VKC=KARMAN
      DELT=DT
      DELTA=DELTA2
C==================================================================
      RETURN
      END