Changeset 3794

Timestamp:

Mar 15, 2019 9:36:33 AM (6 years ago)

Author:

raasch

Message:

unused variables removed

File:

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

palm/trunk/SOURCE/pmc_interface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! two remaining unused variables removed
+! 
+! 3792 2019-03-14 16:50:07Z hellstea
 ! Interpolations improved. Large number of obsolete subroutines removed.
 ! All unused variables removed. 
@@ -1542 +1545 @@
        INTEGER(iwp) ::  kstart    !<
        INTEGER(iwp) ::  kw        !< Child-grid index limited to kw <= nzt+1
-       REAL(wp)     ::  tolerance !<
      
 !
@@ -2105 +2107 @@
 
     REAL(wp), POINTER, DIMENSION(:,:)     ::  p_2d        !<
-    REAL(wp), POINTER, DIMENSION(:,:)     ::  p_2d_sec    !<
     REAL(wp), POINTER, DIMENSION(:,:,:)   ::  p_3d        !<
     REAL(wp), POINTER, DIMENSION(:,:,:)   ::  p_3d_sec    !<