Ignore:
Timestamp:
Oct 10, 2007 12:03:15 AM (17 years ago)
Author:
raasch
Message:

preliminary updates for implementing buildings in poismg

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/combine_plot_fields.f90

    • Property svn:keywords set to Id
    r108 r114  
    44! Actual revisions:
    55! -----------------
    6 ! loop for processing of output by coupled runs, id_string does not contain
    7 ! modus any longer
     6! Bugfix: model_string needed a default value
    87!
    98! Former revisions:
    109! -----------------
     10! $Id$
     11!
     12! Aug 07    Loop for processing of output by coupled runs, id_string does not
     13!           contain modus any longer
     14!
    1115! 18/01/06  Output of time-averaged data
    1216!
     
    106110
    107111    PRINT*, ''
     112    PRINT*, ''
    108113    PRINT*, '*** combine_plot_fields ***'
     114
     115!
     116!-- Find out if a coupled run has been carried out
    109117    INQUIRE( FILE='COUPLING_PORT_OPENED', EXIST=found )
    110118    IF ( found )  THEN
     
    115123       PRINT*, '    uncoupled run'
    116124    ENDIF
     125
     126!
     127!-- Do everything for each model
    117128    DO model = 1, models
     129!
     130!--    Set the model string used to identify the filenames
     131       model_string = ''
    118132       IF ( models == 2 )  THEN
    119           PRINT*, ''
    120133          PRINT*, ''
    121134          PRINT*, '*** combine_plot_fields ***'
    122135          IF ( model == 2 )  THEN
    123              model_string = "_O"
     136             model_string = '_O'
    124137             PRINT*, '    now combining ocean data'
    125138             PRINT*, '    ========================'
    126139          ELSE
    127              model_string = ""
    128140             PRINT*, '    now combining atmosphere data'
    129141             PRINT*, '    ============================='
Note: See TracChangeset for help on using the changeset viewer.