From 00959c35a80edb3626e0861bc159c246ce433fb1 Mon Sep 17 00:00:00 2001
From: Joshua Rady <jmrady@vt.edu>
Date: Sat, 7 Aug 2021 22:01:18 -0400
Subject: [PATCH] Replace present() calls to provided() where appropriate.

---
 biogeochem/FatesVegetationManagementMod.F90 | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/biogeochem/FatesVegetationManagementMod.F90 b/biogeochem/FatesVegetationManagementMod.F90
index 81926b63e7..25b643696a 100644
--- a/biogeochem/FatesVegetationManagementMod.F90
+++ b/biogeochem/FatesVegetationManagementMod.F90
@@ -2158,7 +2158,7 @@ subroutine plant(site, patch, bc_in, pft_index, density, dbh, height) !plant_sap
     area = patch%area
     
     ! If not provided use the default initial plant density:
-    if (present(density) .and. (density /= vm_empty_real)) then
+    if (provided(density)) then
       the_density = density
     else
       the_density = EDPftvarcon_inst%initd(pft_index)
@@ -2166,11 +2166,11 @@ subroutine plant(site, patch, bc_in, pft_index, density, dbh, height) !plant_sap
     
     ! Size:
     ! If DBH or height if provided (in that order), otherwise use the default height.
-    if (present(dbh) .and. (dbh /= vm_empty_real)) then
+    if (provided(dbh)) then
       the_dbh = dbh
       use_dbh = .true.
     else
-      if (present(height) .and. (height /= vm_empty_real)) then
+      if (provided(height)) then
         the_height = height
       else
         ! Get the default from the parameter file:
@@ -3280,7 +3280,7 @@ subroutine hardwood_control(site, efficiency) ! method, where, area/patch_fracti
     ! ----------------------------------------------------------------------------------------------
     if (debug) write(fates_log(), *) 'hardwood_control() beginning.'
     
-    if (present(efficiency) .and. efficiency /= vm_empty_real) then
+    if (provided(efficiency)) then
       the_efficiency = efficiency
     else
       the_efficiency = 1.0_r8