Changeset cb47b9c for utilities.f

Timestamp:

11/19/09 11:29:16 (14 years ago)

Author:

baerbaer <baerbaer@…>

Branches:

master

Children:

2d5d396

Parents:

ffd2d46

Message:

Explicitly declare variables.

All variables should be declared so that we can remove the implicit statements
from the beginning of the INCL.H file.

git-svn-id: ​svn+ssh://svn.berlios.de/svnroot/repos/smmp/trunk@25 26dc1dd8-5c4e-0410-9ffe-d298b4865968

File:

• utilities.f (modified) (1 diff)

utilities.f

@@ -168 +168 @@
 !     End fileNameMP
 
+
+!----------------------------------------------------------------------
+!     Add messages to log. This routine takes the log (debugging) mes-
+!     sages and writes them to the log file if the log level is less or
+!     equal to the maximum log level given by the global variable 
+!     MAXLOGLEVEL.
+!
+!     @author Jan H. Meinke
+!
+!     @param loglevel level at which this message should be added to 
+!            the log.
+!     @param message message to be written to the log.
+!     @param rank global rank of this node if running an MPI job zero 
+!            otherwise.
+!----------------------------------------------------------------------
+      subroutine addLogMessage(loglevel, message, rank)
+      
+         integer :: loglevel, rank
+         character(LEN=*) :: message
+         
+         if (loglevel <= MAXLOGLEVEL) then
+            write(LOGFILEUNIT, *) message
+         end if
+         
+      end subroutine addLogMessage