SW all-sky calculation working. Microphysics needs some attention.

grantfirl · Apr 18, 2019 · 5ddf44d · 5ddf44d
1 parent b4510ef
commit 5ddf44d
Show file tree

Hide file tree

Showing 3 changed files with 2,575 additions and 13 deletions.
diff --git a/physics/rrtmgp_lw_main.F90 b/physics/rrtmgp_lw_main.F90
@@ -1149,7 +1149,7 @@ subroutine rrtmgp_lw_run(p_lay, p_lev, t_lay, t_lev, q_lay, o3_lay, vmr_co2, vmr
           do iLay=1,nLay
              do iGpt=1,nGptsLW
                 iBand = kdist_lw_clr%convert_gpt2band(iGpt)
-                if (cldfracMCICA(iBand,iCol,iLay) .gt. 0.) then
+                if (cldfracMCICA(iGpt,iCol,iLay) .gt. 0.) then
                    tau_gpt(iCol,iLay,iGpt) = tau_cld(iband,iCol,iLay)*secdiff(iBand,iCol)
                 else
                    tau_gpt(iCol,iLay,iGpt) = 0.