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 3839 of file sflx.f.

Referenced by evapo().

Here is the caller graph for this function: