!*==aa0022.spg  processed by SPAG 6.70Rc at 21:09 on  9 Dec 2012
      use c_m1sim
      implicit none
!*--AA00224
!
!*** Start of declarations rewritten by SPAG
!
!*** End of declarations rewritten by SPAG
!
 
!     + + + VARIABLE DEFINITIONS + + +
 
!     sim_area - Simulation Region area (m^2)
 
!     amasim - Field angle (degrees)
 
!              range values      min       max
!              ------------   ---------  ---------
!              fixed              0        360
!              typical            0        360
!              ------------   ---------  ---------
 
!            - This variable contains the angle of the simulation
!              region boundary relative to north.
 
!     ampbr  - Porosity of each barrier
 
!              range values       min        max
!              ------------   ---------  ---------
!              fixed               ?          ?
!              typical             ?          ?
!              ------------   ---------  ---------
 
!            - This variable contains the porosity as fraction
!              of the outline of each barrier.
!              (ie., 1 - silhouette area).
 
!   amxar(xy,pt,ar)
!             - Coordinates of the accounting region where:
!                xy = 1 for x coordinate
!                xy = 2 for y coordinate
!                pt = 1 for first point, ie. lower left corner of region
!                pt = 2 for second point, ie. upper right corner of region
!                ar = number of the accounting region
!                     eg. ar = 1 if only one acciunting region
!              Note that two numbers (ie x,y) for amxar are needed to
!                   describe each point if the accounting region
 
!              range values      min       max
!              ------------   ---------  ---------
!              fixed              ?         ?
!              typical            ?         ?
!              ------------   ---------  ---------
 
!            - This variable contains the coordinates of two
!              opposite points for a rectangular accounting region.
 
!     amxsim - Coordinates of simulation region
 
!              range values      min       max
!              ------------   ---------  ---------
!              fixed             ?          ?
!              typical           ?          ?
!              ------------   ---------  ---------
 
!            - This variable contains the coordinates of two
!              opposite points for a rectangular simulation region.
 
!     amxsr  - Coordinates of the subregions
 
!              range values       min        max
!              ------------   ---------  ---------
!              fixed               ?          ?
!              typical             ?          ?
!              ------------   ---------  ---------
 
!            - This variable contains the coordinates of two
!              opposite points for each rectangular subregion.
 
!     amxbr  - Coordinates of barriers
 
!              range values       min        max
!              ------------   ---------  ---------
!              fixed               ?          ?
!              typical             ?          ?
!              ------------   ---------  ---------
 
!            - This variable contains the coordinates of two
!              endpoints of a linear barrier.
 
!     amxbrw - Width of each barrier
 
!              range values       min        max
!              ------------   ---------  ---------
!              fixed               ?          ?
!              typical             ?          ?
!              ------------   ---------  ---------
 
!            - This variable contains the width of each barrier in meters.
 
!     amzbr  - Height of each barrier
 
!              range values       min        max
!              ------------   ---------  ---------
!              fixed               ?          ?
!              typical             ?          ?
!              ------------   ---------  ---------
 
!            - This variable contains the height of each barrier in meters.
 
!    nacctr  - Number of accounting regions
 
!              range values       min        max
!              ------------   ---------  ---------
!              fixed               ?          ?
!              typical             ?          ?
!              ------------   ---------  ---------
 
!            - This variable contains the number of accounting
!              regions for the simulation region.
 
!    nbr     - Number of barriers within the simulation region
 
!              range values       min        max
!              ------------   ---------  ---------
!              fixed               ?          ?
!              typical             ?          ?
!              ------------   ---------  ---------
 
!            - This variable contains the number of barriers
!              for the simulation region.
 
!    amzbt   - Barrier type
!-----------------------------------------------------------------------
!$Author: fredfox $
!$Date: 2011-04-27 10:01:11 -0500 (Wed, 27 Apr 2011) $
!$Revision: 11825 $
!$HeadURL: https://eweru-dev1.eweru.ksu.edu/svn/code/weps1/branches/WEPS_F90_update/weps.src/src/inc/m1sim.inc $
!     -----------------------------------------------------------------
!     file 'm1sim.inc'
 
!     This block common is contains variables used for a simulation run
!     for MAIN.
 
!     + + + VARIABLE DECLARATIONS + + +