Changeset 114 for palm/trunk/UTIL

Timestamp:

Oct 10, 2007 12:03:15 AM (17 years ago)

Author:

raasch

Message:

preliminary updates for implementing buildings in poismg

File:

• palm/trunk/UTIL/combine_plot_fields.f90 (modified) (3 diffs, 1 prop)

palm/trunk/UTIL/combine_plot_fields.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! loop for processing of output by coupled runs, id_string does not contain 
-! modus any longer
+! Bugfix: model_string needed a default value
 !
 ! Former revisions:
 ! -----------------
+! $Id$
+!
+! Aug 07    Loop for processing of output by coupled runs, id_string does not
+!           contain modus any longer
+!
 ! 18/01/06  Output of time-averaged data
 !
@@ -106 +110 @@
 
     PRINT*, ''
+    PRINT*, ''
     PRINT*, '*** combine_plot_fields ***'
+
+!
+!-- Find out if a coupled run has been carried out
     INQUIRE( FILE='COUPLING_PORT_OPENED', EXIST=found )
     IF ( found )  THEN
@@ -115 +123 @@
        PRINT*, '    uncoupled run'
     ENDIF
+
+!
+!-- Do everything for each model
     DO model = 1, models
+!
+!--    Set the model string used to identify the filenames
+       model_string = ''
        IF ( models == 2 )  THEN
-          PRINT*, ''
           PRINT*, ''
           PRINT*, '*** combine_plot_fields ***'
           IF ( model == 2 )  THEN
-             model_string = "_O"
+             model_string = '_O'
              PRINT*, '    now combining ocean data'
              PRINT*, '    ========================'
           ELSE
-             model_string = ""
              PRINT*, '    now combining atmosphere data'
              PRINT*, '    ============================='