Changeset 480 for palm/trunk/UTIL/compare_palm_logs.f90

Timestamp:

Feb 5, 2010 1:14:39 AM (15 years ago)

Author:

raasch

Message:

compare_palm_logs is now part of compiled utilities; slight change of using compare_palm_logs

File:

• palm/trunk/UTIL/compare_palm_logs.f90 (modified) (2 diffs)

palm/trunk/UTIL/compare_palm_logs.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! name of data-directories are read from input
 !
 ! Former revisions:
@@ -46 +46 @@
     REAL, DIMENSION(:,:,:), ALLOCATABLE ::  array_1, array_2
 
-    directory(1) = 'const_log/'
-    directory(2) = 'const_log.1/'
+
+!
+!-- Read the two data-directories to be compared
+    PRINT*, '*** please enter name of first data-directory:'
+    READ ( *, * )  directory(1)
+    directory(1) = TRIM( directory(1) ) // '/'
+
+    PRINT*, '*** please enter name of second data-directory:'
+    READ ( *, * )  directory(2)
+    directory(2) = TRIM( directory(2) ) // '/'
 
 !