subroutine cires_ugwpv1_sporo::oro_meanflow | ( | integer | nz, |
integer | nzi, | ||
real(kind=kind_phys), dimension(nz ) | u1, | ||
real(kind=kind_phys), dimension(nz ) | v1, | ||
real(kind=kind_phys), dimension(nz ) | t1, | ||
real(kind=kind_phys), dimension(nz+1) | pint, | ||
real(kind=kind_phys), dimension(nz ) | pmid, | ||
real(kind=kind_phys), dimension(nz ) | delp, | ||
real(kind=kind_phys), dimension(nz ) | rho, | ||
real(kind=kind_phys), dimension(nz ) | bn2, | ||
real(kind=kind_phys), dimension(nz+1) | uzi, | ||
real(kind=kind_phys), dimension(nz+1) | rhoi, | ||
real(kind=kind_phys), dimension(nz+1) | ktur, | ||
real(kind=kind_phys), dimension(nz+1) | kalp, | ||
real(kind=kind_phys), dimension(nz+1) | dzi, | ||
real(kind=kind_phys) | xn, | ||
real(kind=kind_phys) | yn ) |
Definition at line 290 of file cires_ugwpv1_sporo.F90.