Changeset 480


Ignore:
Timestamp:
Feb 5, 2010 1:14:39 AM (12 years ago)
Author:
raasch
Message:

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

Location:
palm/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/CURRENT_MODIFICATIONS

    r475 r480  
    11New:
    22---
     3compare_palm_logs is additionally compiled with mbuild -u (Makefile in trunk/UTIL)
     4
    35make options (mopts) to be set by configuration file implemented (mrun, mbuild)
    46
  • palm/trunk/UTIL/Makefile

    r27 r480  
    33# Actual revisions:
    44# -----------------
    5 # Initial revision
     5# compare_palm_logs added
    66#
    77#
    88# Former revisions:
    99# -----------------
    10 # $Id $
     10# $Id$
     11#
     12# Initial revision somewhere in 2003/04
    1113#
    1214# Description:
     
    1618
    1719PROG1 =  ../SCRIPTS/combine_plot_fields.x
    18 PROG2 =  ../SCRIPTS/interpret_config.x
     20PROG2 =  ../SCRIPTS/compare_palm_logs.x
     21PROG3 =  ../SCRIPTS/interpret_config.x
    1922
    2023OBJS1 =  combine_plot_fields.o
    21 OBJS2 =  interpret_config.o
     24OBJS2 =  compare_palm_logs.o
     25OBJS3 =  interpret_config.o
    2226
    2327CC = cc
     
    4145        $(F90_SER) -o $(PROG2) $(OBJS2) $(LDFLAGS)
    4246
     47$(PROG3): $(OBJS3)
     48        $(F90_SER) -o $(PROG3) $(OBJS3) $(LDFLAGS)
     49
    4350.f90.o:
    4451        $(F90_SER) $(F90FLAGS) $(COPT) -c $<
  • palm/trunk/UTIL/compare_palm_logs.f90

    r1 r480  
    44! Actual revisions:
    55! -----------------
    6 !
     6! name of data-directories are read from input
    77!
    88! Former revisions:
     
    4646    REAL, DIMENSION(:,:,:), ALLOCATABLE ::  array_1, array_2
    4747
    48     directory(1) = 'const_log/'
    49     directory(2) = 'const_log.1/'
     48
     49!
     50!-- Read the two data-directories to be compared
     51    PRINT*, '*** please enter name of first data-directory:'
     52    READ ( *, * )  directory(1)
     53    directory(1) = TRIM( directory(1) ) // '/'
     54
     55    PRINT*, '*** please enter name of second data-directory:'
     56    READ ( *, * )  directory(2)
     57    directory(2) = TRIM( directory(2) ) // '/'
    5058
    5159!
Note: See TracChangeset for help on using the changeset viewer.