Merge pull request #25 from GEOS-ESM/main

GitFlow: Merge hotfix from main to develop
GEOS-ESM · Aug 22, 2023 · 146e93f · 146e93f
2 parents 2f3cafd + 72d8b05
commit 146e93f
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/GEOSirrad_GridComp/GEOS_IrradGridComp.F90 b/GEOSirrad_GridComp/GEOS_IrradGridComp.F90
@@ -1954,7 +1954,7 @@ subroutine LW_Driver(IM,JM,LM,LATS,LONS,RC)
         ! allow a small increase of tmin
         call MAPL_GetResource (MAPL, &
            tmin_increase_OK_Kelvin, 'RRTMGP_LW_TMIN_INC_OK_K:', &
-           DEFAULT = 10., __RC__)
+           DEFAULT = 10._wp, __RC__)
         if (temp_ref_min - tmin <= tmin_increase_OK_Kelvin) then
           where (t_lay < temp_ref_min) t_lay = temp_ref_min
         else

diff --git a/GEOSsolar_GridComp/GEOS_SolarGridComp.F90 b/GEOSsolar_GridComp/GEOS_SolarGridComp.F90
@@ -3016,7 +3016,7 @@ subroutine SORADCORE(IM,JM,LM,include_aerosols,CURRTIME,LoadBalance,RC)
         ! allow a small increase of tmin
         call MAPL_GetResource (MAPL, &
            tmin_increase_OK_Kelvin, 'RRTMGP_SW_TMIN_INC_OK_K:', &
-           DEFAULT = 10., __RC__)
+           DEFAULT = 10._wp, __RC__)
         if (temp_ref_min - tmin <= tmin_increase_OK_Kelvin) then
           where (t_lay < temp_ref_min) t_lay = temp_ref_min
         else