!*==aa0017.spg  processed by SPAG 6.70Rc at 21:09 on  9 Dec 2012
      use c_h1scs
      implicit none
!*--AA00174
!
!*** Start of declarations rewritten by SPAG
!
! Local variables
!
      integer :: mnsub
!
!*** End of declarations rewritten by SPAG
!
 
!     + + + VARIABLE DEFINITIONS + + +
 
!     ahrwc  - Soil water content (Kg/Kg)
!     ahrwcdmx - daily maximum soil water content (Kg/Kg)
!     aheaep - Soil air entry potential (J/kg)
!     ah0cb  - Power of Brooks and Corey water release curve model (unitless)
!     ahrsk  - Saturated soil hydraulic conductivity (m/s)
!     ahfwsf - Crop growth water stress factor (unitless)
!     ahzsno - Water content of snow (mm)
!     ahtsno - temperature of snow layer (C)
!     ahfsnfrz - fraction of snow layer water content which is frozen
!     ahzirr - Single day irrigation water applied (mm)
!     ahzdmaxirr - characteristic maximum irrigation system application depth (mm)
!     ahratirr - characteristic irrigation system application rate (mm/hour)
!     ahdurirr - duration of irrigation water application (hours)
!                corresponding to the characteristic maximum irrigation
!                system application depth. This is used to set the rate (depth / duration)
!     ahlocirr - emitter location point (mm)
!                positive is above the soil surface
!                negative is below the soil surface
!     ahminirr - minimum irrigation application amount (mm)
!     am0monirr - flag setting monitoring for irrigation need
!                 0 - do not monitor irrigation need
!                 1 - monitor irrigation need
!     ahmadirr - management allowed depletion used in monitoring irrigation
!                0.0 sets up replacing yesterdays water loss today
!                1.0 schedules next application at wilting point
!     ahndayirr - the next simulation day on which an irrigation can occur (day)
!     ahmintirr - minimum interval for irrigation application (days)
!     ahzoutflow - height of runoff outlet above field surface (m)
!     ahzper - daily deep percolation (mm/day)
!     ahzrun - daily surface runoff (mm/day)
!     ahzinf - daily surface infiltration
!     ahzsmt - Snow melt (mm)
!     ahzwid - Water infiltration depth (mm)
!     ahzeasurf - accumulated surface evaporation since last complete rewetting (mm)
!     ahztranspdepth - depth in soil from which transpiration is extracted (m)
!                     when crop is furrow planted, this is deeper than root depth
!                     and is used in place of it when calling transp subroutine
!     ahzfurcut - estimated furrow bottom depth below flat soil surface (mm)
!     ahztransprtmin - root depth where transpiration depth reduction begins (m)
!     ahztransprtmax - root depth where transpiration depth equals root depth (m)
!$Author: joelevin $
!$Date: 2012-03-30 10:14:38 -0500 (Fri, 30 Mar 2012) $
!$Revision: 12163 $
!$HeadURL: https://eweru-dev1.eweru.ksu.edu/svn/code/weps1/branches/WEPS_F90_update/weps.src/src/inc/h1scs.inc $
!     ------------------------------------------------------------------
!     file 'h1scs.inc'
!
!     This common block contains the variables representing the SCS
!     runoff curve number for each subregion.
!
!     Parameter include files:  p1werm.inc
!
!     + + + VARIABLE DECLARATIONS + + +
!
!