close_files.c

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

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

void close_files(infiles_struct   *inf,
                 outfiles_struct  *outf,
                 filenames_struct *fnames)
/**********************************************************************
	close_files	Dag Lohmann		January 1996

  This routine closes all forcing data files, and output files.

  Modifications:
  7-19-96  Files are now gzipped when they are closed.  This
	   was added to save space when using large volumes
	   of data.						KAC

**********************************************************************/
{
  extern option_struct options;
#if LINK_DEBUG
  extern debug_struct debug;
#endif

  /**********************
    Close All Input Files
    **********************/

  fclose(inf->forcing[0]);
  if(options.COMPRESS) compress_files(fnames->forcing[0]);
  if(inf->forcing[1]!=NULL) {
    fclose(inf->forcing[1]);
    if(options.COMPRESS) compress_files(fnames->forcing[1]);
  }

  /*******************
    Close Output Files
    *******************/

  /** Energy and Moisture Fluxes Output File **/
  fclose(outf->fluxes);
  if(options.COMPRESS) compress_files(fnames->fluxes);

#if !LDAS_OUTPUT && !OPTIMIZE

  /** These output files are not used when using LDAS binary format **/

  /** Frozen Soils Output File **/
  if(options.FROZEN_SOIL) {
    fclose(outf->fdepth);
    if(options.COMPRESS) compress_files(fnames->fdepth);
  }

  /** Snow Data Output File **/
  fclose(outf->snow);
  if(options.COMPRESS) compress_files(fnames->snow);

  if(options.PRT_SNOW_BAND) {
    fclose(outf->snowband);
    if(options.COMPRESS) compress_files(fnames->snowband);
  }

#endif

  /*******************************
    Close All Used Debugging Files
    *******************************/ 

#if LINK_DEBUG
  if(debug.DEBUG || debug.PRT_TEMP) {
    fclose(debug.fg_temp);
  }
  if(debug.DEBUG || debug.PRT_MOIST) {
    fclose(debug.fg_moist);
  }
  if(debug.DEBUG || debug.PRT_KAPPA) {
    fclose(debug.fg_kappa);
  }
  if(debug.DEBUG || debug.PRT_BALANCE) {
    fclose(debug.fg_balance);
  }
  if(debug.DEBUG || debug.PRT_FLUX) {
    fclose(debug.fg_energy);
  }
  if(debug.DEBUG || debug.PRT_SNOW) {
    fclose(debug.fg_snow);
  }
  if(debug.DEBUG || debug.PRT_GRID) {
    fclose(debug.fg_grid);
  }
#endif

}