Update comment for tot_energy_phys vc parameter

ESCOMP · Nov 21, 2024 · c0b9d8b · c0b9d8b
1 parent e981332
commit c0b9d8b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/physics/cam/check_energy.F90 b/src/physics/cam/check_energy.F90
@@ -425,7 +425,7 @@ subroutine tot_energy_phys(state, outfld_name_suffix,vc)
 
     type(physics_state), intent(inout) :: state
     character(len=*),    intent(in)    :: outfld_name_suffix ! suffix for "outfld"
-    integer, optional,   intent(in)    :: vc                 ! vertical coordinate
+    integer, optional,   intent(in)    :: vc                 ! vertical coordinate (controls energy formula to use)
 
 !---------------------------Local storage-------------------------------
     real(r8) :: se(pcols)                          ! Dry Static energy (J/m2)