/Users/home/WC/puma/src/puma.f90 File Reference

Go to the source code of this file.

Data Types
module	pumamod
module	radmod
module	prepmod
type	prepmod::ppp_type
interface	prepmod::ppp_def_int
interface	prepmod::ppp_def_real
Functions/Subroutines
program	puma_main
subroutine	setfilenames
subroutine	opendiag
subroutine	allocate_arrays
subroutine	prolog
subroutine	master
subroutine	epilog
subroutine	read_atmos_restart
subroutine	initfd
subroutine	read_resolution
subroutine	resolution
subroutine	readnl
subroutine	ppp_def_int (pname, nvar, ndim)
subroutine	ppp_def_real (pname, rvar, ndim)
subroutine	ppp_read_i (a, ndim, nread)
subroutine	ppp_read_r (a, ndim, nread)
subroutine	ppp_interface
subroutine	select_zonal_waves
subroutine	select_spectral_modes
subroutine	set_vertical_grid
subroutine	initpm
subroutine	makebm
subroutine	initsi
subroutine	initrandom
subroutine	printseed
subroutine	initruido
subroutine	stepruido
subroutine	minvers (a, n)
subroutine	lubksb (a, n, indx, b)
subroutine	ludcmp (a, n, indx)
subroutine	filter_zonal_waves (pfc)
subroutine	filter_spectral_modes
subroutine	noise (kickval)
subroutine	setzt
subroutine	printprofile
subroutine	read_surf (kcode, psp, klev, kread)
subroutine	read_vargp (kcode, klev, kread)
subroutine	diag
subroutine	prisp
subroutine	powerspec (pf, pspec)
subroutine	powerprint (text, pspec)
function	rmssp (pf)
subroutine	energy
subroutine	ntomin (kstep, imin, ihou, iday, imon, iyea)
subroutine	ntodat (istep, datch)
subroutine	wrspam (ps, klev, title, scale)
function	cab (i)
subroutine	wrzs (zs, title, scale)
subroutine	xsect
subroutine	writesp (kunit, pf, kcode, klev, pscale, poff)
subroutine	writegp (kunit, pf, kcode, klev)
subroutine	outsp
subroutine	outgp
subroutine	checkunit
subroutine	legpri
subroutine	inilat
subroutine	gridpoint
subroutine	calcgp (gtn, gpm, gvp)
subroutine	spectral
subroutine	mrcheck (f)
subroutine	diagp (zampl)
subroutine	heatgp (zampl)
subroutine	vdiff (pt, pz, pd, ptt, pzt, pdt)
real function	gasdev ()
subroutine	sponge
subroutine	mkenerdiag (pst, pstt, psp, pspt, penergy)
subroutine	mkentrodiag (pst, pstt, psp, pentropy)
subroutine	mkdheat (zszt1, zszt2, zsdt1, zsdt2, zsp)
subroutine	mkekin (zszp, zsdp, zp, zekin)
subroutine	mkekin2 (zszp, zsdp, zspp, zekin)
subroutine	mkepot (zstp, zp, zepot)
subroutine	mkepot2 (zstp, zspp, zepot)

---

Function/Subroutine Documentation

subroutine allocate_arrays

(

)

Definition at line 593 of file puma.f90.

function wrspam::cab

(

i

)

Definition at line 2805 of file puma.f90.

subroutine calcgp	(	real, dimension(nhor,nlev)	gtn,
		real, dimension(nhor)	gpm,
		real, dimension(nhor)	gvp
	)

Definition at line 3252 of file puma.f90.

subroutine checkunit

(

)

Definition at line 3033 of file puma.f90.

subroutine diag

(

)

Definition at line 2546 of file puma.f90.

subroutine diagp

(

real

zampl

)

Definition at line 3941 of file puma.f90.

subroutine energy

(

)

Definition at line 2653 of file puma.f90.

subroutine epilog

(

)

Definition at line 976 of file puma.f90.

subroutine filter_spectral_modes

(

)

Definition at line 2135 of file puma.f90.

subroutine filter_zonal_waves

(

, dimension(2,nlon/2,nlpp)

pfc

)

Definition at line 2118 of file puma.f90.

real function gasdev

(

)

Definition at line 4162 of file puma.f90.

subroutine gridpoint

(

)

Definition at line 3108 of file puma.f90.

subroutine heatgp

(

real

zampl

)

Definition at line 4001 of file puma.f90.

subroutine inilat

(

)

Definition at line 3086 of file puma.f90.

subroutine initfd

(

)

Definition at line 1168 of file puma.f90.

subroutine initpm

(

)

Definition at line 1625 of file puma.f90.

subroutine initrandom

(

)

Definition at line 1926 of file puma.f90.

subroutine initruido

(

)

Definition at line 1975 of file puma.f90.

subroutine initsi

(

)

Definition at line 1812 of file puma.f90.

subroutine legpri

(

)

Definition at line 3061 of file puma.f90.

subroutine lubksb	(	, dimension(n,n)	a,
			n,
		, dimension(n)	indx,
		, dimension(n)	b
	)

Definition at line 2047 of file puma.f90.

subroutine ludcmp	(	, dimension(n,n)	a,
			n,
		, dimension(n)	indx
	)

Definition at line 2078 of file puma.f90.

subroutine makebm

(

)

Definition at line 1786 of file puma.f90.

subroutine master

(

)

Definition at line 918 of file puma.f90.

subroutine minvers	(	, dimension(n,n)	a,
			n
	)

Definition at line 2028 of file puma.f90.

subroutine mkdheat	(	real, dimension(nspp,nlev)	zszt1,
		real, dimension(nspp,nlev)	zszt2,
		real, dimension(nspp,nlev)	zsdt1,
		real, dimension(nspp,nlev)	zsdt2,
		real, dimension(nspp)	zsp
	)

Definition at line 4343 of file puma.f90.

subroutine mkekin	(	real, dimension(nspp,nlev)	zszp,
		real, dimension(nspp,nlev)	zsdp,
		real, dimension(nhor)	zp,
		real, dimension(nhor)	zekin
	)

Definition at line 4518 of file puma.f90.

subroutine mkekin2	(	real, dimension(nspp,nlev)	zszp,
		real, dimension(nspp,nlev)	zsdp,
		real, dimension(nspp)	zspp,
		real, dimension(nhor)	zekin
	)

Definition at line 4550 of file puma.f90.

subroutine mkenerdiag	(	real, dimension(nspp,nlev)	pst,
		real, dimension(nspp,nlev)	pstt,
		real, dimension(nspp)	psp,
		real, dimension(nspp)	pspt,
		real, dimension(nhor)	penergy
	)

Definition at line 4244 of file puma.f90.

subroutine mkentrodiag	(	real, dimension(nspp,nlev)	pst,
		real, dimension(nspp,nlev)	pstt,
		real, dimension(nspp)	psp,
		real, dimension(nhor)	pentropy
	)

Definition at line 4298 of file puma.f90.

subroutine mkepot	(	real, dimension(nspp,nlev)	zstp,
		real, dimension(nhor)	zp,
		real, dimension(nhor)	zepot
	)

Definition at line 4592 of file puma.f90.

subroutine mkepot2	(	real, dimension(nspp,nlev)	zstp,
		real, dimension(nspp)	zspp,
		real, dimension(nhor)	zepot
	)

Definition at line 4621 of file puma.f90.

subroutine mrcheck

(

real, dimension(*)

f

)

Definition at line 3925 of file puma.f90.

subroutine noise

(

integer

kickval

)

Definition at line 2173 of file puma.f90.

subroutine ntodat	(		istep,
		character(18)	datch
	)

Definition at line 2759 of file puma.f90.

subroutine ntomin	(		kstep,
			imin,
			ihou,
			iday,
			imon,
			iyea
	)

Definition at line 2737 of file puma.f90.

subroutine opendiag

(

)

Definition at line 578 of file puma.f90.

subroutine outgp

(

)

Definition at line 3004 of file puma.f90.

subroutine outsp

(

)

Definition at line 2934 of file puma.f90.

subroutine powerprint	(	character(3)	text,
		real, dimension(ntp1)	pspec
	)

Definition at line 2615 of file puma.f90.

subroutine powerspec	(	real, dimension(2,ncsp)	pf,
		real, dimension(ntp1)	pspec
	)

Definition at line 2592 of file puma.f90.

subroutine ppp_def_int	(	character (*)	pname,
		integer, target	nvar,
			ndim
	)

Definition at line 1385 of file puma.f90.

subroutine ppp_def_real	(	character (*)	pname,
		real, target	rvar,
			ndim
	)

Definition at line 1405 of file puma.f90.

subroutine ppp_interface

(

)

Definition at line 1450 of file puma.f90.

subroutine ppp_read_i	(	integer, dimension(ndim)	a,
			ndim,
			nread
	)

Definition at line 1420 of file puma.f90.

subroutine ppp_read_r	(	real, dimension(ndim)	a,
			ndim,
			nread
	)

Definition at line 1433 of file puma.f90.

subroutine printprofile

(

)

Definition at line 2344 of file puma.f90.

subroutine printseed

(

)

Definition at line 1954 of file puma.f90.

subroutine prisp

(

)

Definition at line 2560 of file puma.f90.

subroutine prolog

(

)

Definition at line 686 of file puma.f90.

program puma_main

(

)

Definition at line 484 of file puma.f90.

subroutine read_atmos_restart

(

)

Definition at line 1086 of file puma.f90.

subroutine read_resolution

(

)

Definition at line 1253 of file puma.f90.

subroutine read_surf	(		kcode,
		real, dimension(nesp,klev)	psp,
			klev,
		integer	kread
	)

Definition at line 2380 of file puma.f90.

subroutine read_vargp	(		kcode,
			klev,
			kread
	)

Definition at line 2434 of file puma.f90.

subroutine readnl

(

)

Definition at line 1307 of file puma.f90.

subroutine resolution

(

)

Definition at line 1276 of file puma.f90.

function rmssp

(

real, dimension(nesp,nlev)

pf

)

Definition at line 2635 of file puma.f90.

subroutine select_spectral_modes

(

)

Definition at line 1540 of file puma.f90.

subroutine select_zonal_waves

(

)

Definition at line 1527 of file puma.f90.

subroutine set_vertical_grid

(

)

Definition at line 1553 of file puma.f90.

subroutine setfilenames

(

)

Definition at line 552 of file puma.f90.

subroutine setzt

(

)

Definition at line 2267 of file puma.f90.

subroutine spectral

(

)

Definition at line 3477 of file puma.f90.

subroutine sponge

(

)

Definition at line 4191 of file puma.f90.

subroutine stepruido

(

)

Definition at line 1990 of file puma.f90.

subroutine vdiff	(	real, dimension(nspp,nlev)	pt,
		real, dimension(nspp,nlev)	pz,
		real, dimension(nspp,nlev)	pd,
		real, dimension(nspp,nlev)	ptt,
		real, dimension(nspp,nlev)	pzt,
		real, dimension(nspp,nlev)	pdt
	)

Definition at line 4039 of file puma.f90.

subroutine writegp	(		kunit,
		real, dimension(nhor)	pf,
			kcode,
			klev
	)

Definition at line 2901 of file puma.f90.

subroutine writesp	(		kunit,
		real, dimension(nrsp)	pf,
			kcode,
			klev,
			pscale,
			poff
	)

Definition at line 2870 of file puma.f90.

subroutine wrspam	(	, dimension(nrsp)	ps,
			klev,
		character(30)	title,
			scale
	)

Definition at line 2774 of file puma.f90.

subroutine wrzs	(	, dimension(nlat,nlev)	zs,
		character(30)	title,
			scale
	)

Definition at line 2814 of file puma.f90.

subroutine xsect

(

)

Definition at line 2851 of file puma.f90.