Ignore:
Timestamp:
Dec 6, 2017 4:03:27 PM (4 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/SOURCE/synthetic_turbulence_generator_mod.f90

    r2576 r2669  
    2525! -----------------
    2626! $Id$
     27! unit number for file containing turbulence generator data changed to 90
     28! bugfix: preprocessor directives added for MPI specific code
     29!
     30! 2576 2017-10-24 13:49:46Z Giersch
    2731! Definition of a new function called stg_skip_var_list to skip module
    2832! parameters during reading restart data
     
    312316    IMPLICIT NONE
    313317
     318#if defined( __parallel )
    314319    INTEGER(KIND=MPI_ADDRESS_KIND) :: extent !< extent of new MPI type
    315320    INTEGER(KIND=MPI_ADDRESS_KIND) :: tob=0  !< dummy variable
     321#endif
    316322
    317323    INTEGER(iwp) :: j                        !> loop index
     
    362368               tu(nzb:nzt+1),  tv(nzb:nzt+1),  tw(nzb:nzt+1)   )
    363369
     370#if defined( __parallel )
    364371!
    365372!-- Define MPI type used in stg_generate_seed_yz to gather vertical splitted
     
    391398       displs(j) = 0 + (nzt_x-nzb_x+1) * (j-1)
    392399    ENDDO
     400#endif
    393401
    394402!
     
    408416!-- zw: lwy, lwz, tw, r31, r32, r33, d3
    409417!-- WARNING: zz is not used at the moment
    410     OPEN( 24, FILE='STG_PROFILES'//TRIM( coupling_char ), STATUS='OLD',        &
     418    OPEN( 90, FILE='STG_PROFILES'//TRIM( coupling_char ), STATUS='OLD',        &
    411419                   FORM='FORMATTED')
    412420
    413421    ! Skip header
    414     READ( 24, * )
     422    READ( 90, * )
    415423
    416424    DO  k = nzb, nzt+1
    417        READ( 24, * ) zz, luy, luz, tu(k), lvy, lvz, tv(k), lwy, lwz, tw(k),    &
     425       READ( 90, * ) zz, luy, luz, tu(k), lvy, lvz, tv(k), lwy, lwz, tw(k),    &
    418426                     r11(k), r21(k), r22(k), r31(k), r32(k), r33(k),           &
    419427                     d1, d2, d3, d5
     
    438446    ENDDO
    439447
    440     CLOSE(24)
     448    CLOSE( 90 )
    441449
    442450!
Note: See TracChangeset for help on using the changeset viewer.