Merge pull request #1025 from GEOS-ESM/bugfix/rreichle/conserve_ice10…

…_tzero Bug fix for optional input arg "conserve_ice10_tzero" (StieglitzSnow.F90)
GEOS-ESM · Nov 4, 2024 · 96a8a26 · 96a8a26
2 parents fd538d5 + 016ee37
commit 96a8a26
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/Shared/StieglitzSnow.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/Shared/StieglitzSnow.F90
@@ -1294,7 +1294,7 @@ subroutine StieglitzSnow_relayer(N_snow, N_constit, tileType, targetthick, &
 
     if (present(rc_calc_tpsn)) rc_calc_tpsn = rc_tmp
 
-    if (conserve_ice10_tzero) then
+    if (conserve_ice10_tzero_tmp) then
 
        !**** Check that (ice10,tzero) conditions are conserved through
        !**** relayering process (or at least that (fices,tpsn) conditions don't