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/wind_turbine_model_mod.f90

    r2576 r2669  
    2626! -----------------
    2727! $Id$
     28! filename of turbine output changed to WTM_OUTPUT_DATA. File extension now
     29! includes the nest domain number. Turbine extension changed to "_T##"
     30!
     31! 2576 2017-10-24 13:49:46Z Giersch
    2832! Definition of a new function called wtm_skip_var_list to skip module
    2933! parameters during reading restart data
     
    113117
    114118    USE control_parameters,                                                    &
    115         ONLY:  dt_3d, dz, message_string, simulated_time, wind_turbine,        &
    116                initializing_actions
     119        ONLY:  coupling_char, dt_3d, dz, message_string, simulated_time,       &
     120               wind_turbine, initializing_actions
    117121
    118122    USE cpulog,                                                                &
     
    15561560       IMPLICIT NONE
    15571561
    1558        CHARACTER (LEN=2) ::  turbine_id
     1562       CHARACTER (LEN=4) ::  turbine_id
    15591563
    15601564       INTEGER(iwp) ::  i, j, k          !< loop indices
     
    23672371                ELSE
    23682372
    2369                    WRITE ( turbine_id,'(I2.2)')  inot
    2370                    OPEN ( 400+inot, FILE=( 'TURBINE_PARAMETERS'//turbine_id ), &
    2371                                             FORM='FORMATTED' )
     2373                   WRITE ( turbine_id,'(A2,I2.2)')  '_T', inot
     2374                   OPEN ( 400+inot, FILE=( 'WTM_OUTPUT_DATA' //                &
     2375                                           TRIM( coupling_char ) //            &
     2376                                           turbine_id ), FORM='FORMATTED' )
    23722377                   WRITE ( 400+inot, 105 ) inot
    23732378                   WRITE ( 400+inot, 106 ) simulated_time, omega_rot(inot),    &
Note: See TracChangeset for help on using the changeset viewer.