print_to_unit_dropblock3d Subroutine

private subroutine print_to_unit_dropblock3d(this, unit)

Uses

    • coreutils

Print 3D dropblock layer to unit

Type Bound

dropblock3d_layer_type

Arguments

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

Instance of the 3D dropblock layer
integer, intent(in) :: unit

File unit

Source Code

  subroutine print_to_unit_dropblock3d(this, unit)
    !! Print 3D dropblock layer to unit
    use coreutils, only: to_upper
    implicit none

    ! Arguments
    class(dropblock3d_layer_type), intent(in) :: this
    !! Instance of the 3D dropblock layer
    integer, intent(in) :: unit
    !! File unit


    ! Write initial parameters
    !---------------------------------------------------------------------------
    write(unit,'(3X,"INPUT_SHAPE = ",4(1X,I0))') this%input_shape
    write(unit,'(3X,"RATE = ",F0.9)') this%rate
    write(unit,'(3X,"BLOCK_SIZE = ",I0)') this%block_size

  end subroutine print_to_unit_dropblock3d