fix line leading to reproducibility problems in progsigma_calc.f90

grantfirl · Feb 14, 2025 · 26783c8 · 26783c8
1 parent 91cf2ab
commit 26783c8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/physics/CONV/progsigma_calc.f90 b/physics/CONV/progsigma_calc.f90
@@ -63,7 +63,7 @@ subroutine progsigma_calc (im,km,flag_init,flag_restart,flag_shallow,&
       km1=km-1
       invdelt = 1./delt
 
-      if (flag_init) then
+      if(flag_init .and. .not. flag_restart) then
            sigmind_new=0.0
       else
            sigmind_new=sigmind