Fix typos.

mvdebolskiy · Dec 3, 2024 · 1deaba5 · 1deaba5
1 parent e75839d
commit 1deaba5
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/biogeophys/CanopyFluxesMod.F90 b/src/biogeophys/CanopyFluxesMod.F90
@@ -1115,7 +1115,7 @@ subroutine CanopyFluxes(bounds,  num_exposedvegp, filter_exposedvegp,
          if ( use_fates ) then      
             ! zeroed out here for megan isoprene calculations, in case patches are not transfered properly.
             photosyns_inst%cisha_z_patch(begp:endp,:) = -999._r8
-            photosyns_inst$cisun_z_patch(begp:endp,:) = -999._r8
+            photosyns_inst%cisun_z_patch(begp:endp,:) = -999._r8
             call clm_fates%wrap_photosynthesis(nc, bounds, fn, filterp(1:fn), &
                  svpts(begp:endp), eah(begp:endp), o2(begp:endp), &
                  co2(begp:endp), rb(begp:endp), dayl_factor(begp:endp), &

diff --git a/src/utils/clmfates_interfaceMod.F90 b/src/utils/clmfates_interfaceMod.F90
@@ -2579,7 +2579,7 @@ subroutine wrap_photosynthesis(this, nc, bounds, fn, filterp, &
           psnsun    => photosyns_inst%psnsun_patch,  &
           psnsha    => photosyns_inst%psnsha_patch,  &
           cisun_z   => photosyns_inst%cisun_z_patch, & 
-          cisha_z   => photosyns_inst%cisha_z_patch, & 
+          cisha_z   => photosyns_inst%cisha_z_patch & 
          )
       do s = 1, this%fates(nc)%nsites