Changeset 4028 for palm/trunk/SOURCE/module_interface.f90

Timestamp:

Jun 13, 2019 12:21:37 PM (5 years ago)

Author:

schwenkel

Message:

Further modularization of particle code components

File:

• palm/trunk/SOURCE/module_interface.f90 (modified) (3 diffs)

palm/trunk/SOURCE/module_interface.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Further modularization of particle code components
+! 
+! 4017 2019-06-06 12:16:46Z schwenkel
 ! local_pf need INTENT(INOUT) attribute rather than INTENT(OUT). This is 
 ! because INTENT(OUT) sets the array to not-defined. Especially for outputs that
@@ -247 +250 @@
                lpm_header,                                                     &
                lpm_check_parameters,                                           &
+               lpm_init_arrays,                                                &                              
                lpm_init,                                                       &
                lpm_actions,                                                    &
@@ -880 +884 @@
     IF ( air_chemistry       )  CALL chem_init_arrays
     IF ( gust_module_enabled )  CALL gust_init_arrays
+    IF ( particle_advection  )  CALL lpm_init_arrays        
     IF ( land_surface        )  CALL lsm_init_arrays
     IF ( ocean_mode          )  CALL ocean_init_arrays