Changeset 4018 for palm/trunk/SOURCE
- Timestamp:
- Jun 6, 2019 1:41:50 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/lagrangian_particle_model_mod.f90
r4017 r4018 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Bugfix for former revision 28 ! 29 ! 4017 2019-06-06 12:16:46Z schwenkel 27 30 ! Modularization of all lagrangian particle model code components 28 31 ! … … 399 402 MODULE PROCEDURE lpm_wrd_global 400 403 END INTERFACE lpm_wrd_global 401 402 INTERFACE 403 MODULE SUBROUTINE test_sub 404 END SUBROUTINE 405 END INTERFACE 406 404 407 405 INTERFACE 408 406 MODULE SUBROUTINE lpm_advec(ip,jp,kp) … … 456 454 END INTERFACE 457 455 458 INTERFACE lpm_exchange_horiz456 INTERFACE 459 457 MODULE SUBROUTINE lpm_exchange_horiz 460 458 END SUBROUTINE 461 END INTERFACE lpm_exchange_horiz462 463 INTERFACE lpm_move_particle459 END INTERFACE 460 461 INTERFACE 464 462 MODULE SUBROUTINE lpm_move_particle 465 463 END SUBROUTINE 466 END INTERFACE lpm_move_particle467 468 INTERFACE realloc_particles_array464 END INTERFACE 465 466 INTERFACE 469 467 MODULE SUBROUTINE realloc_particles_array(i,j,k,size_in) 470 468 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 474 472 END SUBROUTINE 475 END INTERFACE realloc_particles_array476 477 INTERFACE dealloc_particles_array473 END INTERFACE 474 475 INTERFACE 478 476 MODULE SUBROUTINE dealloc_particles_array 479 477 END SUBROUTINE 480 END INTERFACE dealloc_particles_array478 END INTERFACE 481 479 482 480 INTERFACE … … 2232 2230 !-- Calculate the new liquid water content for each grid box 2233 2231 IF ( cloud_droplets ) CALL lpm_calc_liquid_water_content 2234 IF ( cloud_droplets ) CALL test_sub2235 2232 2236 2233 ! … … 3118 3115 ! Description: 3119 3116 ! ------------ 3120 !> +++++++TEST SUBMODULE+++++++++++++++++++++++++++++++++++++++++++++++++++++++3121 !------------------------------------------------------------------------------!3122 SUBMODULE (lagrangian_particle_model_mod) lpm_test_sub3123 3124 CONTAINS3125 3126 MODULE SUBROUTINE test_sub3127 INTEGER ::b3128 b = 5_idp3129 END SUBROUTINE test_sub3130 3131 END SUBMODULE3132 3133 !------------------------------------------------------------------------------!3134 ! Description:3135 ! ------------3136 3117 !> This is a submodule of the lagrangian particle model. It contains all 3137 3118 !> dynamic processes of the lpm. This includes the advection (resolved and sub- … … 7664 7645 !> Not needed but allocated space for particles is dealloced. 7665 7646 !------------------------------------------------------------------------------! 7666 SUBROUTINE dealloc_particles_array7647 MODULE SUBROUTINE dealloc_particles_array 7667 7648 7668 7649
Note: See TracChangeset
for help on using the changeset viewer.