Skip to content
Snippets Groups Projects
Commit 3be363d2 authored by Sergey Kosukhin's avatar Sergey Kosukhin
Browse files

Remove redundant examples/mo_output_event_types.f90.

parent 4a11c914
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
examples/Makefile.am
+ 2
− 5
View file @ 3be363d2
......@@ -76,11 +76,11 @@ iconatm_SOURCES = iconatm.f90
iconatm_LDADD = ../src/libmtime.la
iconatm_LDFLAGS=
iconoce_SOURCES = iconoce.f90 mo_output_event_types.f90 mo_kind.f90
iconoce_SOURCES = iconoce.f90 mo_kind.f90
iconoce_LDADD = ../src/libmtime.la
iconoce_LDFLAGS=
iconoce_hl_SOURCES = iconoce_hl.f90 mo_output_event_types.f90 mo_kind.f90
iconoce_hl_SOURCES = iconoce_hl.f90 mo_kind.f90
iconoce_hl_LDADD = ../src/libmtime.la
iconoce_hl_LDFLAGS=
......@@ -89,8 +89,5 @@ simulate_iau_LDADD = ../src/libmtime.la
simulate_iau_LDFLAGS=
mo_kind.$(OBJEXT): mo_kind.f90
mo_output_event_types.$(OBJEXT): mo_output_event_types.f90 mo_kind.$(OBJEXT)
duration.$(OBJEXT): duration.f90 mo_kind.$(OBJEXT)
iconoce.$(OBJEXT): iconoce.f90 mo_output_event_types.$(OBJEXT)
iconoce_hl.$(OBJEXT): iconoce_hl.f90 mo_output_event_types.$(OBJEXT)
examples/mo_output_event_types.f90 deleted 100644 → 0
+ 0
− 172
View file @ 4a11c914
!> Type definitions for handling of regular output steps and ready
!> file events on multiple I/O PEs.
!!
!! See "mo_output_event_handler" for a detailed description.
!!
!! @author F. Prill, DWD
!!
!! @par Revision History
!! Initial implementation by F. Prill, DWD (2013-09-17)
!!
!! @par Copyright
!! 2002-2010 by DWD and MPI-M
!! This software is provided for non-commercial use only.
!! See the LICENSE and the WARRANTY conditions.
!!
!! @par License
!! The use of ICON is hereby granted free of charge for an unlimited time,
!! provided the following rules are accepted and applied:
!! <ol>
!! <li> You may use or modify this code for your own non commercial and non
!! violent purposes.
!! <li> The code may not be re-distributed without the consent of the authors.
!! <li> The copyright notice and statement of authorship must appear in all
!! copies.
!! <li> You accept the warranty conditions (see WARRANTY).
!! <li> In case you intend to use the code commercially, we oblige you to sign
!! an according license agreement with DWD and MPI-M.
!! </ol>
!!
!! @par Warranty
!! This code has been tested up to a certain level. Defects and weaknesses,
!! which may be included in the code, do not establish any warranties by the
!! authors.
!! The authors do not make any warranty, express or implied, or assume any
!! liability or responsibility for the use, acquisition or application of this
!! software.
!!
!! -----------------------------------------------------------------------------------
MODULE mo_output_event_types
USE mtime, ONLY: MAX_DATETIME_STR_LEN
USE mo_kind, ONLY: wp
IMPLICIT NONE
PRIVATE
PUBLIC :: t_sim_step_info
PUBLIC :: t_event_data
PUBLIC :: t_event_step_data
PUBLIC :: t_event_step
PUBLIC :: t_output_event
PUBLIC :: t_par_output_event
PUBLIC :: MAX_FILENAME_STR_LEN
PUBLIC :: MAX_EVENT_NAME_STR_LEN
PUBLIC :: DEFAULT_EVENT_NAME
!> max. length of filename
INTEGER, PARAMETER :: MAX_FILENAME_STR_LEN = 256
!> max. length of output event name
INTEGER, PARAMETER :: MAX_EVENT_NAME_STR_LEN = 1024
!> default event name (ie. events that DO NOT write ready files
CHARACTER (LEN=*), PARAMETER :: DEFAULT_EVENT_NAME = "default"
!---------------------------------------------------------------
! types
!---------------------------------------------------------------
! DEFINITIONS FOR CONVERSION "time stamp -> simulation step"
!> Data structure containing all necessary data for mapping a time
! stamp onto a corresponding simulation step index.
!
TYPE t_sim_step_info
CHARACTER(len=MAX_DATETIME_STR_LEN) :: sim_start, sim_end !< simulation start/end time stamp
CHARACTER(len=MAX_DATETIME_STR_LEN) :: run_start !< start of this run (-> restart)
CHARACTER(len=MAX_DATETIME_STR_LEN) :: restart_time !< end of this run (-> restart)
REAL(wp) :: dtime !< [s] length of a time step
INTEGER :: iadv_rcf !< advection step: frequency ratio
CHARACTER(len=MAX_DATETIME_STR_LEN) :: dom_start_time, dom_end_time !< model domain start/end time
INTEGER :: jstep0 !< initial time loop counter (important for restart)
END TYPE t_sim_step_info
!---------------------------------------------------------------
! EVENT-SPECIFIC DATA
!
! We collect these members in derived data types in order to
! separate the trigger mechanism from the event (the handling of
! output steps) itself.
!> Container for event-specific data, for all steps of an event.
!
TYPE t_event_data
CHARACTER(LEN=MAX_EVENT_NAME_STR_LEN) :: name !< output event name
CHARACTER(len=MAX_DATETIME_STR_LEN) :: sim_start !< simulation start
END TYPE t_event_data
!> Container for event-specific data, for a single event step.
!
! @note Note that it is possible to have different date-time stamps
! for a single model step: This happens when output events
! that were chosen at different intervals are triggered at
! the same mode step which is the earliest dynamics/advection
! step available.
!
TYPE t_event_step_data
INTEGER :: i_pe !< rank of participating PE
CHARACTER(LEN=MAX_DATETIME_STR_LEN) :: datetime_string !< ISO 8601 conforming time stamp
CHARACTER(LEN=MAX_FILENAME_STR_LEN) :: filename_string !< output file name
INTEGER :: jfile, jpart !< file counter, "part of file" counter
LOGICAL :: l_open_file !< Flag. .TRUE. if file is to be opened in this step
LOGICAL :: l_close_file !< Flag. .TRUE. if file is closed in this step
!> tag, e.g. for MPI isend/irecv messages, unique at least on sender side
INTEGER :: i_tag
END TYPE t_event_step_data
!---------------------------------------------------------------
! DEFINITION OF EVENT STEPS
!> Single step of an event.
!
! Events are triggered by the simulation step (INTEGER) only to
! avoid ambiguities. The corresponding event time stamp string
! must not necessarily match this simulation step exactly.
!
TYPE t_event_step
INTEGER :: i_sim_step !< simulation step that triggers event
INTEGER :: n_pes !< no. PEs participating in this step
CHARACTER(LEN=MAX_DATETIME_STR_LEN) :: exact_date_string !< exact (model step) time stamp
!
TYPE(t_event_step_data), ALLOCATABLE :: event_step_data(:) !< event data for each PE
END TYPE t_event_step
!> List of steps for an event.
!
TYPE t_output_event
TYPE(t_event_data) :: event_data !< event data
INTEGER :: n_event_steps !< total no. of event steps
INTEGER :: i_event_step !< current event step
TYPE(t_event_step), ALLOCATABLE :: event_step(:) !< event steps (1,...,n_event_steps)
END TYPE t_output_event
!---------------------------------------------------------------
! MPI-PARALLEL EVENTS
!> List of steps of an event that is performed on several PEs in
! parallel.
!
TYPE t_par_output_event
TYPE(t_output_event), POINTER :: output_event !< event data structure
! --- MPI related fields:
INTEGER :: icomm !< MPI communicator
INTEGER :: iroot !< MPI rank of root PE
INTEGER :: isend_req !< MPI isend request token
INTEGER :: isend_buf !< MPI isend data buffer
INTEGER :: irecv_nreq !< no. of MPI irecv requests
INTEGER, ALLOCATABLE :: irecv_req(:) !< MPI irecv request tokens
INTEGER, ALLOCATABLE :: irecv_buf(:) !< MPI irecv data buffer
TYPE(t_par_output_event), POINTER :: next !< neighbor in linked list
END TYPE t_par_output_event
END MODULE mo_output_event_types
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Imprint | Privacy Policy