Changeset 1092 for palm/trunk/SOURCE/init_3d_model.f90

Timestamp:

Feb 2, 2013 11:24:22 AM (11 years ago)

Author:

raasch

Message:

unused variables remove from several routines

File:

• palm/trunk/SOURCE/init_3d_model.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_3d_model.f90

@@ -23 +23 @@
 ! Current revisions:
 ! ------------------
+! unused variables removed
 !
 ! Former revisions:
@@ -239 +240 @@
     INTEGER, DIMENSION(:,:), ALLOCATABLE ::  ngp_2dh_outer_l,  &
                                              ngp_2dh_s_inner_l
-
-    REAL ::  a, b
 
     REAL, DIMENSION(1:2) ::  volume_flow_area_l, volume_flow_initial_l