/*
 * SUMMARY:      NoEvap.c - Set evaporation variables if no evaporation
 * USAGE:        Part of DHSVM
 *
 * AUTHOR:       Bart Nijssen
 * ORG:          University of Washington, Department of Civil Engineering
 * E-MAIL:       nijssen@u.washington.edu
 * ORIG-DATE:    Apr-96
 * LAST-MOD:     28-Aug-1996 at 18:44:05 by DHSVM Project Account
 * DESCRIPTION:  Set evaporation variables if no evaporation
 * DESCRIP-END.
 * FUNCTIONS:    NoEvap()
 * COMMENTS:     
 */

#ifndef lint
static char vcid[] = "$Id: NoEvap.c,v 1.2 2001/03/31 00:10:31 waichler Exp $";
#endif /* lint */

#include <stdio.h>
#include <stdlib.h>
#include "settings.h"
#include "data.h"
#include "massenergy.h"

/*****************************************************************************
  NoEvap()
*****************************************************************************/
void NoEvap(int Layer, int NSoilLayers, EVAPPIX *LocalEvap)
{
  int i;			/* counter */

  LocalEvap->EPot[Layer] = 0.0;
  LocalEvap->EAct[Layer] = 0.0;
  LocalEvap->EInt[Layer] = 0.0;
  
  for (i = 0; i < NSoilLayers; i++)
    LocalEvap->ESoil[Layer][i] = 0.0;
}
  
  
