!copyright (C) 2001  MSC-RPN COMM  %%%RPNPHY%%%
*     W1 EST LA VALEUR DE WS AU-DELA DE LAQUELLE LA SURFACE 
*     DU SOL EVAPORE COMME SI ELLE ETAIT SATUREE. NE PAS 
*     OUBLIER DE MODIFIER LE S/P CLEFGET SI ON AUGMENTE LA 
*     DIMENSION DE W1.
      REAL W1
      DATA W1  / 0.30     /