sw_aeroAR4.F90 File Reference

#include "YOMCST.h"
#include "clesphys.h"
#include "iniprint.h"

Include dependency graph for sw_aeroAR4.F90:

Go to the source code of this file.

Functions/Subroutines

subroutine

sw_aeroar4 (PSCT, PRMU0, PFRAC, PPMB, PDP, PPSOL, PALBD, PALBP, PTAVE, PWV, PQS, POZON, PAER, PCLDSW, PTAU, POMEGA, PCG, PHEAT, PHEAT0, PALBPLA, PTOPSW, PSOLSW, PTOPSW0, PSOLSW0, ZFSUP, ZFSDN, ZFSUP0, ZFSDN0, tauaero, pizaero, cgaero, PTAUA, POMEGAA, PTOPSWADAERO, PSOLSWADAERO, PTOPSWAD0AERO, PSOLSWAD0AERO, PTOPSWAIAERO, PSOLSWAIAERO, PTOPSWAERO, PTOPSW0AERO, PSOLSWAERO, PSOLSW0AERO, PTOPSWCFAERO, PSOLSWCFAERO, ok_ade, ok_aie, flag_aerosol, flag_aerosol_strat)

Function/Subroutine Documentation

subroutine sw_aeroar4	(	real(kind=8)	PSCT,
		real(kind=8), dimension(kdlon)	PRMU0,
		real(kind=8), dimension(kdlon)	PFRAC,
		real(kind=8), dimension(kdlon,kflev+1)	PPMB,
		real(kind=8), dimension(kdlon,kflev)	PDP,
		real(kind=8), dimension(kdlon)	PPSOL,
		real(kind=8), dimension(kdlon,2)	PALBD,
		real(kind=8), dimension(kdlon,2)	PALBP,
		real(kind=8), dimension(kdlon,kflev)	PTAVE,
		real(kind=8), dimension(kdlon,kflev)	PWV,
		real(kind=8), dimension(kdlon,kflev)	PQS,
		real(kind=8), dimension(kdlon,kflev)	POZON,
		real(kind=8), dimension(kdlon,kflev,5)	PAER,
		real(kind=8), dimension(kdlon,kflev)	PCLDSW,
		real(kind=8), dimension(kdlon,2,kflev)	PTAU,
		real(kind=8), dimension(kdlon,2,kflev)	POMEGA,
		real(kind=8), dimension(kdlon,2,kflev)	PCG,
		real(kind=8), dimension(kdlon,kflev)	PHEAT,
		real(kind=8), dimension(kdlon,kflev)	PHEAT0,
		real(kind=8), dimension(kdlon)	PALBPLA,
		real(kind=8), dimension(kdlon)	PTOPSW,
		real(kind=8), dimension(kdlon)	PSOLSW,
		real(kind=8), dimension(kdlon)	PTOPSW0,
		real(kind=8), dimension(kdlon)	PSOLSW0,
		real(kind=8), dimension(kdlon,kflev+1)	ZFSUP,
		real(kind=8), dimension(kdlon,kflev+1)	ZFSDN,
		real(kind=8), dimension(kdlon,kflev+1)	ZFSUP0,
		real(kind=8), dimension(kdlon,kflev+1)	ZFSDN0,
		real(kind=8), dimension(kdlon,kflev,9,2)	tauaero,
		real(kind=8), dimension(kdlon,kflev,9,2)	pizaero,
		real(kind=8), dimension(kdlon,kflev,9,2)	cgaero,
		real(kind=8), dimension(kdlon,2,kflev)	PTAUA,
		real(kind=8), dimension(kdlon,2,kflev)	POMEGAA,
		real(kind=8), dimension(kdlon)	PTOPSWADAERO,
		real(kind=8), dimension(kdlon)	PSOLSWADAERO,
		real(kind=8), dimension(kdlon)	PTOPSWAD0AERO,
		real(kind=8), dimension(kdlon)	PSOLSWAD0AERO,
		real(kind=8), dimension(kdlon)	PTOPSWAIAERO,
		real(kind=8), dimension(kdlon)	PSOLSWAIAERO,
		real(kind=8), dimension(kdlon,9)	PTOPSWAERO,
		real(kind=8), dimension(kdlon,9)	PTOPSW0AERO,
		real(kind=8), dimension(kdlon,9)	PSOLSWAERO,
		real(kind=8), dimension(kdlon,9)	PSOLSW0AERO,
		real(kind=8), dimension(kdlon,3)	PTOPSWCFAERO,
		real(kind=8), dimension(kdlon,3)	PSOLSWCFAERO,
		logical	ok_ade,
		logical	ok_aie,
		integer	flag_aerosol,
		logical	flag_aerosol_strat
	)

Definition at line 4 of file sw_aeroAR4.F90.

Here is the call graph for this function:

Here is the caller graph for this function: