Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/times.F90

Timestamp:

Jul 23, 2024, 8:22:55 AM (4 months ago)

Author:

abarral

Message:

Handle DEBUG_IO in lmdz_cppkeys_wrapper.F90
Transform some files .F -> .[fF]90
[ne compile pas à cause de writefield_u non défini - en attente de réponse Laurent]

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3dmem/times.F90 (modified) (9 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/times.F90

@@ -61 +61 @@
       
       timer_running(no_timer)=0
-      call cpu_time(last_time(no_timer))
+      CALL cpu_time(last_time(no_timer))
     
     endif
@@ -79 +79 @@
     
       timer_running(no_timer)=timer_running(no_timer)-last_time(no_timer)
-      call cpu_time(last_time(no_timer))
+      CALL cpu_time(last_time(no_timer))
       timer_running(no_timer)=timer_running(no_timer)+last_time(no_timer)
     endif
@@ -95 +95 @@
       endif
       
-      call cpu_time(last_time(no_timer))
+      CALL cpu_time(last_time(no_timer))
     endif
     
@@ -116 +116 @@
     
       timer_running(no_timer)=timer_running(no_timer)-last_time(no_timer)
-      call cpu_time(last_time(no_timer))
+      CALL cpu_time(last_time(no_timer))
       timer_running(no_timer)=timer_running(no_timer)+last_time(no_timer)
     
@@ -154 +154 @@
     
       tmp_table(:,:)=timer_table(:,:,mpi_rank)
-      call mpi_allgather(tmp_table(1,1),data_size,MPI_REAL_LMDZ,timer_table(1,1,0),data_size,MPI_REAL_LMDZ,COMM_LMDZ,ierr)
+      CALL mpi_allgather(tmp_table(1,1),data_size,MPI_REAL_LMDZ,timer_table(1,1,0),data_size,MPI_REAL_LMDZ,COMM_LMDZ,ierr)
       tmp_table(:,:)=timer_table_sqr(:,:,mpi_rank)
-      call mpi_allgather(tmp_table(1,1),data_size,MPI_REAL_LMDZ,timer_table_sqr(1,1,0),data_size,MPI_REAL_LMDZ,COMM_LMDZ,ierr)
+      CALL mpi_allgather(tmp_table(1,1),data_size,MPI_REAL_LMDZ,timer_table_sqr(1,1,0),data_size,MPI_REAL_LMDZ,COMM_LMDZ,ierr)
       deallocate(tmp_table)
     
@@ -185 +185 @@
 
       tmp_table(:,:)=timer_average(:,:,mpi_rank)
-      call mpi_allgather(tmp_table(1,1),data_size,MPI_REAL_LMDZ,timer_average(1,1,0),data_size,MPI_REAL_LMDZ,COMM_LMDZ,ierr)
+      CALL mpi_allgather(tmp_table(1,1),data_size,MPI_REAL_LMDZ,timer_average(1,1,0),data_size,MPI_REAL_LMDZ,COMM_LMDZ,ierr)
       tmp_table(:,:)=timer_delta(:,:,mpi_rank)
-      call mpi_allgather(tmp_table(1,1),data_size,MPI_REAL_LMDZ,timer_delta(1,1,0),data_size,MPI_REAL_LMDZ,COMM_LMDZ,ierr)
+      CALL mpi_allgather(tmp_table(1,1),data_size,MPI_REAL_LMDZ,timer_delta(1,1,0),data_size,MPI_REAL_LMDZ,COMM_LMDZ,ierr)
       tmp_iter(:,:)=timer_iteration(:,:,mpi_rank)
-      call mpi_allgather(tmp_iter(1,1),data_size,MPI_INTEGER,timer_iteration(1,1,0),data_size,MPI_INTEGER,COMM_LMDZ,ierr)
+      CALL mpi_allgather(tmp_iter(1,1),data_size,MPI_INTEGER,timer_iteration(1,1,0),data_size,MPI_INTEGER,COMM_LMDZ,ierr)
       deallocate(tmp_table)
     
@@ -203 +203 @@
     AllTimer_IsActive=.TRUE.
     if (AllTimer_IsActive) then
-      call system_clock(count,count_rate,count_max)
-      call cpu_time(Last_cpuCount)
+      CALL system_clock(count,count_rate,count_max)
+      CALL cpu_time(Last_cpuCount)
       Last_Count=count
     endif
@@ -214 +214 @@
     integer :: count,count_rate,count_max
   
-    call system_clock(count,count_rate,count_max)
+    CALL system_clock(count,count_rate,count_max)
     if (Count>=Last_Count) then
       DiffTime=(1.*(Count-last_Count))/count_rate
@@ -228 +228 @@
     real :: Count
     
-    call cpu_time(Count)
+    CALL cpu_time(Count)
     DiffCpuTime=Count-Last_cpuCount
     Last_cpuCount=Count