subroutine cu_gf_deep::fct1d3 | ( | integer, intent(in) | ktop, |
integer, intent(in) | n, | ||
real(kind=kind_phys), intent(in) | dt, | ||
real(kind=kind_phys), dimension(n+0), intent(in) | z, | ||
real(kind=kind_phys), dimension(n), intent(in) | tracr, | ||
real(kind=kind_phys), dimension(n+0), intent(in) | massflx, | ||
real(kind=kind_phys), dimension(n+0), intent(in) | trflx_in, | ||
real(kind=kind_phys), dimension(n+0), intent(out) | dellac, | ||
real(kind=kind_phys), intent(in) | g | ||
) |