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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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.