make_dist_prcp.c

超强的大尺度水文模拟工具

#include <stdio.h>
#include <stdlib.h>
#include <vicNl.h>
 
static char vcid[] = "$Id: make_dist_prcp.c,v 4.1 2000/05/16 21:07:16 vicadmin Exp $";

dist_prcp_struct make_dist_prcp(int  nveg,
				int *Nnodes)
/**********************************************************************
	read_dist_prcp	Keith Cherkauer		May 21, 1996

  This routine creates an array of structures which will store 
  necessary information about the distribution of precipitation, moisture,
  evaporation, and dew.  Mu represents the fractional area of the grid 
  that receives precipitation (wet), while 1-mu is the corresponding 
  area that receives no precipitation.  The value of mu changes with
  the intensity of incoming precipitation, and is set in the routine
  dist_prec.

**********************************************************************/
{
  extern option_struct options;

  dist_prcp_struct temp;
  int              i;

  temp.mu     = (double *)calloc(nveg+1,sizeof(double));
  for ( i = 0; i < nveg + 1; i++ ) temp.mu[i] = 1;
  temp.snow   = make_snow_data(nveg+1);
  temp.energy = make_energy_bal(nveg+1,Nnodes);
  for(i=0;i<2;i++) {
    temp.veg_var[i]  = make_veg_var(nveg);
    temp.cell[i]     = make_cell_data(nveg+1,options.Nlayer);
  }

  return (temp);

}