![]() |
PUMA
219
Portable University Model of the Atmosphere
|
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) |
| subroutine calcgp | ( | real, dimension(nhor,nlev) | gtn, |
| real, dimension(nhor) | gpm, | ||
| real, dimension(nhor) | gvp | ||
| ) |
| subroutine filter_zonal_waves | ( | , dimension(2,nlon/2,nlpp) | pfc | ) |
| subroutine lubksb | ( | , dimension(n,n) | a, |
| n, | |||
| , dimension(n) | indx, | ||
| , dimension(n) | b | ||
| ) |
| subroutine ludcmp | ( | , dimension(n,n) | a, |
| n, | |||
| , dimension(n) | indx | ||
| ) |
| 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 | ||
| ) |
| subroutine mkekin | ( | real, dimension(nspp,nlev) | zszp, |
| real, dimension(nspp,nlev) | zsdp, | ||
| real, dimension(nhor) | zp, | ||
| real, dimension(nhor) | zekin | ||
| ) |
| subroutine mkekin2 | ( | real, dimension(nspp,nlev) | zszp, |
| real, dimension(nspp,nlev) | zsdp, | ||
| real, dimension(nspp) | zspp, | ||
| real, dimension(nhor) | zekin | ||
| ) |
| subroutine mkenerdiag | ( | real, dimension(nspp,nlev) | pst, |
| real, dimension(nspp,nlev) | pstt, | ||
| real, dimension(nspp) | psp, | ||
| real, dimension(nspp) | pspt, | ||
| real, dimension(nhor) | penergy | ||
| ) |
| subroutine mkentrodiag | ( | real, dimension(nspp,nlev) | pst, |
| real, dimension(nspp,nlev) | pstt, | ||
| real, dimension(nspp) | psp, | ||
| real, dimension(nhor) | pentropy | ||
| ) |
| subroutine mkepot | ( | real, dimension(nspp,nlev) | zstp, |
| real, dimension(nhor) | zp, | ||
| real, dimension(nhor) | zepot | ||
| ) |
| subroutine mkepot2 | ( | real, dimension(nspp,nlev) | zstp, |
| real, dimension(nspp) | zspp, | ||
| real, dimension(nhor) | zepot | ||
| ) |
| subroutine powerprint | ( | character(3) | text, |
| real, dimension(ntp1) | pspec | ||
| ) |
| subroutine powerspec | ( | real, dimension(2,ncsp) | pf, |
| real, dimension(ntp1) | pspec | ||
| ) |
| subroutine ppp_def_int | ( | character (*) | pname, |
| integer, target | nvar, | ||
| ndim | |||
| ) |
| subroutine ppp_def_real | ( | character (*) | pname, |
| real, target | rvar, | ||
| ndim | |||
| ) |
| subroutine ppp_read_i | ( | integer, dimension(ndim) | a, |
| ndim, | |||
| nread | |||
| ) |
| subroutine ppp_read_r | ( | real, dimension(ndim) | a, |
| ndim, | |||
| nread | |||
| ) |
| subroutine read_surf | ( | kcode, | |
| real, dimension(nesp,klev) | psp, | ||
| klev, | |||
| integer | kread | ||
| ) |
| 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 | ||
| ) |
| subroutine writegp | ( | kunit, | |
| real, dimension(nhor) | pf, | ||
| kcode, | |||
| klev | |||
| ) |
| subroutine writesp | ( | kunit, | |
| real, dimension(nrsp) | pf, | ||
| kcode, | |||
| klev, | |||
| pscale, | |||
| poff | |||
| ) |
| subroutine wrspam | ( | , dimension(nrsp) | ps, |
| klev, | |||
| character(30) | title, | ||
| scale | |||
| ) |
| subroutine wrzs | ( | , dimension(nlat,nlev) | zs, |
| character(30) | title, | ||
| scale | |||
| ) |