awc__gridded_values.F90

Go to the documentation of this file.

!> @file
!>  Contains a single module, awc_gridded_values, which
!>  populates awc by reading available water content directly from a gridded input.
 
 
!>  Populate available water content by reading in
!>  the available water content from a gridded data source.
 
module awc__gridded_values
 
  use iso_c_binding, only : c_short, c_int, c_float, c_double
  use constants_and_conversions
  use data_catalog
  use data_catalog_entry
  use exceptions
 
  implicit none
 
  private
 
  public :: awc_gridded_values_initialize, awc_gridded_values_read, pawc_grid
 
  type (data_catalog_entry_t), pointer :: pawc_grid
 
contains
 
  subroutine awc_gridded_values_read( )
 
    ! locate the data structure associated with the gridded available water content entries
    pawc_grid => dat%find("AVAILABLE_WATER_CONTENT")
    if ( .not. associated(pawc_grid) ) then
        call warn("An AVAILABLE_WATER_CONTENT grid must be supplied in order to make use of this option.", &
           __file__, __line__)
 
    else
 
      call pawc_grid%getvalues( )
 
    end if
 
  end subroutine awc_gridded_values_read
 
!--------------------------------------------------------------------------------------------------
 
  subroutine awc_gridded_values_initialize( lActive, fAWC )
 
    logical (c_bool), intent(in)     :: lactive(:,:)
    real (c_float), intent(inout)    :: fawc(:)
 
    if ( associated( pawc_grid ) ) then
 
      fawc = pack( pawc_grid%pGrdBase%rData, lactive )
 
    else
 
      fawc = -9999.0
 
    endif
 
  end subroutine awc_gridded_values_initialize
 
end module awc__gridded_values