BasicVerticalGrid Derived Type

type, public, extends(VerticalGrid) :: BasicVerticalGrid


Inherits

type~~basicverticalgrid~~InheritsGraph type~basicverticalgrid BasicVerticalGrid type~verticalgrid VerticalGrid type~basicverticalgrid->type~verticalgrid

Constructor

public interface BasicVerticalGrid

  • private function new_BasicVerticalGrid(num_levels) result(vertical_grid)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: num_levels

    Return Value type(BasicVerticalGrid)


Type-Bound Procedures

procedure, public :: can_connect_to

  • interface

    private module function can_connect_to(this, src, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(BasicVerticalGrid), intent(in) :: this
    class(VerticalGrid), intent(in) :: src
    integer, intent(out), optional :: rc

    Return Value logical

procedure, public :: get_coordinate_field

  • private subroutine get_coordinate_field(this, field, coupler, standard_name, geom, typekind, units, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(BasicVerticalGrid), intent(in) :: this
    type(ESMF_Field), intent(out) :: field
    type(GriddedComponentDriver), intent(out), pointer :: coupler
    character(len=*), intent(in) :: standard_name
    type(ESMF_Geom), intent(in) :: geom
    type(ESMF_TypeKind_Flag), intent(in) :: typekind
    character(len=*), intent(in) :: units
    integer, intent(out), optional :: rc

procedure, public :: get_id

  • private function get_id(this) result(id)

    Arguments

    Type IntentOptional Attributes Name
    class(VerticalGrid), intent(in) :: this

    Return Value integer

procedure, public :: get_num_levels

  • private function get_num_levels(this) result(num_levels)

    Arguments

    Type IntentOptional Attributes Name
    class(BasicVerticalGrid), intent(in) :: this

    Return Value integer

procedure, public :: make_info

  • private function make_info(this, rc) result(info)

    Arguments

    Type IntentOptional Attributes Name
    class(VerticalGrid), intent(in) :: this
    integer, intent(out), optional :: rc

    Return Value type(ESMF_Info)

procedure, public :: same_id

  • private function same_id(this, other)

    Arguments

    Type IntentOptional Attributes Name
    class(VerticalGrid), intent(in) :: this
    class(VerticalGrid), intent(in) :: other

    Return Value logical

procedure, public :: set_id

  • private subroutine set_id(this)

    Arguments

    Type IntentOptional Attributes Name
    class(VerticalGrid), intent(inout) :: this

Source Code

   type, extends(VerticalGrid) :: BasicVerticalGrid
      private
      integer :: num_levels = 0
   contains
      procedure :: get_num_levels
      procedure :: get_coordinate_field
      procedure :: can_connect_to
   end type BasicVerticalGrid