reset_vegetation_sources Subroutine

public subroutine reset_vegetation_sources()

Arguments

None

Called by

proc~~reset_vegetation_sources~~CalledByGraph proc~reset_vegetation_sources reset_vegetation_sources proc~vegetation_forcing vegetation_forcing proc~vegetation_forcing->proc~reset_vegetation_sources program~udales uDALES program~udales->proc~vegetation_forcing

Source Code

  subroutine reset_vegetation_sources()
    if (allocated(veg_up)) veg_up = 0.
    if (allocated(veg_vp)) veg_vp = 0.
    if (allocated(veg_wp)) veg_wp = 0.
    if (allocated(vegp%qt)) vegp%qt = 0.
    if (allocated(vegp%qtR)) vegp%qtR = 0.
    if (allocated(vegp%qtA)) vegp%qtA = 0.
    if (allocated(vegp%thl)) vegp%thl = 0.
    if (allocated(vegp%omega)) vegp%omega = 0.
    if (allocated(vegp%sv)) vegp%sv = 0.
  end subroutine reset_vegetation_sources