fix if statements

samsrabin · May 10, 2024 · 278a901 · 278a901
1 parent f00ba49
commit 278a901
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/utils/clmfates_interfaceMod.F90 b/src/utils/clmfates_interfaceMod.F90
@@ -514,7 +514,7 @@ subroutine CLMFatesGlobals2()
         if (fates_harvest_mode > fates_harvest_no_logging) then
            pass_logging = 1 ! Time driven logging, without landuse harvest
            ! CLM landuse timeseries driven harvest rates
-           if (fates_harvest_mode == fates_harvest_clmlanduse)
+           if (fates_harvest_mode == fates_harvest_clmlanduse) then
               pass_num_lu_harvest_cats = num_harvest_inst
               pass_lu_harvest = 1
 
@@ -979,7 +979,7 @@ subroutine dynamics_driv(this, nc, bounds_clump,      &
       call GetAndSetTime
 
       ! Get harvest rates for CLM landuse timeseries driven rates
-      if (fates_harvest_mode == fates_harvest_clmlanduse)
+      if (fates_harvest_mode == fates_harvest_clmlanduse) then
          call dynHarvest_interp_resolve_harvesttypes(bounds_clump, &
               harvest_rates=harvest_rates(begg:endg,1:num_harvest_inst), &
               after_start_of_harvest_ts=after_start_of_harvest_ts)
@@ -1105,7 +1105,7 @@ subroutine dynamics_driv(this, nc, bounds_clump,      &
          ! for now there is one veg column per gridcell, so store all harvest data in each site
          ! this will eventually change
          ! today's hlm harvest flag needs to be set no matter what
-         if (fates_harvest_mode == fates_harvest_clmlanduse)
+         if (fates_harvest_mode == fates_harvest_clmlanduse) then
             if (after_start_of_harvest_ts) then
                this%fates(nc)%bc_in(s)%hlm_harvest_rates(1:num_harvest_inst) = harvest_rates(g,1:num_harvest_inst)
             else