Move C14Bombspike and C13TimeSeries from Photosynthesis to clm_driver

Author: ekluzek

src/biogeophys/PhotosynthesisMod.F90

@@ -2067,7 +2067,7 @@ subroutine PhotosynthesisTotal (bounds, fn, filterp, &
     !
     ! Determine total photosynthesis
     !
-    use CIsoAtmTimeseriesMod, only : C14BombSpike, C13TimeSeries
+    !use CIsoAtmTimeseriesMod, only : C14BombSpike, C13TimeSeries
     use CIsoAtmTimeseriesMod, only : rc13_atm_grc, rc14_atm_grc
     ! !ARGUMENTS:
     type(bounds_type)      , intent(in)    :: bounds
@@ -2113,11 +2113,6 @@ subroutine PhotosynthesisTotal (bounds, fn, filterp, &
          fpsn_wp     => photosyns_inst%fpsn_wp_patch       & ! Output: [real(r8) (:) ]  product-limited photosynthesis (umol CO2 /m**2 /s)
          )
 
-      ! Get the current C13/C14 ratio in the atmosphere from timeseries data or the fixed values
-      ! These calls fill the data: rc13_atm_grc and rc14_atm_grc
-      if ( use_c14 ) call C14BombSpike(bounds)
-      if ( use_c13 ) call C13TimeSeries(bounds, atm2lnd_inst)
-
       do f = 1, fn
          p = filterp(f)
          g = patch%gridcell(p)

src/main/clm_driver.F90

@@ -118,6 +118,7 @@ subroutine clm_drv(doalb, nextsw_cday, declinp1, declin, rstwr, nlend, rdate, ro
     use laiStreamMod          , only : lai_advance
     use FATESFireFactoryMod   , only : scalar_lightning
     use FatesInterfaceTypesMod, only : fates_dispersal_cadence_none
+    use CIsoAtmTimeseriesMod, only : C14BombSpike, C13TimeSeries
     !
     ! !ARGUMENTS:
     implicit none
@@ -408,6 +409,10 @@ subroutine clm_drv(doalb, nextsw_cday, declinp1, declin, rstwr, nlend, rdate, ro
        call PrescribedSoilMoistureAdvance( bounds_proc )
        call t_stopf('prescribed_sm')
     endif
+      ! Get the current C13/C14 ratio in the atmosphere from timeseries data or the fixed values
+      ! These calls fill the data: rc13_atm_grc and rc14_atm_grc
+      if ( use_c14 ) call C14BombSpike(bounds_proc)
+      if ( use_c13 ) call C13TimeSeries(bounds_proc, atm2lnd_inst)
     ! ============================================================================
     ! Initialize the column-level mass balance checks for water, carbon & nitrogen.
     !