small fix in energy diagnostics

Author: Andrea Rosendahl

src/physics/cam/cam_diagnostics.F90

@@ -1259,7 +1259,7 @@ subroutine diag_phys_writeout_moist(state, pbuf, p_surf_t)
     real(r8) :: ftem1(pcols,pver) ! another temporary workspace
     real(r8) :: ftem2(pcols,pver) ! another temporary workspace
     real(r8) :: ftem3(pcols)       ! another temporary workspace
-    real(r8) :: z3(pcols,pver)   ! geo-potential height !andrear
+    real(r8) :: z3(pcols,pver)   ! geo-potential height including surface geopotential
     real(r8) :: p_surf(pcols)    ! data interpolated to a pressure surface
     real(r8) :: p_surf_q1(pcols)    ! data interpolated to a pressure surface
     real(r8) :: p_surf_q2(pcols)    ! data interpolated to a pressure surface