Changeset 3764 for LMDZ6/branches

Timestamp:

Jul 15, 2020, 10:14:37 PM (4 years ago)

Author:

adurocher

Message:

Removed some timers in cv3a_driver

File:

• LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/cv3a_driver.f90 (modified) (11 diffs)

LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/cv3a_driver.f90

@@ -302 +302 @@
     if (iflag_con /= 3) call abort_physic("cv3a_driver", "iflag_con must be 3", 1)
 
-    call enter_profile("cv3a_params")
 ! -------------------------------------------------------------------
 ! --- SET CONSTANTS AND PARAMETERS
@@ -319 +318 @@
 
     CALL cv3_incrcount(len, nd, delt, sig1)
-    call exit_profile("cv3a_params")
 
 ! --------------------------------------------------------------------
@@ -337 +335 @@
 
       integer :: i, icbmax
-
-      call enter_profile("cv3a_uncompressed")
 
       call driver_log('cv3_prelim')
@@ -399 +395 @@
       CALL cv3_trigger(len, nd, kbas1, plcl1, p1, th1, tv1, tvp1, thnk1, & ! nd->na
                        pbase1, buoybase1, iflag1, sig1, w01)
-      call exit_profile("cv3a_uncompressed")
     end block
 
@@ -736 +731 @@
     INTEGER, PARAMETER :: igout = 1
 
-    if (timers_first) then
-      call enter_profile("cv3p_mixing")
-      call exit_profile("cv3p_mixing")
-      call enter_profile("cv3_yield")
-      call exit_profile("cv3_yield")
-      call enter_profile("cv3_tracer")
-      call exit_profile("cv3_tracer")
-
-      timers_first = .false.
-    endif
-
     ncum = nloc
-    call enter_profile("cv3a_compressed")
+    call enter_profile("cv3a_compresd")
     IF (ncum > 0) THEN
 
@@ -782 +766 @@
 ! --- MIXING(1)   (if iflag_mix .ge. 1)
 ! -------------------------------------------------------------------
-      call enter_profile("cv3p_mixing")
       elij(:,:,:) = 0
       supmax(:,:) = 0
@@ -793 +776 @@
                          sigij, elij, supmax, ments, qents, traent)
       END IF
-      call exit_profile("cv3p_mixing")
 
 ! -------------------------------------------------------------------
@@ -899 +881 @@
 
       call driver_log('cv3_yield')
-      call enter_profile("cv3_yield")
       CALL cv3_yield(nloc, ncum, nd, nd, ntra, ok_conserv_q, &
                      icb, inb, delt, &
@@ -913 +894 @@
                      qcondc, wd, &
                      ftd, fqd, qta, qtc, sigt, tau_cld_cv, coefw_cld_cv)
-      call exit_profile("cv3_yield")
       ! Test conseravtion de l'eau
       IF (debut) PRINT *, ' cv3_yield -> fqd(1) = ', fqd(igout, 1)
@@ -929 +909 @@
 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 
-      call driver_log('cv3_tracer')
-      call enter_profile("cv3_tracer")
- 
+      call driver_log('cv3_tracer') 
       sigij(:,:,:) = 0    
       vprecip(:,:) = 0
@@ -941 +919 @@
 
       vprecipi = 0
-      call exit_profile("cv3_tracer")
     END IF ! ncum>0
-    call exit_profile("cv3a_compressed")
+    call exit_profile("cv3a_compresd")
   end subroutine