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

Preliminary gust module interface implemented

File:
1 edited

Legend:

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

    r2805 r2817  
    2525! -----------------
    2626! $Id$
     27! Preliminary gust module interface implemented
     28!
     29! 2805 2018-02-14 17:00:09Z suehring
    2730! Consider also default-type surfaces for surface temperature output.
    2831!
     
    229232    USE grid_variables,                                                        &
    230233        ONLY:  dx, dy
     234
     235    USE gust_mod,                                                              &
     236        ONLY:  gust_data_output_2d, gust_module_enabled
    231237       
    232238    USE indices,                                                               &
     
    12481254                   CALL radiation_data_output_2d( av, do2d(av,if), found, grid,&
    12491255                                                  mode, local_pf, two_d  )
     1256                ENDIF
     1257
     1258!
     1259!--             Gust module quantities
     1260                IF ( .NOT. found  .AND.  gust_module_enabled )  THEN
     1261                   CALL gust_data_output_2d( av, do2d(av,if), found, grid,     &
     1262                                             local_pf, two_d, nzb_do, nzt_do )
    12501263                ENDIF
    12511264
Note: See TracChangeset for help on using the changeset viewer.