src/service/itm_grid_helper.f90

Go to the documentation of this file.

module itm_grid_helper

  !> Some helper routines used in the grid service library.

  use itm_types
  use euITM_schemas ! IGNORE
  
  implicit none

contains

  !> Fill in basic information into an edge CPO. For any omitted
  !> optional argument a default value is substituted.
  subroutine setupEdgeCPO( edgecpo, dataprovider, codename, time )
    type(type_edge), intent(inout) :: edgecpo
    character(*), intent(in), optional :: dataprovider, codename
    real(R8), intent(in), optional :: time
    
    allocate(edgecpo%datainfo%dataprovider(1))
    allocate(edgecpo%codeparam%codename(1))

    ! Default values
    edgecpo%datainfo%dataprovider="IMP3"
    edgecpo%codeparam%codename(1)="SETUP_EDGE_CPO_DEFAULT"
    edgecpo%time = 0.0_R8

    ! Optional values
    if (present(dataprovider)) edgecpo%datainfo%dataprovider(1)=dataprovider
    if (present(codename)) edgecpo%codeparam%codename(1)=codename
    if (present(time)) edgecpo%time = time
  end subroutine setupEdgeCPO
  
end module itm_grid_helper