Index: palm/trunk/SOURCE/check_open.f90
===================================================================
--- palm/trunk/SOURCE/check_open.f90	(revision 2663)
+++ palm/trunk/SOURCE/check_open.f90	(revision 2669)
@@ -25,4 +25,9 @@
 ! -----------------
 ! $Id$
+! file name extension for masked data files is changed to "_M##" and is now
+! appended at the end of the filename,
+! file ids not used any more have been removed
+! 
+! 2516 2017-10-04 11:03:04Z suehring
 ! Remove tabs
 ! 
@@ -184,5 +189,5 @@
     IMPLICIT NONE
 
-    CHARACTER (LEN=2)   ::  mask_char               !<
+    CHARACTER (LEN=4)   ::  mask_char               !<
     CHARACTER (LEN=2)   ::  suffix                  !<
     CHARACTER (LEN=30)  ::  filename                !<
@@ -209,5 +214,5 @@
     IF ( openfile(file_id)%opened_before )  THEN
        SELECT CASE ( file_id )
-          CASE ( 13, 14, 21, 22, 23, 80:85, 117 )
+          CASE ( 13, 14, 21, 22, 23, 80, 85, 117 )
              IF ( file_id == 14 .AND. openfile(file_id)%opened_before )  THEN
                 message_string = 're-open of unit ' //                         &
@@ -230,5 +235,5 @@
     SELECT CASE ( file_id )
 
-       CASE ( 15, 16, 17, 18, 19, 50:59, 81:84, 104:105, 107, 109, 117 )
+       CASE ( 15, 16, 17, 18, 19, 50:59, 104:105, 107, 109, 117 )
       
           IF ( myid /= 0 )  THEN
@@ -260,5 +265,5 @@
           ENDIF
 
-       CASE ( 27, 28, 29, 31, 33, 71:73, 90:99 )
+       CASE ( 90:99 )
 
 !
@@ -479,26 +484,4 @@
           ENDIF
 
-       CASE ( 81 )
-
-             OPEN ( 81, FILE='PLOTSP_X_PAR'//TRIM( coupling_char ),            &
-                        FORM='FORMATTED', DELIM='APOSTROPHE', RECL=1500,       &
-                        POSITION='APPEND' )
-
-       CASE ( 82 )
-
-             OPEN ( 82, FILE='PLOTSP_X_DATA'//TRIM( coupling_char ),           &
-                        FORM='FORMATTED', POSITION = 'APPEND' )
-
-       CASE ( 83 )
-
-             OPEN ( 83, FILE='PLOTSP_Y_PAR'//TRIM( coupling_char ),            &
-                        FORM='FORMATTED', DELIM='APOSTROPHE', RECL=1500,       &
-                        POSITION='APPEND' )
-
-       CASE ( 84 )
-
-             OPEN ( 84, FILE='PLOTSP_Y_DATA'//TRIM( coupling_char ),           &
-                        FORM='FORMATTED', POSITION='APPEND' )
-
        CASE ( 85 )
 
@@ -1078,13 +1061,13 @@
           IF ( file_id <= 200+max_masks )  THEN
              mid = file_id - 200
-             WRITE ( mask_char,'(I2.2)')  mid
-             filename = 'DATA_MASK_' // mask_char // '_NETCDF' //              &
-                        TRIM( coupling_char )
+             WRITE ( mask_char,'(A2,I2.2)')  '_M', mid
+             filename = 'DATA_MASK_NETCDF' // TRIM( coupling_char ) //         &
+                        mask_char
              av = 0
           ELSE
              mid = file_id - (200+max_masks)
-             WRITE ( mask_char,'(I2.2)')  mid
-             filename = 'DATA_MASK_' // mask_char // '_AV_NETCDF' //           &
-                        TRIM( coupling_char )
+             WRITE ( mask_char,'(A2,I2.2)')  '_M', mid
+             filename = 'DATA_MASK_AV_NETCDF' // TRIM( coupling_char ) //      &
+                        mask_char
              av = 1
           ENDIF
Index: palm/trunk/SOURCE/check_parameters.f90
===================================================================
--- palm/trunk/SOURCE/check_parameters.f90	(revision 2663)
+++ palm/trunk/SOURCE/check_parameters.f90	(revision 2669)
@@ -25,4 +25,7 @@
 ! -----------------
 ! $Id$
+! mrun-string replaced by palmrun
+! 
+! 2628 2017-11-20 12:40:38Z schwenkel
 ! Enabled particle advection with grid stretching -> Removed parameter check
 ! 
@@ -1022,5 +1025,5 @@
 !--    ocean run (this setting is done via mrun-option -y)
        message_string = 'ocean = .F. does not allow coupling_char = "' //      &
-                        TRIM( coupling_char ) // '" set by mrun-option "-y"'
+                        TRIM( coupling_char ) // '" set by palmrun-option "-y"'
        CALL message( 'check_parameters', 'PA0317', 1, 2, 0, 6, 0 )
 
Index: palm/trunk/SOURCE/init_coupling.f90
===================================================================
--- palm/trunk/SOURCE/init_coupling.f90	(revision 2663)
+++ palm/trunk/SOURCE/init_coupling.f90	(revision 2669)
@@ -25,4 +25,7 @@
 ! ------------------
 ! $Id$
+! file extension for vertical nesting changed to "_NV"
+! 
+! 2365 2017-08-21 14:59:59Z kanani
 ! Vertical nesting implemented (SadiqHuq)
 ! 
@@ -192,5 +195,5 @@
 !
 !-- Set file extension for vertical nesting
-       coupling_char = '_N'
+       coupling_char = '_NV'
     ENDIF
 
Index: palm/trunk/SOURCE/modules.f90
===================================================================
--- palm/trunk/SOURCE/modules.f90	(revision 2663)
+++ palm/trunk/SOURCE/modules.f90	(revision 2669)
@@ -25,4 +25,8 @@
 ! -----------------
 ! $Id$
+! CONTIGUOUS-attribut added to 3d pointer arrays,
+! coupling_char extended to LEN=8
+! 
+! 2575 2017-10-24 09:57:58Z maronga
 ! Renamed phi -> latitude, moved longitude from radiation model to modules
 ! 
@@ -776,46 +780,46 @@
     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE, TARGET ::  w_3     !< pointer for swapping of timelevels for respective quantity
 
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  e          !< pointer: subgrid-scale turbulence kinetic energy (sgs tke)
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  e_p        !< pointer: prognostic value of sgs tke
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  nc         !< pointer: cloud drop number density
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  nc_p       !< pointer: prognostic value of cloud drop number density
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  nr         !< pointer: rain drop number density
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  nr_p       !< pointer: prognostic value of rain drop number density
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  prho       !< pointer: potential density
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  pt         !< pointer: potential temperature
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  pt_p       !< pointer: prognostic value of potential temperature
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  q          !< pointer: specific humidity
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  q_p        !< pointer: prognostic value of specific humidity
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  qc         !< pointer: cloud water content
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  qc_p       !< pointer: cloud water content
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  ql         !< pointer: liquid water content
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  ql_c       !< pointer: change in liquid water content due to 
-                                                       !< condensation/evaporation during last time step
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  qr         !< pointer: rain water content
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  qr_p       !< pointer: prognostic value of rain water content
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  rho_ocean  !< pointer: density of ocean
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  s          !< pointer: passive scalar
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  s_p        !< pointer: prognostic value of passive scalar
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  sa         !< pointer: ocean salinity
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  sa_p       !< pointer: prognostic value of ocean salinity
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  te_m       !< pointer: weighted tendency of e for previous sub-timestep (Runge-Kutta)
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  tnc_m      !< pointer: weighted tendency of nc for previous sub-timestep (Runge-Kutta)
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  tnr_m      !< pointer: weighted tendency of nr for previous sub-timestep (Runge-Kutta)
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  tpt_m      !< pointer: weighted tendency of pt for previous sub-timestep (Runge-Kutta)
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  tq_m       !< pointer: weighted tendency of q for previous sub-timestep (Runge-Kutta)
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  tqc_m      !< pointer: weighted tendency of qc for previous sub-timestep (Runge-Kutta)
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  tqr_m      !< pointer: weighted tendency of qr for previous sub-timestep (Runge-Kutta)
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  ts_m       !< pointer: weighted tendency of s for previous sub-timestep (Runge-Kutta)
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  tsa_m      !< pointer: weighted tendency of sa for previous sub-timestep (Runge-Kutta)
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  tu_m       !< pointer: weighted tendency of u for previous sub-timestep (Runge-Kutta)
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  tv_m       !< pointer: weighted tendency of v for previous sub-timestep (Runge-Kutta)
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  tw_m       !< pointer: weighted tendency of w for previous sub-timestep (Runge-Kutta)
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  u          !< pointer: horizontal velocity component u (x-direction)
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  u_p        !< pointer: prognostic value of u
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  v          !< pointer: horizontal velocity component v (y-direction)
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  v_p        !< pointer: prognostic value of v
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  vpt        !< pointer: virtual potential temperature
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  w          !< pointer: vertical velocity component w (z-direction)
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  w_p        !< pointer: prognostic value of w
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  e          !< pointer: subgrid-scale turbulence kinetic energy (sgs tke)
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  e_p        !< pointer: prognostic value of sgs tke
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  nc         !< pointer: cloud drop number density
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  nc_p       !< pointer: prognostic value of cloud drop number density
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  nr         !< pointer: rain drop number density
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  nr_p       !< pointer: prognostic value of rain drop number density
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  prho       !< pointer: potential density
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  pt         !< pointer: potential temperature
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  pt_p       !< pointer: prognostic value of potential temperature
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  q          !< pointer: specific humidity
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  q_p        !< pointer: prognostic value of specific humidity
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  qc         !< pointer: cloud water content
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  qc_p       !< pointer: cloud water content
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  ql         !< pointer: liquid water content
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  ql_c       !< pointer: change in liquid water content due to
+                                                                   !< condensation/evaporation during last time step
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  qr         !< pointer: rain water content
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  qr_p       !< pointer: prognostic value of rain water content
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  rho_ocean  !< pointer: density of ocean
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  s          !< pointer: passive scalar
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  s_p        !< pointer: prognostic value of passive scalar
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  sa         !< pointer: ocean salinity
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  sa_p       !< pointer: prognostic value of ocean salinity
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  te_m       !< pointer: weighted tendency of e for previous sub-timestep (Runge-Kutta)
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  tnc_m      !< pointer: weighted tendency of nc for previous sub-timestep (Runge-Kutta)
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  tnr_m      !< pointer: weighted tendency of nr for previous sub-timestep (Runge-Kutta)
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  tpt_m      !< pointer: weighted tendency of pt for previous sub-timestep (Runge-Kutta)
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  tq_m       !< pointer: weighted tendency of q for previous sub-timestep (Runge-Kutta)
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  tqc_m      !< pointer: weighted tendency of qc for previous sub-timestep (Runge-Kutta)
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  tqr_m      !< pointer: weighted tendency of qr for previous sub-timestep (Runge-Kutta)
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  ts_m       !< pointer: weighted tendency of s for previous sub-timestep (Runge-Kutta)
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  tsa_m      !< pointer: weighted tendency of sa for previous sub-timestep (Runge-Kutta)
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  tu_m       !< pointer: weighted tendency of u for previous sub-timestep (Runge-Kutta)
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  tv_m       !< pointer: weighted tendency of v for previous sub-timestep (Runge-Kutta)
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  tw_m       !< pointer: weighted tendency of w for previous sub-timestep (Runge-Kutta)
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  u          !< pointer: horizontal velocity component u (x-direction)
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  u_p        !< pointer: prognostic value of u
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  v          !< pointer: horizontal velocity component v (y-direction)
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  v_p        !< pointer: prognostic value of v
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  vpt        !< pointer: virtual potential temperature
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  w          !< pointer: vertical velocity component w (z-direction)
+    REAL(wp), DIMENSION(:,:,:), POINTER, CONTIGUOUS ::  w_p        !< pointer: prognostic value of w
 #endif
 
@@ -971,5 +975,6 @@
     CHARACTER (LEN=1)    ::  cycle_mg = 'w'                               !< namelist parameter (see documentation)
     CHARACTER (LEN=1)    ::  timestep_reason = ' '                        !< 'A'dvection or 'D'iffusion criterion, written to RUN_CONTROL file
-    CHARACTER (LEN=3)    ::  coupling_char = ''                           !< appended to filenames in coupled ocean-atmosphere runs ('_O': ocean PE, '_A': atmosphere PE)
+    CHARACTER (LEN=8)    ::  coupling_char = ''                           !< appended to filenames in coupled or nested runs ('_O': ocean PE,
+                                                                          !< '_NV': vertically nested atmosphere PE, '_N##': PE of nested domain ##
     CHARACTER (LEN=8)    ::  most_method = 'newton'                       !< namelist parameter
     CHARACTER (LEN=8)    ::  run_date                                     !< date of simulation run, printed to HEADER file
Index: palm/trunk/SOURCE/plant_canopy_model_mod.f90
===================================================================
--- palm/trunk/SOURCE/plant_canopy_model_mod.f90	(revision 2663)
+++ palm/trunk/SOURCE/plant_canopy_model_mod.f90	(revision 2669)
@@ -25,4 +25,7 @@
 ! -----------------
 ! $Id$
+! coupling_char removed
+! 
+! 2512 2017-10-04 08:26:59Z raasch
 ! upper bounds of 3d output changed from nx+1,ny+1 to nx,ny
 ! no output of ghost layer data
@@ -564,6 +567,6 @@
 
        USE control_parameters,                                                 &
-           ONLY:  coupling_char, dz, humidity, io_blocks, io_group,            &
-                  message_string, ocean, passive_scalar, urban_surface
+           ONLY: dz, humidity, io_blocks, io_group, message_string, ocean,     &
+                 passive_scalar, urban_surface
 
        USE surface_mod,                                                        &
Index: palm/trunk/SOURCE/pmc_interface_mod.f90
===================================================================
--- palm/trunk/SOURCE/pmc_interface_mod.f90	(revision 2663)
+++ palm/trunk/SOURCE/pmc_interface_mod.f90	(revision 2669)
@@ -26,4 +26,8 @@
 ! -----------------
 ! $Id$
+! file extension for nested domains changed to "_N##",
+! created flag file in order to enable combine_plot_fields to process nest data
+! 
+! 2663 2017-12-04 17:40:50Z suehring
 ! Bugfix, wrong coarse-grid index in init_tkefactor used.
 ! 
@@ -561,5 +565,5 @@
     IF ( cpl_id >= 2 )  THEN
        nest_domain = .TRUE.
-       WRITE( coupling_char, '(A1,I2.2)') '_', cpl_id
+       WRITE( coupling_char, '(A2,I2.2)') '_N', cpl_id
     ENDIF
 
@@ -591,4 +595,6 @@
     IMPLICIT NONE
 
+    INTEGER(iwp) ::  ncpl   !<  number of nest domains
+
     CALL location_message( 'setup the nested model configuration', .FALSE. )
 !
@@ -605,4 +611,10 @@
 !-- (e.g., all children have to follow the end_time settings of the root master)
     CALL pmci_check_setting_mismatches
+!
+!-- Set flag file for combine_plot_fields for precessing the nest output data
+    OPEN( 90, FILE='3DNESTING', FORM='FORMATTED' )
+    CALL pmc_get_model_info( ncpl = ncpl )
+    WRITE( 90, '(I2)' )  ncpl
+    CLOSE( 90 )
 
     CALL location_message( 'finished', .TRUE. )
Index: palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90
===================================================================
--- palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90	(revision 2663)
+++ palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90	(revision 2669)
@@ -25,4 +25,8 @@
 ! -----------------
 ! $Id$
+! unit number for file containing turbulence generator data changed to 90
+! bugfix: preprocessor directives added for MPI specific code
+! 
+! 2576 2017-10-24 13:49:46Z Giersch
 ! Definition of a new function called stg_skip_var_list to skip module 
 ! parameters during reading restart data
@@ -312,6 +316,8 @@
     IMPLICIT NONE
 
+#if defined( __parallel )
     INTEGER(KIND=MPI_ADDRESS_KIND) :: extent !< extent of new MPI type
     INTEGER(KIND=MPI_ADDRESS_KIND) :: tob=0  !< dummy variable
+#endif
 
     INTEGER(iwp) :: j                        !> loop index
@@ -362,4 +368,5 @@
                tu(nzb:nzt+1),  tv(nzb:nzt+1),  tw(nzb:nzt+1)   )
 
+#if defined( __parallel )
 !
 !-- Define MPI type used in stg_generate_seed_yz to gather vertical splitted
@@ -391,4 +398,5 @@
        displs(j) = 0 + (nzt_x-nzb_x+1) * (j-1)
     ENDDO
+#endif
 
 !
@@ -408,12 +416,12 @@
 !-- zw: lwy, lwz, tw, r31, r32, r33, d3
 !-- WARNING: zz is not used at the moment
-    OPEN( 24, FILE='STG_PROFILES'//TRIM( coupling_char ), STATUS='OLD',        &
+    OPEN( 90, FILE='STG_PROFILES'//TRIM( coupling_char ), STATUS='OLD',        &
                    FORM='FORMATTED')
 
     ! Skip header
-    READ( 24, * )
+    READ( 90, * )
 
     DO  k = nzb, nzt+1
-       READ( 24, * ) zz, luy, luz, tu(k), lvy, lvz, tv(k), lwy, lwz, tw(k),    &
+       READ( 90, * ) zz, luy, luz, tu(k), lvy, lvz, tv(k), lwy, lwz, tw(k),    &
                      r11(k), r21(k), r22(k), r31(k), r32(k), r33(k),           &
                      d1, d2, d3, d5
@@ -438,5 +446,5 @@
     ENDDO
 
-    CLOSE(24)
+    CLOSE( 90 )
 
 !
Index: palm/trunk/SOURCE/wind_turbine_model_mod.f90
===================================================================
--- palm/trunk/SOURCE/wind_turbine_model_mod.f90	(revision 2663)
+++ palm/trunk/SOURCE/wind_turbine_model_mod.f90	(revision 2669)
@@ -26,4 +26,8 @@
 ! -----------------
 ! $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,6 +117,6 @@
 
     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,5 +1560,5 @@
        IMPLICIT NONE
 
-       CHARACTER (LEN=2) ::  turbine_id
+       CHARACTER (LEN=4) ::  turbine_id
 
        INTEGER(iwp) ::  i, j, k          !< loop indices
@@ -2367,7 +2371,8 @@
                 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),    &
