Changeset 3794 for palm


Ignore:
Timestamp:
Mar 15, 2019 9:36:33 AM (5 years ago)
Author:
raasch
Message:

unused variables removed

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/pmc_interface_mod.f90

    r3792 r3794  
    2525! -----------------
    2626! $Id$
     27! two remaining unused variables removed
     28!
     29! 3792 2019-03-14 16:50:07Z hellstea
    2730! Interpolations improved. Large number of obsolete subroutines removed.
    2831! All unused variables removed.
     
    15421545       INTEGER(iwp) ::  kstart    !<
    15431546       INTEGER(iwp) ::  kw        !< Child-grid index limited to kw <= nzt+1
    1544        REAL(wp)     ::  tolerance !<
    15451547     
    15461548!
     
    21052107
    21062108    REAL(wp), POINTER, DIMENSION(:,:)     ::  p_2d        !<
    2107     REAL(wp), POINTER, DIMENSION(:,:)     ::  p_2d_sec    !<
    21082109    REAL(wp), POINTER, DIMENSION(:,:,:)   ::  p_3d        !<
    21092110    REAL(wp), POINTER, DIMENSION(:,:,:)   ::  p_3d_sec    !<
Note: See TracChangeset for help on using the changeset viewer.