model_iterate.F90

Go to the documentation of this file.

module model_iterate
 
  use iso_c_binding, only             : c_bool, c_float, c_int
  use constants_and_conversions, only : true, bnds
  use daily_calculation, only         : perform_daily_calculation
  use file_operations, only           : ascii_file_t
  use logfiles, only                  : logs, log_all
  use model_domain, only              : model_domain_t
  use simulation_datetime, only       : sim_dt
  use output, only                    : write_output, initialize_output, finalize_output
!  use summary_statistics, only        : perform_polygon_summarize
  use grid
  implicit none
 
  private
 
  public :: iterate_over_simulation_days
 
contains
 
  subroutine iterate_over_simulation_days(cells)
 
    class(model_domain_t), intent(inout)  :: cells
 
    type (general_grid_t), pointer  :: ptempgrid
 
 
    ! open and prepare NetCDF files for output
    ! (this statement moved here so that files are opened and initialized
    ! after all other routines have initialized; this was needed in order to
    ! make the multiple simulation outputs work)
    call initialize_output( cells )
 
    do while ( sim_dt%curr <= sim_dt%end )
 
      call logs%write("Calculating: "//sim_dt%curr%prettydate(), iloglevel=log_all, lecho=.true._c_bool )
      call cells%update_landuse_codes()
      call cells%update_irrigation_mask()
 
      call cells%get_weather_data( )
      call perform_daily_calculation( cells )
      call write_output( cells )
!      call perform_polygon_summarize( cells )
 
      call cells%dump_variables( )
 
      call sim_dt%addDay( )
 
    enddo
 
    call finalize_output( cells )
 
  end subroutine iterate_over_simulation_days
 
end module model_iterate