globalMod.F90

module global_mod
  ! Global scope arrays, variables, and constants
  ! used throughout the RRG component but not specific
  ! to any coupling environment (ESMF/MAPL, etc.)
  !

  use types_mod
  
!  implicit none
  public 

  type(inst_),       allocatable :: instances(:)          ! A repository for all instances
  integer                        :: NINSTANCES = 0        ! size of instances(:); initialized to zero
  type(aggr),        allocatable :: aggregate(:)          ! Totals of all instances of a given species. The index is species index

  type(meteorology)              :: met
  type(surface_flux),allocatable :: sfc_flux(:)
  type(parameters),      target  :: params

  type(toggles)                  :: cntrl

  real                           :: grav = 9.80665 ! This can be set at runtime if a different value is desired

  character(32), allocatable     :: species(:)
  integer                        :: nspecies = 0

end module global_mod