change if-statement

ecmwf-ifs · Sep 12, 2024 · fbc42b2 · fbc42b2
1 parent a10e41e
commit fbc42b2
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/radiation/radiation_ifs_rrtm.F90 b/radiation/radiation_ifs_rrtm.F90
@@ -594,12 +594,16 @@ subroutine gas_optics(ncol,nlev,istartcol,iendcol, &
               ssa_sw(jg,nlev+1-jlev,jcol) = ZSSA_SW(jcol,jlev,jg)
             end do
           end do
-          if (present(incoming_sw)) then
+        end do
+
+        if (present(incoming_sw)) then
+          do jcol = istartcol,iendcol
             do jg = 1,config%n_g_sw
               incoming_sw(jg,jcol) = incoming_sw_scale(jcol) * ZINCSOL(jcol,jg)
             end do
-          end if
-        end do
+          end do
+        end if
+
       end if
 
     end if