From 71eace19a5f42b60f64816575c425d34624c6018 Mon Sep 17 00:00:00 2001
From: Dom Heinzeller <climbfuji@ymail.com>
Date: Fri, 3 Apr 2020 15:41:13 -0600
Subject: [PATCH] physics/samfshalcnv.f: bugfix, move assignment inside if
 block as in previous version

---
 physics/samfshalcnv.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/physics/samfshalcnv.f b/physics/samfshalcnv.f
index e21110bd6..7a6db70f0 100644
--- a/physics/samfshalcnv.f
+++ b/physics/samfshalcnv.f
@@ -966,8 +966,8 @@ subroutine samfshalcnv_run(im,ix,km,itc,ntc,cliq,cp,cvap,         &
           tem = 1. - tem
           tem1= .5*(cinacrmx-cinacrmn)
           cinacr = cinacrmx - tem * tem1
-         endif
           if(cina(i) < cinacr) cnvflg(i) = .false.
+         endif
        enddo
       endif
 !!