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

    r2766 r2817  
    2525! -----------------
    2626! $Id$
     27! Preliminary gust module interface implemented
     28!
     29! 2766 2018-01-22 17:17:47Z kanani
    2730! Removed preprocessor directive __chem
    2831!
     
    203206    USE cpulog,                                                                &
    204207        ONLY:  log_point, cpu_log
     208
     209    USE gust_mod,                                                              &
     210        ONLY: gust_data_output_3d, gust_module_enabled
    205211       
    206212    USE indices,                                                               &
     
    680686
    681687!
     688!--          Gust module quantities
     689             IF ( .NOT. found  .AND.  gust_module_enabled )  THEN
     690                CALL gust_data_output_3d( av, do3d(av,if), found, local_pf,    &
     691                                          nzb_do, nzt_do )
     692                resorted = .TRUE.
     693             ENDIF
     694
     695!
    682696!--          Chemistry model output
    683697             IF ( .NOT. found  .AND.  air_chemistry )  THEN
Note: See TracChangeset for help on using the changeset viewer.