Changeset 691 for palm/trunk/UTIL

Timestamp:

Mar 4, 2011 8:45:30 AM (14 years ago)

Author:

maronga

Message:

Bugfix for precursor atmosphere/ocean runs, re-adjustments for lcxt4

File:

• palm/trunk/UTIL/combine_plot_fields.f90 (modified) (2 diffs)

palm/trunk/UTIL/combine_plot_fields.f90

@@ -2 +2 @@
 
 !------------------------------------------------------------------------------!
-! Actual revisions:
+! Current revisions:
 ! -----------------
-! 
+! Bugfix: check for precursor ocean runs
 !
 ! Former revisions:
@@ -116 +116 @@
 
 !
+!-- Find out if a precursor ocean run has been carried out
+    INQUIRE( FILE='PRECURSOR_OCEAN', EXIST=found )
+    IF ( found )  THEN
+       model_string = '_O'
+       PRINT*, '    precursor ocean run'
+    ELSE
+       model_string = ''
+    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*, ''