Ignore:
Timestamp:
Dec 20, 2018 1:51:36 AM (3 years ago)
Author:
knoop
Message:

M Makefile

File:
1 edited

Legend:

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

    r3458 r3637  
    2525! -----------------
    2626! $Id$
     27! Implementation of the PALM module interface
     28!
     29! 3458 2018-10-30 14:51:23Z kanani
    2730! from chemistry branch r3443, basit:
    2831! bug fixed in chemistry profiles
     
    309312        ONLY:  g, lv_d_cp
    310313
     314    USE bulk_cloud_model_mod,                                                  &
     315        ONLY: bulk_cloud_model, microphysics_morrison, microphysics_seifert
    311316
    312317    USE chem_modules,                                                          &
    313318        ONLY:  max_pr_cs
    314 
    315     USE chemistry_model_mod,                                                   &
    316         ONLY:  chem_species, chem_statistics
    317319
    318320    USE control_parameters,                                                    &
     
    330332    USE grid_variables,                                                        &
    331333        ONLY:   ddx, ddy
    332 
    333     USE gust_mod,                                                              &
    334         ONLY:  gust_module_enabled, gust_statistics
    335334       
    336335    USE indices,                                                               &
     
    340339       
    341340    USE kinds
    342 
    343     USE bulk_cloud_model_mod,                                                  &
    344         ONLY: bulk_cloud_model, microphysics_morrison, microphysics_seifert
    345341   
    346342    USE land_surface_model_mod,                                                &
     
    349345    USE lsf_nudging_mod,                                                       &
    350346        ONLY:   td_lsa_lpt, td_lsa_q, td_sub_lpt, td_sub_q, time_vert
     347
     348    USE module_interface,                                                      &
     349        ONLY:  module_interface_statistics
    351350
    352351    USE netcdf_interface,                                                      &
     
    17951794          ENDDO
    17961795       ENDIF
    1797 !
    1798 !--    Calculate the gust module profiles
    1799        IF ( gust_module_enabled )  THEN
    1800           CALL gust_statistics( 'profiles', sr, tn, dots_max )
    1801        ENDIF
    1802 !
    1803 !--    Calculate the chemistry module profiles
    1804        IF ( air_chemistry ) THEN
    1805           CALL chem_statistics( 'profiles', sr, tn )
    1806        ENDIF
    1807 !
    1808 !--    Calculate the user-defined profiles
    1809        CALL user_statistics( 'profiles', sr, tn )
    1810        !$OMP END PARALLEL
     1796
     1797!
     1798!--    Calculate the profiles for all other modules
     1799       CALL module_interface_statistics( 'profiles', sr, tn, dots_max )
    18111800
    18121801!
     
    22682257
    22692258!
    2270 !--    Calculate additional statistics provided by the gust module
    2271        IF ( gust_module_enabled )  THEN
    2272           CALL gust_statistics( 'time_series', sr, 0, dots_max )
    2273        ENDIF
    2274 
    2275 !
    2276 !--    Calculate additional statistics provided by the user interface
    2277        CALL user_statistics( 'time_series', sr, 0 )
     2259!--    Calculate additional statistics provided by other modules
     2260       CALL module_interface_statistics( 'time_series', sr, 0, dots_max )
    22782261
    22792262    ENDDO    ! loop of the subregions
Note: See TracChangeset for help on using the changeset viewer.