SECDAY = GETCON('SDAY')

      CONVRT = GETCON('GRAVITY') / ( 100.0 * GETCON('CP') )

      SDAY   = GETCON('SDAY')

      GRAV   = GETCON('GRAVITY')

      ALHL   = GETCON('LATENT HEAT COND')

      CP     = GETCON('CP')

      ELOCP  = GETCON('LATENT HEAT COND') / GETCON('CP')

      GAMFAC = GETCON('LATENT HEAT COND') * GETCON('EPS') * ELOCP

     .       / GETCON('RGAS')

      RKAPPA = GETCON('KAPPA')

      CLH = GETCON('LATENT HEAT COND') / CP

      vkrm = GETCON('VON KARMAN')

         GETCON = ACON(I)

      _RL  GETCON

      FUNCTION GETCON(NAME)

      G  = GETCON('GRAVITY')

      R  = GETCON('RGAS')

      AK = GETCON('KAPPA')