From 7a46bb2a2b90df505e3bd9aab7e1dea2f03cfabc Mon Sep 17 00:00:00 2001 From: Walter Hannah Date: Wed, 13 Nov 2024 09:13:50 -0700 Subject: [PATCH] Update clubb_intr.F90 --- components/eam/src/physics/cam/clubb_intr.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/components/eam/src/physics/cam/clubb_intr.F90 b/components/eam/src/physics/cam/clubb_intr.F90 index 4b4514ebe064..cb3dc9da82e3 100644 --- a/components/eam/src/physics/cam/clubb_intr.F90 +++ b/components/eam/src/physics/cam/clubb_intr.F90 @@ -1539,7 +1539,8 @@ subroutine clubb_tend_cam( & real(r8) :: sfc_v_diff_tau(pcols) ! Response to tau perturbation, m/s real(r8), parameter :: pert_tau = 0.1_r8 ! tau perturbation, Pa - !add par for tofd + + !variables for turbulent orographic form drag (TOFD) interface real(r8) :: dtaux3_fd(pcols,pver) real(r8) :: dtauy3_fd(pcols,pver) real(r8) :: dusfc_fd(pcols) @@ -1549,7 +1550,6 @@ subroutine clubb_tend_cam( & real(r8) :: dummy_utgw(pcols,pver) real(r8) :: dummy_vtgw(pcols,pver) real(r8) :: dummy_ttgw(pcols,pver) - ! real(r8) :: dummx_ls(pcols,pver) real(r8) :: dummx_bl(pcols,pver) real(r8) :: dummx_ss(pcols,pver) @@ -1562,7 +1562,7 @@ subroutine clubb_tend_cam( & real(r8) :: dummy3_ls(pcols,pver) real(r8) :: dummy3_bl(pcols,pver) real(r8) :: dummy3_ss(pcols,pver) - ! + real(r8) :: inv_exner_clubb_surf