Ignore:
Timestamp:
Feb 19, 2018 4:32:21 PM (6 years ago)
Author:
knoop
Message:

Preliminary gust module interface implemented

File:
1 edited

Legend:

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

    r2776 r2817  
    2525! -----------------
    2626! $Id$
     27! Preliminary gust module interface implemented
     28!
     29! 2776 2018-01-31 10:44:42Z Giersch
    2730! Variable use_synthetic_turbulence_generator has been abbreviated
    2831!
     
    433436    USE grid_variables,                                                        &
    434437        ONLY:  dx, dy, ddx2_mg, ddy2_mg
     438
     439    USE gust_mod,                                                              &
     440        ONLY:  gust_init, gust_init_arrays, gust_module_enabled
    435441   
    436442    USE indices
     
    455461
    456462    USE netcdf_interface,                                                      &
    457         ONLY:  dots_max, dots_num
     463        ONLY:  dots_max, dots_num, dots_unit, dots_label
    458464
    459465    USE netcdf_data_input_mod,                                                  &
     
    10291035       CALL wtm_init_arrays
    10301036    ENDIF
    1031    
     1037!
     1038!-- Allocate gust module arrays
     1039    IF ( gust_module_enabled )  THEN
     1040       CALL gust_init_arrays
     1041    ENDIF
     1042
    10321043!
    10331044!-- Initialize virtual flight measurements
     
    23772388    ENDIF
    23782389
     2390!
     2391!-- If required, initialize quantities needed for the gust module
     2392    IF ( gust_module_enabled )  THEN
     2393       CALL gust_init( dots_label, dots_unit, dots_num, dots_max )
     2394    ENDIF
    23792395
    23802396!
Note: See TracChangeset for help on using the changeset viewer.