Changeset 895

Timestamp:

06/13/19 16:45:40 (5 years ago)

Author:

adurocher

Message:

trunk : Fix inconsistent timer with PGI compiler.

Always use the 64-bit integer version of SYSTEM_CLOCK.

File:

• codes/icosagcm/trunk/src/time/timeloop_gcm.f90 (modified) (2 diffs)

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

@@ -197 +197 @@
     LOGICAL :: fluxt_zero(ndomain) ! set to .TRUE. to start accumulating mass fluxes in time
     LOGICAL, PARAMETER :: check_rhodz=.FALSE.
-    INTEGER :: start_clock, stop_clock, rate_clock
+    INTEGER(kind=8) :: start_clock, stop_clock, rate_clock
     LOGICAL,SAVE :: first_physic=.TRUE.
     !$OMP THREADPRIVATE(first_physic)    
@@ -393 +393 @@
 
   SUBROUTINE print_iteration(it,itau0,itaumax,start_clock,rate_clock)
-    INTEGER :: it, itau0, itaumax, start_clock, stop_clock, rate_clock, throughput
+    INTEGER :: it, itau0, itaumax, throughput
+    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