Changeset 2669 for palm/trunk/UTIL


Ignore:
Timestamp:
Dec 6, 2017 4:03:27 PM (7 years ago)
Author:
raasch
Message:

file attributes and activation strings in .palm.iofiles revised, file extensions for nesting, masked output, wind turbine data, etc. changed

File:
1 edited

Legend:

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

    r2523 r2669  
    2525! -----------------
    2626! $Id$
     27! data of 3d-nest runs are completely processed now
     28!
     29! 2523 2017-10-05 14:42:47Z kanani
    2730! Increased LEN for CHARACTER variable var_name, equal to the value in PALM
    2831!
     
    105108!
    106109!-- Local variables
    107     CHARACTER (LEN=2)    ::  modus, model_string
     110    CHARACTER (LEN=2)    ::  modus
     111    CHARACTER (LEN=4)    ::  model_string
    108112    CHARACTER (LEN=6)    ::  id_string
    109113    CHARACTER (LEN=30)   ::  dimname, var_name
     
    116120    INTEGER(iwp) ::  av, danz, i, id, j, k, model, models, nc_stat,            &
    117121                     nxa, nxag, nxe, nxeg, nya, nyag, nye, nyeg,               &
    118                      nza, nze, pos, time_step,                                 &
    119                      xa, xe, xxa, xxe, ya, ya_do, ya_tot, ye, ye_do, ye_tot, yya, yye, za,   &
    120                      ze, zza, zze
     122                     nza, nze, pos, time_step, xa, xe, xxa, xxe, ya, ya_do,    &
     123                     ya_tot, ye, ye_do, ye_tot, yya, yye, za, ze, zza, zze
    121124
    122125    INTEGER(8)                        ::  count, count_rate
     
    128131    INTEGER(iwp), DIMENSION(0:1,1000) ::  id_var, levels
    129132
    130     LOGICAL  ::  found, netcdf_output, netcdf_parallel, netcdf_0, netcdf_1
    131     LOGICAL  :: vnest
     133    LOGICAL  ::  found, nest3d, netcdf_output, netcdf_parallel, netcdf_0,      &
     134                 netcdf_1, vnest
    132135
    133136    REAL(wp) ::  cpu_start_time, cpu_end_time, dx, simulated_time
     
    142145
    143146!
    144 !-- Find out if a coupled run has been carried out
     147!-- Find out if a coupled or nested run has been carried out
    145148    INQUIRE( FILE='COUPLING_PORT_OPENED', EXIST=found )
    146149    INQUIRE( FILE='VNESTING_PORT_OPENED', EXIST=vnest )
     150    INQUIRE( FILE='3DNESTING', EXIST=nest3d )
    147151    IF ( found )  THEN
    148152       models = 2
     
    151155       models = 2
    152156       PRINT*, '    Vertically nested grid coupling'
     157    ELSEIF ( nest3d )  THEN
     158       OPEN( 90, FILE='3DNESTING', FORM='FORMATTED' )
     159       READ ( 90, '(I2)' )  models
     160       CLOSE ( 90 )
     161       PRINT*, '    3d-nest run'
     162       PRINT*, '    number of nest domains = ', models
    153163    ELSE
    154164       models = 1
     
    171181!
    172182!--    Set the model string used to identify the filenames
    173        IF ( models == 2 )  THEN
     183       IF ( found  .OR.  vnest )  THEN
    174184          PRINT*, ''
    175           PRINT*, '*** combine_plot_fields ***'
    176185          IF ( model == 2 )  THEN
    177186             IF ( vnest )  THEN
     
    193202             ENDIF
    194203          ENDIF
     204       ELSEIF ( nest3d )  THEN
     205          PRINT*, ''
     206          PRINT*, '--> processing nest id = ', model
     207          IF ( model == 1 )  THEN
     208             model_string = ''
     209          ELSE
     210             WRITE( model_string, '(A2,I2.2)' )  '_N', model
     211          ENDIF
    195212       ENDIF
    196213!
     
    260277!--       Info-output
    261278          PRINT*, ''
    262           PRINT*, '*** combine_plot_fields ***'
    263279#if defined( __netcdf )
    264280          IF ( netcdf_output )  THEN
     
    568584!--    Info-output
    569585       PRINT*, ' '
    570        PRINT*, '*** combine_plot_fields ***'
    571586
    572587!
Note: See TracChangeset for help on using the changeset viewer.