Change NVTX names and add subranges

Author: max-Hawkins

src/common/m_mpi_common.fpp

@@ -16,8 +16,6 @@ module m_mpi_common
     use m_derived_types        !< Definitions of the derived types
 
     use m_global_parameters    !< Definitions of the global parameters
-
-    use m_nvtx
     ! ==========================================================================
 
     implicit none
@@ -241,7 +239,6 @@ contains
 #ifdef MFC_MPI
 #ifdef MFC_SIMULATION
 
-        call nvtxStartRange("TSTEP-RUNTIME-INFO-REDUCE-CRIT")
         ! Reducing local extrema of ICFL, VCFL, CCFL and Rc numbers to their
         ! global extrema and bookkeeping the results on the rank 0 processor
         call MPI_REDUCE(icfl_max_loc, icfl_max_glb, 1, &
@@ -256,7 +253,6 @@ contains
                             MPI_DOUBLE_PRECISION, MPI_MIN, 0, &
                             MPI_COMM_WORLD, ierr)
         end if
-        call nvtxEndRange
 
 #endif
 #endif

src/simulation/m_start_up.fpp

@@ -1244,7 +1244,7 @@ contains
         integer :: save_count
 
         call cpu_time(start)
-        !  call nvtxStartRange("I/O")
+        call nvtxStartRange("SAVE-DATA")
         do i = 1, sys_size
             !$acc update host(q_cons_ts(1)%vf(i)%sf)
             do l = 0, p
@@ -1272,7 +1272,7 @@ contains
 
         call s_write_data_files(q_cons_ts(1)%vf, q_prim_vf, save_count)
 
-        !  call nvtxEndRange
+        call nvtxEndRange
         call cpu_time(finish)
         if (cfl_dt) then
             nt = mytime/t_save

src/simulation/p_main.fpp

@@ -63,7 +63,7 @@ program p_main
         finaltime = t_step_stop*dt
     end if
 
-    call nvtxStartRange("Simulation")
+    call nvtxStartRange("SIMULATION-TIME-MARCH")
     ! Time-stepping Loop =======================================================
     do