!copyright (C) 2001  MSC-RPN COMM  %%%RPNPHY%%%
*     DIVERSES CONSTANTES PHYSIQUES PREPAREES PAR CLEMULT
*
      REAL AS,CI,BS,BETA,FACTN,HMIN
      COMMON / SURFCON / AS,CI,BS,BETA,FACTN,HMIN

#if defined(DOC)
*COMMON BLOCK /SURFCON/
*
**         NEW SURFACE LAYER CONSTANTS
* AS      =parameter set in namelist
* CI      =40.     "       "    "
* BS      =parameter set in namelist
* BETA    =0.85    "       "    "
* FACTN   =1.01    "       "    "
* HMIN    =35.     "       "    "
*
#endif