set_aer.F90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	set_aer (control, atm, dimen, spectrum, aer)

Function/Subroutine Documentation

set_aer()

subroutine set_aer	(	type(strctrl), intent(in)	control,
		type(stratm), intent(in)	atm,
		type(strdim), intent(in)	dimen,
		type (strspecdata), intent(in)	spectrum,
		type(straer), intent(out)	aer
	)

Definition at line 10 of file set_aer.F90.

 
USE rad_pcf
USE def_control, ONLY: strctrl
USE def_atm,     ONLY: stratm 
USE def_spectrum, ONLY: strspecdata
USE def_dimen,    ONLY: strdim
USE def_aer,    ONLY: straer, allocate_aer, allocate_aer_prsc
 
IMPLICIT NONE
 
! Control options:
TYPE(StrCtrl),      INTENT(IN)    :: control
 
! Atmospheric properties:
TYPE(StrAtm),       INTENT(IN) :: atm
 
! Dimensions:
TYPE(StrDim),       INTENT(IN)  :: dimen
 
! Spectral data:
TYPE (StrSpecData), INTENT(IN)  :: spectrum
 
! Boundary conditions:
TYPE(StrAer),     INTENT(OUT) :: aer
 
call allocate_aer(aer, dimen, spectrum)
CALL allocate_aer_prsc(aer, dimen, spectrum)
 
 

Here is the caller graph for this function: