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

Timestamp:

Jul 24, 2024, 2:54:37 PM (2 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:

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

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

@@ -13 +13 @@
   integer, parameter :: suspended = 3 
   
-  integer :: max_size
+  INTEGER :: max_size
   real,    allocatable, dimension(:,:,:) :: timer_table
   real,    allocatable, dimension(:,:,:) :: timer_table_sqr 
@@ -50 +50 @@
   SUBROUTINE start_timer(no_timer)
     IMPLICIT NONE
-    integer :: no_timer
-    
-    if (AllTimer_IsActive) then
-    
-      if (timer_state(no_timer)/=stopped) then
+    INTEGER :: no_timer
+    
+    if (AllTimer_IsActive) THEN
+      if (timer_state(no_timer)/=stopped) THEN
         CALL abort_gcm("times","start_timer :: timer is already running or suspended",1)
       else
@@ -69 +68 @@
   SUBROUTINE suspend_timer(no_timer)
     IMPLICIT NONE
-    integer :: no_timer
+    INTEGER :: no_timer
      
-    if (AllTimer_IsActive) then   
-      if (timer_state(no_timer)/=running) then
+    if (AllTimer_IsActive) THEN
+      if (timer_state(no_timer)/=running) THEN
          CALL abort_gcm("times","suspend_timer :: timer is not running",1)
       else
@@ -86 +85 @@
   SUBROUTINE resume_timer(no_timer)
     IMPLICIT NONE
-    integer :: no_timer
+    INTEGER :: no_timer
      
-    if (AllTimer_IsActive) then   
-      if (timer_state(no_timer)/=suspended) then
+    if (AllTimer_IsActive) THEN
+      if (timer_state(no_timer)/=suspended) THEN
         CALL abort_gcm("times","resume_timer :: timer is not suspended",1)
       else
@@ -103 +102 @@
     USE parallel_lmdz
     IMPLICIT NONE
-    integer :: no_timer
-    integer :: N
-    real :: V,V2
-    
-    if (AllTimer_IsActive) then
-       
-      if (timer_state(no_timer)/=running) then
+    INTEGER :: no_timer
+    INTEGER :: N
+    REAL :: V,V2
+    
+    if (AllTimer_IsActive) THEN
+      if (timer_state(no_timer)/=running) THEN
         CALL abort_gcm("times","stop_timer :: timer is not running",1)
       else
@@ -123 +121 @@
       timer_iteration(jj_nb,no_timer,mpi_rank)=timer_iteration(jj_nb,no_timer,mpi_rank)+1
       timer_average(jj_nb,no_timer,mpi_rank)=timer_table(jj_nb,no_timer,mpi_rank)/timer_iteration(jj_nb,no_timer,mpi_rank)
-      if (timer_iteration(jj_nb,no_timer,mpi_rank)>=2) then
+      if (timer_iteration(jj_nb,no_timer,mpi_rank)>=2) THEN
         N=timer_iteration(jj_nb,no_timer,mpi_rank)
         V2=timer_table_sqr(jj_nb,no_timer,mpi_rank)
@@ -140 +138 @@
     IMPLICIT NONE
 
-    integer :: ierr
-    integer :: data_size
+    INTEGER :: ierr
+    INTEGER :: data_size
     real, allocatable,dimension(:,:) :: tmp_table
 
     IF (using_mpi) THEN    
    
-      if (AllTimer_IsActive) then
-    
-    
+      if (AllTimer_IsActive) THEN
       allocate(tmp_table(max_size,nb_timer))
     
@@ -169 +165 @@
     USE lmdz_mpi
     IMPLICIT NONE
-    integer :: ierr
-    integer :: data_size
+    INTEGER :: ierr
+    INTEGER :: data_size
     real, allocatable,dimension(:,:),target :: tmp_table
     integer, allocatable,dimension(:,:),target :: tmp_iter
-    integer :: istats
+    INTEGER :: istats
 
     IF (using_mpi) THEN
         
-      if (AllTimer_IsActive) then
-    
+      if (AllTimer_IsActive) THEN
       allocate(tmp_table(max_size,nb_timer))
       allocate(tmp_iter(max_size,nb_timer))
@@ -199 +194 @@
   SUBROUTINE InitTime
   IMPLICIT NONE
-    integer :: count,count_rate,count_max
+    INTEGER :: count,count_rate,count_max
     
     AllTimer_IsActive=.TRUE.
-    if (AllTimer_IsActive) then
+    if (AllTimer_IsActive) THEN
       CALL system_clock(count,count_rate,count_max)
       CALL cpu_time(Last_cpuCount)
@@ -212 +207 @@
   IMPLICIT NONE
     double precision :: DiffTime
-    integer :: count,count_rate,count_max
+    INTEGER :: count,count_rate,count_max
   
     CALL system_clock(count,count_rate,count_max)
-    if (Count>=Last_Count) then
+    if (Count>=Last_Count) THEN
       DiffTime=(1.*(Count-last_Count))/count_rate
     else
@@ -221 +216 @@
     endif
     Last_Count=Count 
-  end function DiffTime
+  END FUNCTION DiffTime
   
   function DiffCpuTime()
   IMPLICIT NONE
-    real :: DiffCpuTime
-    real :: Count
+    REAL :: DiffCpuTime
+    REAL :: Count
     
     CALL cpu_time(Count)
     DiffCpuTime=Count-Last_cpuCount
     Last_cpuCount=Count 
-  end function DiffCpuTime
+  END FUNCTION DiffCpuTime
 
 end module times