Merge pull request #17 from grantfirl/enhanced_GP2cld_coupling_tight_gjf

SPP bugfix from Jeff Beck
NCAR · Mar 11, 2022 · defde63 · defde63
2 parents d89d738 + d3ff8f6
commit defde63
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/physics/GFS_rrtmg_pre.F90 b/physics/GFS_rrtmg_pre.F90
@@ -1002,9 +1002,9 @@ subroutine GFS_rrtmg_pre_run (im, levs, lm, lmk, lmp, n_var_lndp,        &
             enddo
           else
             do i=1,im
-              clouds3(i,k) = clouds3(i,k) - spp_wts_rad(i,k) * clouds3(i,k)
-              clouds5(i,k) = clouds5(i,k) - spp_wts_rad(i,k) * clouds5(i,k)
-              clouds9(i,k) = clouds9(i,k) - spp_wts_rad(i,k) * clouds9(i,k)
+              clouds3(i,k) = clouds3(i,k) - spp_wts_rad(i,levs) * clouds3(i,k)
+              clouds5(i,k) = clouds5(i,k) - spp_wts_rad(i,levs) * clouds5(i,k)
+              clouds9(i,k) = clouds9(i,k) - spp_wts_rad(i,levs) * clouds9(i,k)
             enddo
           endif
         enddo