Changeset 4274 for palm/trunk/UTIL/combine_plot_fields.f90

Timestamp:

Oct 28, 2019 9:07:08 AM (5 years ago)

Author:

raasch

Message:

bugfix for processing data from atmosphere-ocean coupled runs (only atmosphere data were processed, but twice)

File:

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

palm/trunk/UTIL/combine_plot_fields.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! bugfix for processing data from atmosphere-ocean coupled runs (only atmosphere data were
+! processed, but twice)
+! 
+! 3241 2018-09-12 15:02:00Z raasch
 ! unused variables removed
 ! 
@@ -141 +145 @@
     INTEGER(iwp), DIMENSION(0:1,1000) ::  id_var, levels
 
-    LOGICAL  ::  found, nest3d, netcdf_output, netcdf_parallel, netcdf_0,      &
+    LOGICAL  ::  found, found_ao, nest3d, netcdf_output, netcdf_parallel, netcdf_0,      &
                  netcdf_1, vnest
 
@@ -156 +160 @@
 !
 !-- Find out if a coupled or nested run has been carried out
-    INQUIRE( FILE='COUPLING_PORT_OPENED', EXIST=found )
+    INQUIRE( FILE='COUPLING_PORT_OPENED', EXIST=found_ao )
     INQUIRE( FILE='VNESTING_PORT_OPENED', EXIST=vnest )
     INQUIRE( FILE='3DNESTING', EXIST=nest3d )
-    IF ( found )  THEN
+    IF ( found_ao )  THEN
        models = 2
        PRINT*, '    coupled run'
@@ -191 +195 @@
 !
 !--    Set the model string used to identify the filenames
-       IF ( found  .OR.  vnest )  THEN
+       IF ( found_ao  .OR.  vnest )  THEN
           PRINT*, ''
           IF ( model == 2 )  THEN