devap()

subroutine gfssflx::devap ( real (kind=kind_phys), intent(in) etp1, real (kind=kind_phys), intent(in) smc, real (kind=kind_phys), intent(in) shdfac, real (kind=kind_phys), intent(in) smcmax, real (kind=kind_phys), intent(in) smcdry, real (kind=kind_phys), intent(in) fxexp, real (kind=kind_phys), intent(out) edir1 )

private

Definition at line 3854 of file sflx.f.

Referenced by evapo().

Here is the caller graph for this function: