et__gridded_values.F90

Go to the documentation of this file.

!> @file
!>  Contains a single module, et_gridded_values, which
!>  populates the reference et by applying the monthly value obtained from a reference grid.
 
 
!>  Populate potential evapotranspiration by substituting in
!>  the daily average ET from a gridded data source.
 
module et__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
  use simulation_datetime
  use fstring
  use fstring_list
 
  implicit none
 
  private
 
  public :: et_gridded_values_initialize, et_gridded_values_calculate, pet_grid
 
  type (data_catalog_entry_t), pointer :: pet_grid
 
contains
 
  subroutine et_gridded_values_initialize( lActive )
 
    logical (c_bool), intent(in)     :: lactive(:,:)
 
    ! [ LOCALS ]
    integer (c_int)                 :: istat
    type (fstring_list_t)                 :: slstring
    integer (c_int)                 :: iindex
 
 
    ! locate the data structure associated with the gridded rainfall zone entries
    pet_grid => dat%find("POTENTIAL_ET")
    if ( .not. associated(pet_grid) ) then
      pet_grid => dat%find("REFERENCE_ET0")
      if (.not. associated(pet_grid) ) &
        call die("A POTENTIAL_ET or REFERENCE_ET0 grid must be supplied in order to make"   &
                 //" use of this option.", __file__, __line__)
 
    endif
 
  end subroutine et_gridded_values_initialize
 
!--------------------------------------------------------------------------------------------------
 
  subroutine et_gridded_values_calculate()
 
    associate( dt => sim_dt%curr )
 
      call pet_grid%getvalues( dt )
 
    end associate
 
  end subroutine et_gridded_values_calculate
 
end module et__gridded_values