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

Timestamp:

Jul 23, 2024, 3:29:36 PM (8 weeks ago)

Author:

abarral

Message:

Handle CPP_INLANDSIS in lmdz_cppkeys_wrapper.F90
Remove obsolete key wrgrads_thermcell, _ADV_HALO, _ADV_HALLO, isminmax
Remove redundant uses of CPPKEY_INCA (thanks acozic)
Remove obsolete misc/write_field.F90
Remove unused ioipsl_* wrappers
Remove calls to WriteField_u with wrong signature
Convert .F -> .[fF]90
(lint) uppercase fortran operators
[note: 1d and iso still broken - working on it]

File:

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

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

@@ -2 +2 @@
   integer,private,save :: Last_Count=0
   real, private,save :: Last_cpuCount=0
-  logical, private,save :: AllTimer_IsActive=.false.
+  logical, private,save :: AllTimer_IsActive=.FALSE.
   
   integer, parameter :: nb_timer = 4
@@ -24 +24 @@
   contains
   
-  subroutine init_timer
+  SUBROUTINE init_timer
     USE parallel_lmdz
     implicit none
@@ -46 +46 @@
     timer_delta(:,:,:)=0
     timer_state(:)=stopped      
-  end subroutine init_timer
-  
-  subroutine start_timer(no_timer)
+  END SUBROUTINE  init_timer
+  
+  SUBROUTINE start_timer(no_timer)
     implicit none
     integer :: no_timer
@@ -65 +65 @@
     endif
     
-  end subroutine start_timer
-  
-  subroutine suspend_timer(no_timer)
+  END SUBROUTINE  start_timer
+  
+  SUBROUTINE suspend_timer(no_timer)
     implicit none
     integer :: no_timer
@@ -82 +82 @@
       timer_running(no_timer)=timer_running(no_timer)+last_time(no_timer)
     endif
-  end subroutine suspend_timer
-  
-  subroutine resume_timer(no_timer)
+  END SUBROUTINE  suspend_timer
+  
+  SUBROUTINE resume_timer(no_timer)
     implicit none
     integer :: no_timer
@@ -98 +98 @@
     endif
     
-  end subroutine resume_timer
-
-  subroutine stop_timer(no_timer)
+  END SUBROUTINE  resume_timer
+
+  SUBROUTINE stop_timer(no_timer)
     USE parallel_lmdz
     implicit none
@@ -133 +133 @@
     endif
     
-  end subroutine stop_timer
+  END SUBROUTINE  stop_timer
    
-  subroutine allgather_timer
+  SUBROUTINE allgather_timer
     USE parallel_lmdz
     USE lmdz_mpi
@@ -163 +163 @@
     ENDIF ! using_mpi
     
-  end subroutine allgather_timer
-  
-  subroutine allgather_timer_average
+  END SUBROUTINE  allgather_timer
+  
+  SUBROUTINE allgather_timer_average
     USE parallel_lmdz
     USE lmdz_mpi
@@ -195 +195 @@
       
     ENDIF  ! using_mpi
-  end subroutine allgather_timer_average
-  
-  subroutine InitTime
+  END SUBROUTINE  allgather_timer_average
+  
+  SUBROUTINE InitTime
   implicit none
     integer :: count,count_rate,count_max
@@ -207 +207 @@
       Last_Count=count
     endif
-  end subroutine InitTime
+  END SUBROUTINE  InitTime
   
   function DiffTime()