Skip to content

Commit 96a8a26

Browse files
authored
Merge pull request #1025 from GEOS-ESM/bugfix/rreichle/conserve_ice10_tzero
Bug fix for optional input arg "conserve_ice10_tzero" (StieglitzSnow.F90)
2 parents fd538d5 + 016ee37 commit 96a8a26

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/Shared/StieglitzSnow.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1294,7 +1294,7 @@ subroutine StieglitzSnow_relayer(N_snow, N_constit, tileType, targetthick, &
12941294

12951295
if (present(rc_calc_tpsn)) rc_calc_tpsn = rc_tmp
12961296

1297-
if (conserve_ice10_tzero) then
1297+
if (conserve_ice10_tzero_tmp) then
12981298

12991299
!**** Check that (ice10,tzero) conditions are conserved through
13001300
!**** relayering process (or at least that (fices,tpsn) conditions don't

0 commit comments

Comments
 (0)