Changeset 1318 for palm/trunk/SOURCE/modules.f90

Timestamp:

Mar 17, 2014 1:35:16 PM (10 years ago)

Author:

raasch

Message:

former files/routines cpu_log and cpu_statistics combined to one module,
which also includes the former data module cpulog from the modules-file,
module interfaces removed

File:

• palm/trunk/SOURCE/modules.f90 (modified) (3 diffs)

palm/trunk/SOURCE/modules.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! module cpulog moved to new separate module-file
+! interface for cpu_log removed
 ! Former revisions:
 ! -----------------
@@ -942 +943 @@
 
 
-
- MODULE cpulog
-
-!------------------------------------------------------------------------------!
-! Description:
-! ------------
-! Definition of variables for cpu-time measurements
-!------------------------------------------------------------------------------!
-
-    REAL ::  initial_wallclock_time
-
-    TYPE logpoint
-       REAL               ::  isum, ivect, mean, mtime, mtimevec, sum, vector
-       INTEGER            ::  counts
-       CHARACTER (LEN=20) ::  place
-    END TYPE logpoint
-
-    TYPE(logpoint), DIMENSION(100) ::  log_point = logpoint( 0.0, 0.0, 0.0,   &
-                                       0.0, 0.0, 0.0, 0.0, 0, ' ' ),          &
-                                       log_point_s = logpoint( 0.0, 0.0, 0.0, &
-                                       0.0, 0.0, 0.0, 0.0, 0, ' ' )
-
-    SAVE
-
- END MODULE cpulog
-
-
-
-
  MODULE dvrp_variables
 
@@ -1166 +1138 @@
 ! Interfaces for special subroutines which use optional parameters
 !------------------------------------------------------------------------------!
-
-    INTERFACE
-
-       SUBROUTINE cpu_log( log_event, place, modus, barrierwait )
-
-          USE cpulog
-
-          CHARACTER (LEN=*)           ::  modus, place
-          CHARACTER (LEN=*), OPTIONAL ::  barrierwait
-          TYPE(logpoint)              ::  log_event
-
-       END SUBROUTINE cpu_log
-
-    END INTERFACE
-
-
 
     INTERFACE