subroutine cires_ugwpv1_triggers::get_spectra_tau_convgw | ( | integer | nw, |
integer | im, | ||
integer | levs, | ||
real(kind=kind_phys), dimension(im, levs) | dcheat, | ||
real(kind=kind_phys), dimension(im, levs) | scheat, | ||
real(kind=kind_phys), dimension(im) | precip, | ||
integer, dimension(im,3) | icld, | ||
real(kind=kind_phys), dimension(im) | xlatd, | ||
real(kind=kind_phys), dimension(im) | sinlat, | ||
real(kind=kind_phys), dimension(im) | coslat, | ||
real(kind=kind_phys), dimension(im) | taub, | ||
integer, dimension(im) | klev, | ||
integer, dimension(im) | if_src, | ||
integer | nf_src ) |
Definition at line 138 of file cires_ugwpv1_triggers.F90.