alloc_atmos.c

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

/*
 * Purpose: allocate and free memory for the atmos data struct
 * Usage  : Part of VIC
 * Author : Bart Nijssen
 * E-mail : [e-mail]
 * Created: Fri Aug 27 18:22:42 1999
 * Last Changed: Tue Feb  8 14:46:22 2000 by Keith Cherkauer <[e-mail]>
 * Notes  :
 */

/******************************************************************************/
/*			    PREPROCESSOR DIRECTIVES                           */
/******************************************************************************/

#include <stdio.h>
#include <stdlib.h>

#include <vicNl.h>

static char vcid[] = "$Id: alloc_atmos.c,v 4.1.2.1 2004/05/06 00:37:51 tbohn Exp $";

/******************************************************************************/
/*				 alloc_atmos()                                */
/******************************************************************************/
void alloc_atmos(int nrecs, atmos_data_struct **atmos)
/*******************************************************************
  alloc_atmos    

  Modification:
  01-11-00 Fixed allocation bug                             KAC
*******************************************************************/
{
  extern param_set_struct param_set;

  int i;

  *atmos = (atmos_data_struct *) calloc(nrecs, sizeof(atmos_data_struct)); 
  if (*atmos == NULL)
    vicerror("Memory allocation error in alloc_atmos().");

/*   for (i = 0; i < nrecs; i++) { */
/*     (*atmos)[i].prec = (double *) calloc(NF+1, sizeof(double)); */
/*     if ((*atmos)[i].prec == NULL) */
/*       vicerror("Memory allocation error in alloc_atmos().");       */
/*     (*atmos)[i].air_temp = (double *) calloc(NF+1, sizeof(double)); */
/*     if ((*atmos)[i].air_temp == NULL) */
/*       vicerror("Memory allocation error in alloc_atmos()."); */
/*     (*atmos)[i].wind = (double *) calloc(NF+1, sizeof(double)); */
/*     if ((*atmos)[i].wind == NULL) */
/*       vicerror("Memory allocation error in alloc_atmos()."); */
/*     (*atmos)[i].vpd = (double *) calloc(NF+1, sizeof(double)); */
/*     if ((*atmos)[i].vpd == NULL) */
/*       vicerror("Memory allocation error in alloc_atmos()."); */
/*     (*atmos)[i].vp = (double *) calloc(NF+1, sizeof(double));	 */
/*     if ((*atmos)[i].vp == NULL) */
/*       vicerror("Memory allocation error in alloc_atmos()."); */
/*     (*atmos)[i].pressure = (double *) calloc(NF+1, sizeof(double)); */
/*     if ((*atmos)[i].pressure == NULL) */
/*       vicerror("Memory allocation error in alloc_atmos()."); */
/*     (*atmos)[i].density = (double *) calloc(NF+1, sizeof(double));	 */
/*     if ((*atmos)[i].density == NULL) */
/*       vicerror("Memory allocation error in alloc_atmos()."); */
/*     (*atmos)[i].shortwave = (double *) calloc(NF+1, sizeof(double));	 */
/*     if ((*atmos)[i].shortwave == NULL) */
/*       vicerror("Memory allocation error in alloc_atmos()."); */
/*     (*atmos)[i].longwave = (double *) calloc(NF+1, sizeof(double));	 */
/*     if ((*atmos)[i].longwave == NULL) */
/*       vicerror("Memory allocation error in alloc_atmos()."); */
/*     (*atmos)[i].snowflag = (char *) calloc(NF+1, sizeof(char));	 */
/*     if ((*atmos)[i].snowflag == NULL) */
/*       vicerror("Memory allocation error in alloc_atmos()."); */
/*   }    			 */
}

/******************************************************************************/
/*				  free_atmos()                                */
/******************************************************************************/
void free_atmos(int nrecs, atmos_data_struct **atmos)
{
  int i;

  if (*atmos == NULL)
    return;

/*   for (i = 0; i < nrecs; i++) { */
/*     free((*atmos)[i].prec); */
/*     free((*atmos)[i].air_temp); */
/*     free((*atmos)[i].wind); */
/*     free((*atmos)[i].vpd); */
/*     free((*atmos)[i].vp); */
/*     free((*atmos)[i].pressure); */
/*     free((*atmos)[i].density); */
/*     free((*atmos)[i].shortwave); */
/*     free((*atmos)[i].longwave); */
/*     free((*atmos)[i].snowflag); */
/*   } */
  free(*atmos);
}