subroutine gwdc_pre::gwdc_pre_run | ( | integer, intent(in) | im, |
real(kind=kind_phys), dimension(:), intent(in) | cgwf, | ||
real(kind=kind_phys), dimension(:), intent(in) | dx, | ||
real(kind=kind_phys), dimension(:), intent(in) | work1, | ||
real(kind=kind_phys), dimension(:), intent(in) | work2, | ||
real(kind=kind_phys), dimension(:), intent(out) | dlength, | ||
real(kind=kind_phys), dimension(:), intent(out) | cldf, | ||
integer, intent(in) | levs, | ||
integer, dimension(:), intent(in) | kbot, | ||
integer, dimension(:), intent(in) | ktop, | ||
real(kind=kind_phys), intent(in) | dtp, | ||
real(kind=kind_phys), dimension(:,:), intent(in) | gt0, | ||
real(kind=kind_phys), dimension(:,:), intent(in) | gt0_init, | ||
real(kind=kind_phys), dimension(:,:), intent(in) | del, | ||
real(kind=kind_phys), dimension(:), intent(out) | cumabs, | ||
character(len=*), intent(out) | errmsg, | ||
integer, intent(out) | errflg ) |
Definition at line 11 of file gwdc_pre.f.