| PUMA 219 Portable University Model of the Atmosphere

- Main Page
- Data Types List
- Files

- File List
- File Members

Data Types | Functions/Subroutines
/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.