Changeset 4018 for palm


Ignore:
Timestamp:
Jun 6, 2019 1:41:50 PM (5 years ago)
Author:
schwenkel
Message:

bugfix for last commit

File:
1 edited

Legend:

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

    r4017 r4018  
    2525! -----------------
    2626! $Id$
     27! Bugfix for former revision
     28!
     29! 4017 2019-06-06 12:16:46Z schwenkel
    2730! Modularization of all lagrangian particle model code components
    2831!
     
    399402       MODULE PROCEDURE lpm_wrd_global
    400403    END INTERFACE lpm_wrd_global   
    401    
    402     INTERFACE 
    403        MODULE SUBROUTINE test_sub
    404        END SUBROUTINE
    405     END INTERFACE
    406    
     404       
    407405    INTERFACE 
    408406       MODULE SUBROUTINE lpm_advec(ip,jp,kp)
     
    456454    END INTERFACE   
    457455   
    458     INTERFACE lpm_exchange_horiz
     456    INTERFACE
    459457       MODULE SUBROUTINE lpm_exchange_horiz
    460458       END SUBROUTINE
    461     END INTERFACE lpm_exchange_horiz
    462 
    463     INTERFACE lpm_move_particle
     459    END INTERFACE
     460
     461    INTERFACE
    464462       MODULE SUBROUTINE lpm_move_particle
    465463       END SUBROUTINE
    466     END INTERFACE lpm_move_particle
    467 
    468     INTERFACE realloc_particles_array
     464    END INTERFACE
     465
     466    INTERFACE
    469467       MODULE SUBROUTINE realloc_particles_array(i,j,k,size_in)
    470468          INTEGER(iwp), INTENT(IN) ::  i !< grid index of particle box along x
     
    473471          INTEGER(iwp), INTENT(IN), OPTIONAL ::  size_in !< grid index of particle box along z
    474472        END SUBROUTINE 
    475     END INTERFACE realloc_particles_array
    476 
    477     INTERFACE dealloc_particles_array
     473    END INTERFACE
     474
     475    INTERFACE
    478476       MODULE SUBROUTINE dealloc_particles_array
    479477       END SUBROUTINE
    480     END INTERFACE dealloc_particles_array
     478    END INTERFACE
    481479   
    482480    INTERFACE 
     
    22322230!--       Calculate the new liquid water content for each grid box
    22332231          IF ( cloud_droplets )  CALL lpm_calc_liquid_water_content
    2234           IF ( cloud_droplets )  CALL test_sub
    22352232
    22362233!
     
    31183115! Description:
    31193116! ------------
    3120 !> +++++++TEST SUBMODULE+++++++++++++++++++++++++++++++++++++++++++++++++++++++
    3121 !------------------------------------------------------------------------------!
    3122 SUBMODULE (lagrangian_particle_model_mod) lpm_test_sub
    3123  
    3124  CONTAINS
    3125    
    3126  MODULE SUBROUTINE test_sub
    3127      INTEGER ::b
    3128      b = 5_idp
    3129  END SUBROUTINE test_sub
    3130  
    3131 END SUBMODULE
    3132 
    3133 !------------------------------------------------------------------------------!
    3134 ! Description:
    3135 ! ------------
    31363117!> This is a submodule of the lagrangian particle model. It contains all
    31373118!> dynamic processes of the lpm. This includes the advection (resolved and sub-
     
    76647645!> Not needed but allocated space for particles is dealloced.
    76657646!------------------------------------------------------------------------------!
    7666  SUBROUTINE dealloc_particles_array
     7647 MODULE SUBROUTINE dealloc_particles_array
    76677648
    76687649 
Note: See TracChangeset for help on using the changeset viewer.