Changeset 3637 for palm/trunk/SOURCE/flow_statistics.f90

Timestamp:

Dec 20, 2018 1:51:36 AM (5 years ago)

Author:

knoop

Message:

M Makefile

File:

• palm/trunk/SOURCE/flow_statistics.f90 (modified) (7 diffs)

palm/trunk/SOURCE/flow_statistics.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Implementation of the PALM module interface
+! 
+! 3458 2018-10-30 14:51:23Z kanani
 ! from chemistry branch r3443, basit:
 ! bug fixed in chemistry profiles
@@ -309 +312 @@
         ONLY:  g, lv_d_cp
 
+    USE bulk_cloud_model_mod,                                                  &
+        ONLY: bulk_cloud_model, microphysics_morrison, microphysics_seifert
 
     USE chem_modules,                                                          &
         ONLY:  max_pr_cs
-
-    USE chemistry_model_mod,                                                   &
-        ONLY:  chem_species, chem_statistics
 
     USE control_parameters,                                                    &
@@ -330 +332 @@
     USE grid_variables,                                                        &
         ONLY:   ddx, ddy
-
-    USE gust_mod,                                                              &
-        ONLY:  gust_module_enabled, gust_statistics
         
     USE indices,                                                               &
@@ -340 +339 @@
         
     USE kinds
-
-    USE bulk_cloud_model_mod,                                                  &
-        ONLY: bulk_cloud_model, microphysics_morrison, microphysics_seifert
     
     USE land_surface_model_mod,                                                &
@@ -349 +345 @@
     USE lsf_nudging_mod,                                                       &
         ONLY:   td_lsa_lpt, td_lsa_q, td_sub_lpt, td_sub_q, time_vert
+
+    USE module_interface,                                                      &
+        ONLY:  module_interface_statistics
 
     USE netcdf_interface,                                                      &
@@ -1795 +1794 @@
           ENDDO
        ENDIF
-!
-!--    Calculate the gust module profiles
-       IF ( gust_module_enabled )  THEN
-          CALL gust_statistics( 'profiles', sr, tn, dots_max )
-       ENDIF
-!
-!--    Calculate the chemistry module profiles
-       IF ( air_chemistry ) THEN
-          CALL chem_statistics( 'profiles', sr, tn )
-       ENDIF
-!
-!--    Calculate the user-defined profiles
-       CALL user_statistics( 'profiles', sr, tn )
-       !$OMP END PARALLEL
+
+!
+!--    Calculate the profiles for all other modules
+       CALL module_interface_statistics( 'profiles', sr, tn, dots_max )
 
 !
@@ -2268 +2257 @@
 
 !
-!--    Calculate additional statistics provided by the gust module
-       IF ( gust_module_enabled )  THEN
-          CALL gust_statistics( 'time_series', sr, 0, dots_max )
-       ENDIF
-
-!
-!--    Calculate additional statistics provided by the user interface
-       CALL user_statistics( 'time_series', sr, 0 )
+!--    Calculate additional statistics provided by other modules
+       CALL module_interface_statistics( 'time_series', sr, 0, dots_max )
 
     ENDDO    ! loop of the subregions