fix for history_eddy option

ESCOMP · Dec 6, 2024 · 4586070 · 4586070
1 parent 9d32d13
commit 4586070
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 2 deletions.
diff --git a/doc/ChangeLog b/doc/ChangeLog
@@ -123,6 +123,11 @@ src/physics/cam/nucleate_ice_cam.F90
   - add conditionals so naer2 array not referenced when there are no
     aerosols.
 
+src/physics/cam/vertical_diffusion.F90
+. vertical_diffusion_init
+  - fix conditional around add_default call for UFLX and VFLX so those
+    fields aren't added if they're not computed.
+
 src/physics/cam7/physpkg.F90
 . tphysbc
   - add conditionals so modal aerosol calculations only called when modal

diff --git a/src/physics/cam/vertical_diffusion.F90 b/src/physics/cam/vertical_diffusion.F90
@@ -619,8 +619,10 @@ subroutine vertical_diffusion_init(pbuf2d)
   endif
 
   if (history_eddy) then
-     call add_default( 'UFLX    ', 1, ' ' )
-     call add_default( 'VFLX    ', 1, ' ' )
+     if (.not. do_pbl_diags) then
+        call add_default( 'UFLX    ', 1, ' ' )
+        call add_default( 'VFLX    ', 1, ' ' )
+     end if
   endif
 
   if( history_budget ) then