TSPECTRALPLANCK Derived Type

type, public :: TSPECTRALPLANCK


Inherited by

type~~tspectralplanck~~InheritedByGraph type~tspectralplanck TSPECTRALPLANCK type~terad TERAD type~terad->type~tspectralplanck YSPECTPLANCK

Contents

Variables

Type-Bound Procedures


Components

Type Visibility Attributes Name Initial
integer(kind=JPIM), public :: NINTERVALS
integer(kind=JPIM), public :: NTEMPS
real(kind=JPRB), public :: TEMP1
real(kind=JPRB), public :: DTEMP
real(kind=JPRB), public, ALLOCATABLE :: PLANCK_LUT(:,:)
real(kind=JPRB), public, ALLOCATABLE :: WAVLEN_BOUND(:)
integer(kind=JPIM), public, ALLOCATABLE :: INTERVAL_MAP(:)

Type-Bound Procedures

procedure, public :: INIT

  • public subroutine INIT(SELF, KINTERVALS, PWAVLEN_BOUND, KINTERVAL_MAP)

    Arguments

    Type IntentOptional Attributes Name
    class(TSPECTRALPLANCK), intent(inout) :: SELF
    integer(kind=JPIM), intent(in) :: KINTERVALS
    real(kind=JPRB), intent(in) :: PWAVLEN_BOUND(:)
    integer(kind=JPIM), intent(in) :: KINTERVAL_MAP(:)

procedure, public :: CALC

  • public subroutine CALC(SELF, KIDIA, KFDIA, KLON, PTEMPERATURE, PPLANCK)

    Arguments

    Type IntentOptional Attributes Name
    class(TSPECTRALPLANCK), intent(in) :: SELF
    integer(kind=JPIM), intent(in) :: KIDIA
    integer(kind=JPIM), intent(in) :: KFDIA
    integer(kind=JPIM), intent(in) :: KLON
    real(kind=JPRB), intent(in) :: PTEMPERATURE(KLON)
    real(kind=JPRB), intent(out) :: PPLANCK(KLON,SELF%NINTERVALS)

procedure, public :: PRINT => PRINT_SPECTRAL_PLANCK

  • public subroutine PRINT_SPECTRAL_PLANCK(SELF, IUNIT)

    Arguments

    Type IntentOptional Attributes Name
    class(TSPECTRALPLANCK), intent(in) :: SELF
    integer(kind=JPIM), intent(in) :: IUNIT

procedure, public :: FREE => FREE_SPECTRAL_PLANCK