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

Preliminary gust module interface implemented

File:
1 edited

Legend:

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

    r2773 r2817  
    2525! -----------------
    2626! $Id$
     27! Preliminary gust module interface implemented
     28!
     29! 2773 2018-01-30 14:12:54Z suehring
    2730! Timeseries output of surface temperature.
    2831!
     
    283286    USE grid_variables,                                                        &
    284287        ONLY:   ddx, ddy
     288
     289    USE gust_mod,                                                              &
     290        ONLY:  gust_module_enabled, gust_statistics
    285291       
    286292    USE indices,                                                               &
     
    297303
    298304    USE netcdf_interface,                                                      &
    299         ONLY:  dots_rad, dots_soil
     305        ONLY:  dots_rad, dots_soil, dots_max
    300306
    301307    USE pegrid
     
    17421748             ENDDO
    17431749          ENDDO
     1750       ENDIF
     1751!
     1752!--    Calculate the gust module profiles
     1753       IF ( gust_module_enabled )  THEN
     1754          CALL gust_statistics( 'profiles', sr, tn, dots_max )
    17441755       ENDIF
    17451756!
     
    21562167
    21572168!
     2169!--    Calculate additional statistics provided by the gust module
     2170       IF ( gust_module_enabled )  THEN
     2171          CALL gust_statistics( 'time_series', sr, 0, dots_max )
     2172       ENDIF
     2173
     2174!
    21582175!--    Calculate additional statistics provided by the user interface
    21592176       CALL user_statistics( 'time_series', sr, 0 )
Note: See TracChangeset for help on using the changeset viewer.