physics/samfshalcnv.f: bugfix, move assignment inside if block as in …

…previous version
NCAR · Apr 3, 2020 · 71eace1 · 71eace1
1 parent bccf301
commit 71eace1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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
 !!