YOE_SPECTRAL_PLANCK Module

Uses

- PARKIND1
Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Used by

Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Contents

Derived Types

TSPECTRALPLANCK

Subroutines

INIT CALC PRINT_SPECTRAL_PLANCK FREE_SPECTRAL_PLANCK

Derived Types

type, public :: TSPECTRALPLANCK

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 Subroutine
procedure , public :: CALC Subroutine
procedure , public :: PRINT => PRINT_SPECTRAL_PLANCK Subroutine
procedure , public :: FREE => FREE_SPECTRAL_PLANCK Subroutine

Subroutines

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

Arguments

Type	Intent	Optional	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(:)

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

Arguments

Type	Intent	Optional	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)

public subroutine PRINT_SPECTRAL_PLANCK(SELF, IUNIT)

Arguments

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

public subroutine FREE_SPECTRAL_PLANCK(SELF)

Arguments

Type	Intent	Optional	Attributes		Name
class(TSPECTRALPLANCK),	intent(inout)			::	SELF