From a90cfce495340816123ffc2be2fe17efd85862ba Mon Sep 17 00:00:00 2001 From: Jaydeep Singh <40514224+jaydeeptindori@users.noreply.github.com> Date: Wed, 2 Sep 2026 12:24:23 +0200 Subject: [PATCH 1/2] Fix delta-T calculation in sfcphys.F fixing potential temperature Correct delta-T calculation by dividing t1 by pisfc to convert it to surface temperature --- src/sfcphys.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/sfcphys.F b/src/sfcphys.F index fe67a9ad..3d671844 100644 --- a/src/sfcphys.F +++ b/src/sfcphys.F @@ -1100,7 +1100,7 @@ subroutine cm1most(u1,v1,s1,t1,tst,qst,thflux,qvflux,zol,mol,rmol, & endif ! save delta-T and delta-q (used for use_avg_sfc only) - delt = t1(i,j)-tsk(i,j) + delt = t1(i,j)/pisfc-tsk(i,j) delq = q1(i,j)-qsfc(i,j) enddo From 5a18dd692fb8a25ec50a5a5c0c9c30b6016afe1a Mon Sep 17 00:00:00 2001 From: Jaydeep Singh <40514224+jaydeeptindori@users.noreply.github.com> Date: Wed, 2 Sep 2026 12:40:48 +0200 Subject: [PATCH 2/2] Correct delt calculation in sfcphys.F Fix calculation of delt by adjusting the order of operations. --- src/sfcphys.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/sfcphys.F b/src/sfcphys.F index 3d671844..1dd09225 100644 --- a/src/sfcphys.F +++ b/src/sfcphys.F @@ -1100,7 +1100,7 @@ subroutine cm1most(u1,v1,s1,t1,tst,qst,thflux,qvflux,zol,mol,rmol, & endif ! save delta-T and delta-q (used for use_avg_sfc only) - delt = t1(i,j)/pisfc-tsk(i,j) + delt = t1(i,j)-tsk(i,j)/pisfc delq = q1(i,j)-qsfc(i,j) enddo