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

Timestamp:

Feb 27, 2019 8:18:02 AM (6 years ago)

Author:

raasch

Message:

unused variables removed from rrd-subroutines parameter list

File:

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

palm/trunk/SOURCE/bulk_cloud_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variable for file index removed from rrd-subroutines parameter list
+! 
+! 3724 2019-02-06 16:28:23Z kanani
 ! Correct double-used log_point_s unit
 ! 
@@ -1710 +1713 @@
 !> This routine reads the respective restart data for the bulk cloud module.
 !------------------------------------------------------------------------------!
-    SUBROUTINE bcm_rrd_local( i, k, nxlf, nxlc, nxl_on_file, nxrf, nxrc,       &
+    SUBROUTINE bcm_rrd_local( k, nxlf, nxlc, nxl_on_file, nxrf, nxrc,          &
                               nxr_on_file, nynf, nync, nyn_on_file, nysf,      &
                               nysc, nys_on_file, tmp_2d, tmp_3d, found )
@@ -1724 +1727 @@
        IMPLICIT NONE
 
-       INTEGER(iwp) ::  i               !<
        INTEGER(iwp) ::  k               !<
        INTEGER(iwp) ::  nxlc            !<