IndexRundeck: E6F40Created: Fri May 17 03:30:27 EDT 2024

irrigate_extract

Module: IRRIGMOD
File: IRRIGMOD.f
Summary: irrigate_extract calculate water used for irrigation
Author : Michael Puma
Version:

Declaration:
Variables:
rhow : used from constant

teeny : used from constant

shw : used from constant

dtsrc : used from model_com

modeleclock : used from model_com

tearth : used from ghy_com

axyp : used from geom

fearth : used from ghy_com

get_param : used from dictionary_mod

i : integer, intent(in)

j : integer, intent(in)

jyear : integer

master_yr : integer

flake : real*8, intent(in)
local versions of lake variables
tlake : real*8, intent(in)
local versions of lake variables
mldlk : real*8, intent(in)
local versions of lake variables
gml : real*8, intent(in)
local versions of lake variables
mwl : real*8, intent(in)
local versions of lake variables
cyclic : logical

mwl_to_irrig : real*8, intent(out)
(kg), GML_to_irrig (J) mass/energy changes
hlake_min : real*8, intent(in)

irrig_gw : real*8, intent(out)
(m/s), irrig_gw_energy (W/m2) ground water diagnostics
irrig_water_act : real*8, intent(out)
(m/s), irrig_energy_act (W/m2) actual irrigation diagnostics
gml_to_irrig : real*8, intent(out)

mass :
of water available for irrigation [kg]
irrig_gw_energy : real*8, intent(out)

irrig_energy_act : real*8, intent(out)

mass :
of water available for irrigation [kg]
m_irr_pot : real*8

temperature :
of abstracted irrigation water [deg C]
m_avail : real*8

vegetated :
and bare fractions of the grid cell
t_irr : real*8

t_irr_g : real*8

t_irr2 : real*8

conversion :
factor from m^3 water/(m^2 grid cell) to kg water
fv : real*8

fb : real*8

flag :
for external irrigation source (from deep aquifers - not modeled)
m_to_kg : real*8

flag_irrig_grndwat : integer

Simplex Website Curator: Igor Aleinov — NASA Official: Gavin A. Schmidt

Contact GISS NASA Privacy PolicyAccessibility