thermodynamics_type Derived Type

type, public :: thermodynamics_type


Contents

Variables

Type-Bound Procedures


Components

Type Visibility Attributes Name Initial
real(kind=jprb), public, allocatable, dimension(:,:) :: pressure_hl
real(kind=jprb), public, allocatable, dimension(:,:) :: temperature_hl
real(kind=jprb), public, allocatable, dimension(:,:) :: h2o_sat_liq

Type-Bound Procedures

procedure, public :: allocate => allocate_thermodynamics_arrays

  • public subroutine allocate_thermodynamics_arrays(this, ncol, nlev, use_h2o_sat)

    Arguments

    Type IntentOptional Attributes Name
    class(thermodynamics_type), intent(inout) :: this
    integer, intent(in) :: ncol
    integer, intent(in) :: nlev
    logical, intent(in), optional :: use_h2o_sat

procedure, public :: deallocate => deallocate_thermodynamics_arrays

procedure, public :: calc_saturation_wrt_liquid

  • public subroutine calc_saturation_wrt_liquid(this, istartcol, iendcol)

    Arguments

    Type IntentOptional Attributes Name
    class(thermodynamics_type), intent(inout) :: this
    integer, intent(in) :: istartcol
    integer, intent(in) :: iendcol

procedure, public :: get_layer_mass

  • public subroutine get_layer_mass(this, istartcol, iendcol, layer_mass)

    Arguments

    Type IntentOptional Attributes Name
    class(thermodynamics_type), intent(in) :: this
    integer, intent(in) :: istartcol
    integer, intent(in) :: iendcol
    real(kind=jprb), intent(out) :: layer_mass(:,:)

procedure, public :: get_layer_mass_column

  • public subroutine get_layer_mass_column(this, icol, layer_mass)

    Arguments

    Type IntentOptional Attributes Name
    class(thermodynamics_type), intent(in) :: this
    integer, intent(in) :: icol
    real(kind=jprb), intent(out) :: layer_mass(:)

procedure, public :: out_of_physical_bounds

  • public function out_of_physical_bounds(this, istartcol, iendcol, do_fix) result(is_bad)

    Arguments

    Type IntentOptional Attributes Name
    class(thermodynamics_type), intent(inout) :: this
    integer, intent(in), optional :: istartcol
    integer, intent(in), optional :: iendcol
    logical, intent(in), optional :: do_fix

    Return Value logical