/**************************************************************************************/
/**                                                                                \n**/
/**      f  p  r  i  n  t  _  a  g  r  i  c  u  l  t  u  r  e  .  c                \n**/
/**                                                                                \n**/
/**     C implementation of LPJmL                                                  \n**/
/**                                                                                \n**/
/**     Function prints irrigation data of stand                                   \n**/
/**                                                                                \n**/
/** (C) Potsdam Institute for Climate Impact Research (PIK), see COPYRIGHT file    \n**/
/** authors, and contributors see AUTHORS file                                     \n**/
/** This file is part of LPJmL and licensed under GNU AGPL Version 3               \n**/
/** or later. See LICENSE file or go to http://www.gnu.org/licenses/               \n**/
/** Contact: https://gitlab.pik-potsdam.de/lpjml                                   \n**/
/**                                                                                \n**/
/**************************************************************************************/

#include "lpj.h"
#include "agriculture.h"

void fprint_agriculture(FILE *file,        /**< pointer to text file */
                        const Stand *stand /**< pointer to stand */
                       )
{
  Irrigation *irrigation;
  irrigation=stand->data;
  fprintf(file,"Irrigation:\t%s\n"
          "Irrigation event today:\t%d\n"
          "Irrigation system:\t%d\n"
          "conveyance efficiency:\t%g\n"
          "conveyance evaporation:\t%g\n"
          "net irrig amount:\t%g\n"
          "distribution irrig amount:\t%g\n"
          "irrig amount:\t%g\n"
          "irrig stor:\t%g\n",
          (irrigation->irrigation) ? "true" : "false",irrigation->irrig_event,irrigation->irrig_system,
          irrigation->ec,irrigation->conv_evap,irrigation->net_irrig_amount,irrigation->dist_irrig_amount,irrigation->irrig_amount,irrigation->irrig_stor);
} /* of 'fprint_agriculture' */
