From e47e8b712c8dde2abbeb89d58f2fe12bde29c303 Mon Sep 17 00:00:00 2001 From: alperaltuntas Date: Wed, 22 Apr 2020 11:05:40 -0600 Subject: [PATCH] uncomment KPP clocks --- src/parameterizations/vertical/MOM_CVMix_KPP.F90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/parameterizations/vertical/MOM_CVMix_KPP.F90 b/src/parameterizations/vertical/MOM_CVMix_KPP.F90 index c155bf56c7..bcf2037c12 100644 --- a/src/parameterizations/vertical/MOM_CVMix_KPP.F90 +++ b/src/parameterizations/vertical/MOM_CVMix_KPP.F90 @@ -973,7 +973,7 @@ subroutine KPP_compute_BLD(CS, G, GV, US, h, Temp, Salt, u, v, EOS, uStar, buoyF endif #endif - !call cpu_clock_begin(id_clock_KPP_compute_BLD) + call cpu_clock_begin(id_clock_KPP_compute_BLD) ! some constants GoRho = GV%mks_g_Earth / (US%R_to_kg_m3*GV%Rho0) @@ -1340,7 +1340,7 @@ subroutine KPP_compute_BLD(CS, G, GV, US, h, Temp, Salt, u, v, EOS, uStar, buoyF enddo enddo - !call cpu_clock_end(id_clock_KPP_compute_BLD) + call cpu_clock_end(id_clock_KPP_compute_BLD) ! send diagnostics to post_data if (CS%id_BulkRi > 0) call post_data(CS%id_BulkRi, CS%BulkRi, CS%diag) @@ -1382,7 +1382,7 @@ subroutine KPP_smooth_BLD(CS,G,GV,h) real :: pref integer :: i, j, k, s - !call cpu_clock_begin(id_clock_KPP_smoothing) + call cpu_clock_begin(id_clock_KPP_smoothing) ! Update halos call pass_var(CS%OBLdepth, G%Domain, halo=CS%n_smooth) @@ -1440,7 +1440,7 @@ subroutine KPP_smooth_BLD(CS,G,GV,h) enddo ! s-loop - !call cpu_clock_end(id_clock_KPP_smoothing) + call cpu_clock_end(id_clock_KPP_smoothing) end subroutine KPP_smooth_BLD