Changeset 480 for palm/trunk/UTIL

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

Location:

palm/trunk/UTIL

Files:

• Makefile (modified) (3 diffs)
• compare_palm_logs.f90 (modified) (2 diffs)

palm/trunk/UTIL/Makefile

@@ -3 +3 @@
 # Actual revisions:
 # -----------------
-# Initial revision
+# compare_palm_logs added
 # 
 #
 # Former revisions:
 # -----------------
-# $Id $
+# $Id$
+#
+# Initial revision somewhere in 2003/04
 #
 # Description:
@@ -16 +18 @@
 
 PROG1 =  ../SCRIPTS/combine_plot_fields.x
-PROG2 =  ../SCRIPTS/interpret_config.x
+PROG2 =  ../SCRIPTS/compare_palm_logs.x
+PROG3 =  ../SCRIPTS/interpret_config.x
 
 OBJS1 =  combine_plot_fields.o
-OBJS2 =  interpret_config.o
+OBJS2 =  compare_palm_logs.o
+OBJS3 =  interpret_config.o
 
 CC = cc
@@ -41 +45 @@
         $(F90_SER) -o $(PROG2) $(OBJS2) $(LDFLAGS)
 
+$(PROG3): $(OBJS3)
+        $(F90_SER) -o $(PROG3) $(OBJS3) $(LDFLAGS)
+
 .f90.o:
         $(F90_SER) $(F90FLAGS) $(COPT) -c $<

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) ) // '/'
 
 !