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/sum_up_3d_data.f90

    r2798 r2817  
    2525! -----------------
    2626! $Id$
     27! Preliminary gust module interface implemented
     28!
     29! 2798 2018-02-09 17:16:39Z suehring
    2730! Consider also default-type surfaces for surface temperature output.
    2831!
     
    199202        ONLY:  cpu_log, log_point
    200203
     204    USE gust_mod,                                                              &
     205        ONLY:  gust_3d_data_averaging, gust_module_enabled
     206
    201207    USE indices,                                                               &
    202208        ONLY:  nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt
     
    512518                IF ( radiation )  THEN
    513519                   CALL radiation_3d_data_averaging( 'allocate', doav(ii) )
     520                ENDIF
     521
     522!
     523!--             Gust module quantities
     524                IF ( gust_module_enabled )  THEN
     525                   CALL gust_3d_data_averaging( 'allocate', doav(ii) )
    514526                ENDIF
    515527
     
    10641076
    10651077!
     1078!--          Gust module quantities
     1079             IF ( gust_module_enabled )  THEN
     1080                CALL gust_3d_data_averaging( 'sum', doav(ii) )
     1081             ENDIF
     1082
     1083!
    10661084!--          Chemical quantity
    10671085             IF ( air_chemistry  .AND.  trimvar(1:3) == 'kc_')  THEN
Note: See TracChangeset for help on using the changeset viewer.