Ignore:
Timestamp:
Jun 9, 2016 4:25:25 PM (5 years ago)
Author:
suehring
Message:

several bugfixes in particle model and serial mode

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/wind_turbine_model_mod.f90

    r1917 r1929  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Bugfix: added preprocessor directives for parallel and serial mode
    2222!
    2323! Former revisions:
     
    20582058
    20592059!
    2060 !--          Transfer of information to the other cpus           
     2060!--          Transfer of information to the other cpus
     2061#if defined( __parallel )         
    20612062             CALL MPI_ALLREDUCE( u_inflow_l, u_inflow, nturbines, MPI_REAL,    &
    20622063                                 MPI_SUM, comm2d, ierr )
     
    20652066             CALL MPI_ALLREDUCE( phi_yaw_l, phi_yaw, nturbines, MPI_REAL,      &
    20662067                                 MPI_SUM, comm2d, ierr )
    2067              
     2068#else
     2069             u_inflow = u_inflow_l
     2070             wdir     = wdir_l
     2071             phi_yaw  = phi_yaw_l
     2072#endif
    20682073             DO inot = 1, nturbines
    20692074!             
     
    20802085!              CALL MPI_ALLREDUCE( omega_gen, omega_gen_old, nturbines,        &
    20812086!                                  MPI_REAL,MPI_SUM, comm2d, ierr )
     2087#if defined( __parallel )   
    20822088             CALL MPI_ALLREDUCE( torque_gen, torque_gen_old, nturbines,        &
    20832089                                 MPI_REAL, MPI_SUM, comm2d, ierr )
     
    20862092             CALL MPI_ALLREDUCE( omega_gen_f, omega_gen_f_old, nturbines,      &
    20872093                                 MPI_REAL, MPI_SUM, comm2d, ierr )
     2094#else
     2095             torque_gen_old  = torque_gen
     2096             omega_rot       = omega_rot_l
     2097             omega_gen_f_old = omega_gen_f
     2098#endif
    20882099           
    20892100          ENDIF
Note: See TracChangeset for help on using the changeset viewer.