read_dropblock3d_layer Function

public function read_dropblock3d_layer(unit, verbose) result(layer)

Read 3D dropblock layer from file and return layer

Arguments

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

File unit
integer, intent(in), optional :: verbose

Verbosity level

Return Value class(base_layer_type), allocatable

Instance of the 3D dropblock layer


Source Code

  function read_dropblock3d_layer(unit, verbose) result(layer)
    !! Read 3D dropblock layer from file and return layer
    implicit none
    integer, intent(in) :: unit
    !! File unit
    integer, optional, intent(in) :: verbose
    !! Verbosity level
    class(base_layer_type), allocatable :: layer
    !! Instance of the 3D dropblock layer

    integer :: verbose_ = 0
    !! Verbosity level

    if(present(verbose)) verbose_ = verbose
    allocate(layer, source=dropblock3d_layer_type(rate=0._real32, block_size=0))
    call layer%read(unit, verbose=verbose_)

  end function read_dropblock3d_layer