Merge pull request #24 from huppd/refactor_if_loop_structure

change if-loop-structure
ecmwf-ifs · Sep 13, 2024 · cd0a227 · cd0a227
2 parents a10e41e + fbc42b2
commit cd0a227
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