Merge pull request #1900 from GEOS-ESM/feature/adarmenov/#1882-add-so…

…lar-noon-diagnostic Update MAPL_sun_uc.F90
GEOS-ESM · Jan 4, 2023 · ebb5f16 · ebb5f16
2 parents 9468c66 + e3eab8e
commit ebb5f16
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/base/MAPL_sun_uc.F90 b/base/MAPL_sun_uc.F90
@@ -3000,7 +3000,7 @@ subroutine MAPL_SunGetLocalSolarHourAngle(ORBIT,LONS,LSHA,TIME,CLOCK,RC)
 
       type (MAPL_SunOrbit),            intent(IN ) :: ORBIT
       real,    dimension(:),           intent(IN ) :: LONS   ! [radians]
-      logical, dimension(:),           intent(OUT) :: LSHA
+      real,    dimension(:),           intent(OUT) :: LSHA
       type (ESMF_Time),      optional, intent(IN ) :: TIME
       type (ESMF_Clock),     optional, intent(IN ) :: CLOCK
       integer,               optional, intent(OUT) :: RC