Ignore:
Timestamp:
Jun 8, 2017 9:09:11 AM (4 years ago)
Author:
gronemeier
Message:

Implemented synthetic turbulence generator

File:
1 edited

Legend:

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

    r2258 r2259  
    2525! -----------------
    2626! $Id$
     27! Implemented synthetic turbulence generator
     28!
     29! 2258 2017-06-08 07:55:13Z suehring
    2730! Bugfix, add pre-preprocessor directives to enable non-parrallel mode
    2831!
     
    356359    USE plant_canopy_model_mod,                                                &
    357360        ONLY:  pcm_header, plant_canopy
    358        
    359 #if defined( __parallel )
     361
    360362    USE pmc_handle_communicator,                                               &
    361363        ONLY:  pmc_get_model_info
    362 #endif
    363364
    364365    USE pmc_interface,                                                         &
     
    373374    USE surface_mod,                                                           &
    374375        ONLY:  surf_def_h
     376
     377    USE synthetic_turbulence_generator_mod,                                    &
     378        ONLY:  stg_header
    375379
    376380    IMPLICIT NONE
     
    552556       WRITE ( io, 600 )  TRIM( nesting_mode ),                                &
    553557                          TRIM( nesting_datatransfer_mode )
    554 #if defined( __parallel )
    555558       CALL pmc_get_model_info( ncpl = ncpl, cpl_id = my_cpl_id )
    556559
     
    570573                             TRIM( cpl_name )
    571574       ENDDO
    572 #endif
    573575    ENDIF
    574576    WRITE ( io, 99 )
     
    988990       ENDIF
    989991    ENDIF
     992
     993    IF ( synthetic_turbulence_generator )  CALL stg_header ( io )
    990994
    991995    IF ( plant_canopy )  CALL pcm_header ( io )
Note: See TracChangeset for help on using the changeset viewer.