Merge branch 'huebleruwm/atm/clubbv2_rebased_1_UWM' of https://github…

….com/larson-group/E3SM into huebleruwm/atm/clubbv2_rebased_1_UWM
E3SM-Project · Jul 10, 2019 · 5dceb60 · 5dceb60
2 parents 8690725 + 25ca78c
commit 5dceb60
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/components/cam/src/physics/cam/clubb_intr.F90 b/components/cam/src/physics/cam/clubb_intr.F90
@@ -1746,7 +1746,7 @@ subroutine clubb_tend_cam( &
       !  Compute mean w wind on thermo grid, convert from omega to w 
       wm_zt(1) = 0._r8
       do k=1,pver
-         wm_zt(k+1) = -1._r8*state1%omega(i,pver-k+1)*invrs_rho_ds_zt(i,k+1)*invrs_gravit
+         wm_zt(k+1) = -1._r8*state1%omega(i,pver-k+1)*invrs_rho_ds_zt(k+1)*invrs_gravit
       enddo
 
       ! ------------------------------------------------- !