Changeset 2669 for palm/trunk/SOURCE/wind_turbine_model_mod.f90

Timestamp:

Dec 6, 2017 4:03:27 PM (6 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:

• palm/trunk/SOURCE/wind_turbine_model_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/wind_turbine_model_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! filename of turbine output changed to WTM_OUTPUT_DATA. File extension now
+! includes the nest domain number. Turbine extension changed to "_T##"
+!
+! 2576 2017-10-24 13:49:46Z Giersch
 ! Definition of a new function called wtm_skip_var_list to skip module 
 ! parameters during reading restart data
@@ -113 +117 @@
 
     USE control_parameters,                                                    &
-        ONLY:  dt_3d, dz, message_string, simulated_time, wind_turbine,        & 
-               initializing_actions
+        ONLY:  coupling_char, dt_3d, dz, message_string, simulated_time,       &
+               wind_turbine, initializing_actions
 
     USE cpulog,                                                                &
@@ -1556 +1560 @@
        IMPLICIT NONE
 
-       CHARACTER (LEN=2) ::  turbine_id
+       CHARACTER (LEN=4) ::  turbine_id
 
        INTEGER(iwp) ::  i, j, k          !< loop indices
@@ -2367 +2371 @@
                 ELSE
 
-                   WRITE ( turbine_id,'(I2.2)')  inot
-                   OPEN ( 400+inot, FILE=( 'TURBINE_PARAMETERS'//turbine_id ), &
-                                            FORM='FORMATTED' )
+                   WRITE ( turbine_id,'(A2,I2.2)')  '_T', inot
+                   OPEN ( 400+inot, FILE=( 'WTM_OUTPUT_DATA' //                &
+                                           TRIM( coupling_char ) //            &
+                                           turbine_id ), FORM='FORMATTED' )
                    WRITE ( 400+inot, 105 ) inot
                    WRITE ( 400+inot, 106 ) simulated_time, omega_rot(inot),    &