Changeset 962 for codes/icosagcm/trunk/src/time/timeloop_gcm.F90

Timestamp:

07/25/19 11:36:36 (5 years ago)

Author:

adurocher

Message:

Merge 'profiling' to trunk

File:

• codes/icosagcm/trunk/src/time/timeloop_gcm.F90 (modified) (3 diffs)

codes/icosagcm/trunk/src/time/timeloop_gcm.F90

@@ -45 +45 @@
     IF (.NOT. enable_io) itau_out=HUGE(itau_out)
 
-    itau_prof=100
+    itau_prof=1000
     CALL getin('itau_profiling',itau_prof)
 
@@ -257 +257 @@
     CALL update_device_field(f_wflux)
     CALL update_device_field(f_rhodz)
+    call reset_profiling()  
 
 
     DO it=itau0+1,itau0+itaumax
-       IF (is_master) CALL print_iteration(it, itau0, itaumax, start_clock, rate_clock)
+       CALL print_iteration(it, itau0, itaumax, start_clock, rate_clock)
 
        CALL enter_profile(id_timeloop)
@@ -432 +433 @@
     INTEGER(kind=8) :: start_clock, stop_clock, rate_clock
     REAL :: per_step,total, elapsed
-    WRITE(*,'(A,I7,A,F14.1)') "It No :",it,"   t :",dt*it
-    IF(MOD(it,10)==0) THEN
-       CALL SYSTEM_CLOCK(stop_clock)
-       elapsed = (stop_clock-start_clock)*1./rate_clock
-       per_step = elapsed/(it-itau0)
-       throughput = INT(dt/per_step)
-       total = per_step*itaumax
-       WRITE(*,'(A,I5,A,F6.2,A,I6)') 'Time spent (s):',INT(elapsed), &
-            '  -- ms/step : ', 1000*per_step, &
-            '  -- Throughput :', throughput
-       WRITE(*,'(A,I5,A,I5)') 'Whole job (min) :', INT(total/60.), &
-            '  -- Completion in (min) : ', INT((total-elapsed)/60.)
+    
+    IF(is_master) THEN
+       WRITE(*,'(A,I7,A,F14.1)') "It No :",it,"   t :",dt*it
+       IF(MOD(it,10)==0) THEN
+          CALL SYSTEM_CLOCK(stop_clock)
+          elapsed = (stop_clock-start_clock)*1./rate_clock
+          per_step = elapsed/(it-itau0)
+          throughput = INT(dt/per_step)
+          total = per_step*itaumax
+          WRITE(*,'(A,I5,A,F6.2,A,I6)') 'Time spent (s):',INT(elapsed), &
+               '  -- ms/step : ', 1000*per_step, &
+               '  -- Throughput :', throughput
+          WRITE(*,'(A,I5,A,I5)') 'Whole job (min) :', INT(total/60.), &
+               '  -- Completion in (min) : ', INT((total-elapsed)/60.)
+       END IF
     END IF
     IF(MOD(it,itau_prof)==0) CALL print_profile