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

Timestamp:

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

Author:

raasch

Message:

unused variables removed from rrd-subroutines parameter list

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! unused variable for file index removed from rrd-subroutines parameter list
+! 
+! 3760 2019-02-21 18:47:35Z moh.hefny
 ! Bugfix: initialized simulated_time before calculating solar position
 ! to enable restart option with reading in SVF from file(s).
@@ -11117 +11120 @@
 !> Subroutine reads local (subdomain) restart data
 !------------------------------------------------------------------------------!
- SUBROUTINE radiation_rrd_local( i, k, nxlf, nxlc, nxl_on_file, nxrf, nxrc,    &
+ SUBROUTINE radiation_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 )
@@ -11133 +11136 @@
     IMPLICIT NONE
 
-    INTEGER(iwp) ::  i               !< 
     INTEGER(iwp) ::  k               !< 
     INTEGER(iwp) ::  nxlc            !<