Adding timer around all code in the do_rainturb option rather than ju…

…st the function call.
ESCOMP · Nov 11, 2024 · b1a243c · b1a243c
1 parent 75f51d1
commit b1a243c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/physics/cam/clubb_intr.F90 b/src/physics/cam/clubb_intr.F90
@@ -3817,21 +3817,20 @@ subroutine clubb_tend_cam( state,   ptend_all,   pbuf,     hdtime, &
       end if
 
       if ( do_rainturb ) then
+        call t_startf('clubb_tend_cam:do_rainturb')
 
         do k=1,nzm_clubb
           do i=1,ncol
             rvm_in(i,k) = rtm_in(i,k) - rcm_inout(i,k)
           end do
         end do
 
-        call t_startf('clubb_tend_cam:update_xp2_mc_api')
         call update_xp2_mc_api( gr, nzm_clubb, ncol, dtime, cloud_frac_inout, &
           rcm_inout, rvm_in, thlm_in, wm_zt, &
           exner, pre_in, pdf_params_chnk(lchnk), &
           rtp2_mc_out, thlp2_mc_out, &
           wprtp_mc_out, wpthlp_mc_out, &
           rtpthlp_mc_out)
-        call t_stopf('clubb_tend_cam:update_xp2_mc_api')
 
         do k=1,nzm_clubb
           do i=1,ncol
@@ -3845,6 +3844,7 @@ subroutine clubb_tend_cam( state,   ptend_all,   pbuf,     hdtime, &
           end do
         end do
 
+        call t_stopf('clubb_tend_cam:do_rainturb')
       end if
 
       if (do_cldcool) then