subroutine cires_ugwpv1_sporo::oro_spectral_solver | ( | integer, intent(in) | im, |
integer, intent(in) | levs, | ||
integer, intent(in) | npt, | ||
integer, dimension(im), intent(in) | ipt, | ||
integer, dimension(im), intent(in) | kref, | ||
integer, intent(in) | kdt, | ||
integer, intent(in) | me, | ||
integer, intent(in) | master, | ||
real(kind=kind_phys), intent(in) | dtp, | ||
real(kind=kind_phys), intent(in) | dxres, | ||
real(kind=kind_phys), dimension(im), intent(in) | taub, | ||
real(kind=kind_phys), dimension(im, levs), intent(in) | u1, | ||
real(kind=kind_phys), dimension(im, levs), intent(in) | v1, | ||
real(kind=kind_phys), dimension(im, levs), intent(in) | t1, | ||
real(kind=kind_phys), dimension(im), intent(in) | xn, | ||
real(kind=kind_phys), dimension(im), intent(in) | yn, | ||
real(kind=kind_phys), dimension(im, levs), intent(in) | bn2, | ||
real(kind=kind_phys), dimension(im, levs), intent(in) | rho, | ||
real(kind=kind_phys), dimension(im, levs+1), intent(in) | prsi, | ||
real(kind=kind_phys), dimension(im, levs), intent(in) | prsl, | ||
real(kind=kind_phys), dimension(im, levs), intent(in) | del, | ||
real(kind=kind_phys), dimension(im), intent(in) | sigma, | ||
real(kind=kind_phys), dimension(im), intent(in) | hprime, | ||
real(kind=kind_phys), dimension(im), intent(in) | gamma, | ||
real(kind=kind_phys), dimension(im), intent(in) | theta, | ||
real(kind=kind_phys), dimension(im), intent(in) | sinlat, | ||
real(kind=kind_phys), dimension(im), intent(in) | xlatd, | ||
real(kind=kind_phys), dimension(im, levs+1), intent(inout) | taup, | ||
real(kind=kind_phys), dimension(im, levs), intent(inout) | taud, | ||
real(kind=kind_phys), dimension(im, levs), intent(inout) | pkdis ) |
Definition at line 9 of file cires_ugwpv1_sporo.F90.