From 1deaba5e595b462cc3a18aeaf9b37e496505a7a1 Mon Sep 17 00:00:00 2001 From: mvdebolskiy Date: Tue, 3 Dec 2024 11:39:17 +0100 Subject: [PATCH] Fix typos. --- src/biogeophys/CanopyFluxesMod.F90 | 2 +- src/utils/clmfates_interfaceMod.F90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/biogeophys/CanopyFluxesMod.F90 b/src/biogeophys/CanopyFluxesMod.F90 index 6c6aac43c3..925640523f 100644 --- 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 index 020f644a16..30b8b8d84a 100644 --- 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