subroutine cires_ugwpv1_triggers::get_spectra_tau_nstgw | ( | integer | nw, |
integer | im, | ||
integer | levs, | ||
real(kind=kind_phys), dimension(im, levs) | trig_fgf, | ||
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 208 of file cires_ugwpv1_triggers.F90.