Changeset 4018 for palm/trunk/SOURCE/lagrangian_particle_model_mod.f90

Timestamp:

Jun 6, 2019 1:41:50 PM (5 years ago)

Author:

schwenkel

Message:

bugfix for last commit

File:

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

palm/trunk/SOURCE/lagrangian_particle_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix for former revision
+! 
+! 4017 2019-06-06 12:16:46Z schwenkel
 ! Modularization of all lagrangian particle model code components
 ! 
@@ -399 +402 @@
        MODULE PROCEDURE lpm_wrd_global
     END INTERFACE lpm_wrd_global    
-    
-    INTERFACE  
-       MODULE SUBROUTINE test_sub
-       END SUBROUTINE
-    END INTERFACE
-    
+        
     INTERFACE  
        MODULE SUBROUTINE lpm_advec(ip,jp,kp)
@@ -456 +454 @@
     END INTERFACE    
     
-    INTERFACE lpm_exchange_horiz
+    INTERFACE 
        MODULE SUBROUTINE lpm_exchange_horiz
        END SUBROUTINE
-    END INTERFACE lpm_exchange_horiz
-
-    INTERFACE lpm_move_particle
+    END INTERFACE 
+
+    INTERFACE 
        MODULE SUBROUTINE lpm_move_particle
        END SUBROUTINE
-    END INTERFACE lpm_move_particle
-
-    INTERFACE realloc_particles_array
+    END INTERFACE 
+
+    INTERFACE 
        MODULE SUBROUTINE realloc_particles_array(i,j,k,size_in)
           INTEGER(iwp), INTENT(IN) ::  i !< grid index of particle box along x
@@ -473 +471 @@
           INTEGER(iwp), INTENT(IN), OPTIONAL ::  size_in !< grid index of particle box along z
         END SUBROUTINE  
-    END INTERFACE realloc_particles_array
-
-    INTERFACE dealloc_particles_array
+    END INTERFACE 
+
+    INTERFACE 
        MODULE SUBROUTINE dealloc_particles_array
        END SUBROUTINE
-    END INTERFACE dealloc_particles_array
+    END INTERFACE 
     
     INTERFACE  
@@ -2232 +2230 @@
 !--       Calculate the new liquid water content for each grid box
           IF ( cloud_droplets )  CALL lpm_calc_liquid_water_content
-          IF ( cloud_droplets )  CALL test_sub
 
 !
@@ -3118 +3115 @@
 ! Description:
 ! ------------
-!> +++++++TEST SUBMODULE+++++++++++++++++++++++++++++++++++++++++++++++++++++++
-!------------------------------------------------------------------------------!
-SUBMODULE (lagrangian_particle_model_mod) lpm_test_sub
-  
- CONTAINS
-    
- MODULE SUBROUTINE test_sub
-     INTEGER ::b
-     b = 5_idp
- END SUBROUTINE test_sub
- 
-END SUBMODULE
-
-!------------------------------------------------------------------------------!
-! Description:
-! ------------
 !> This is a submodule of the lagrangian particle model. It contains all 
 !> dynamic processes of the lpm. This includes the advection (resolved and sub-
@@ -7664 +7645 @@
 !> Not needed but allocated space for particles is dealloced. 
 !------------------------------------------------------------------------------!
- SUBROUTINE dealloc_particles_array
+ MODULE SUBROUTINE dealloc_particles_array