Ignore:
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:
1 edited

Legend:

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

    r3241 r4274  
    2626! -----------------
    2727! $Id$
     28! bugfix for processing data from atmosphere-ocean coupled runs (only atmosphere data were
     29! processed, but twice)
     30!
     31! 3241 2018-09-12 15:02:00Z raasch
    2832! unused variables removed
    2933!
     
    141145    INTEGER(iwp), DIMENSION(0:1,1000) ::  id_var, levels
    142146
    143     LOGICAL  ::  found, nest3d, netcdf_output, netcdf_parallel, netcdf_0,      &
     147    LOGICAL  ::  found, found_ao, nest3d, netcdf_output, netcdf_parallel, netcdf_0,      &
    144148                 netcdf_1, vnest
    145149
     
    156160!
    157161!-- Find out if a coupled or nested run has been carried out
    158     INQUIRE( FILE='COUPLING_PORT_OPENED', EXIST=found )
     162    INQUIRE( FILE='COUPLING_PORT_OPENED', EXIST=found_ao )
    159163    INQUIRE( FILE='VNESTING_PORT_OPENED', EXIST=vnest )
    160164    INQUIRE( FILE='3DNESTING', EXIST=nest3d )
    161     IF ( found )  THEN
     165    IF ( found_ao )  THEN
    162166       models = 2
    163167       PRINT*, '    coupled run'
     
    191195!
    192196!--    Set the model string used to identify the filenames
    193        IF ( found  .OR.  vnest )  THEN
     197       IF ( found_ao  .OR.  vnest )  THEN
    194198          PRINT*, ''
    195199          IF ( model == 2 )  THEN
Note: See TracChangeset for help on using the changeset viewer.