Changeset 3786 for palm/trunk/SOURCE/bulk_cloud_model_mod.f90

Timestamp:

Mar 6, 2019 4:58:03 PM (5 years ago)

Author:

raasch

Message:

unused variables removed, interoperable C datatypes introduced in particle type to avoid compiler warnings

File:

• palm/trunk/SOURCE/bulk_cloud_model_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/bulk_cloud_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unsed variables removed
+! 
+! 3767 2019-02-27 08:18:02Z raasch
 ! unused variable for file index removed from rrd-subroutines parameter list
 ! 
@@ -723 +726 @@
 
        USE statistics,                                                         &
-           ONLY: hom, statistic_regions, pr_palm
+           ONLY: hom, statistic_regions
 
        IMPLICIT NONE
@@ -821 +824 @@
        IMPLICIT NONE
 
-       INTEGER(iwp) ::  i !<
-       INTEGER(iwp) ::  j !<
-       INTEGER(iwp) ::  k !<
 !
 !--    Liquid water content
@@ -893 +893 @@
        INTEGER(iwp) ::  i !<
        INTEGER(iwp) ::  j !<
-       INTEGER(iwp) ::  k !<
 
        CALL location_message( 'initializing bulk cloud module', .FALSE. )