Ignore:
Timestamp:
Feb 27, 2019 8:18:02 AM (2 years ago)
Author:
raasch
Message:

unused variables removed from rrd-subroutines parameter list

File:
1 edited

Legend:

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

    r3748 r3767  
    2828! -----------------
    2929! $Id$
     30! unused variables removed from rrd-subroutines parameter list
     31!
     32! 3748 2019-02-18 10:38:31Z suehring
    3033! Revise conversion of waste-heat flux (do not divide by air density, will
    3134! be done in diffusion_s)
     
    62436246!> Soubroutine reads t_surf and t_wall data from restart files
    62446247!------------------------------------------------------------------------------!
    6245     SUBROUTINE usm_rrd_local( i, k, nxlf, nxlc, nxl_on_file, nxrf, nxrc,       &
    6246                               nxr_on_file, nynf, nync, nyn_on_file, nysf, nysc,&
    6247                               nys_on_file, found )
     6248    SUBROUTINE usm_rrd_local( k, nxlf, nxlc, nxl_on_file, nxrf, nxr_on_file, nynf, nyn_on_file,    &
     6249                              nysf, nysc, nys_on_file, found )
    62486250
    62496251
     
    62536255       IMPLICIT NONE
    62546256
     6257       INTEGER(iwp)       ::  k                 !< running index over previous input files covering current local domain
    62556258       INTEGER(iwp)       ::  l                 !< index variable for surface type
    6256        INTEGER(iwp)       ::  i                 !< running index over input files
    6257        INTEGER(iwp)       ::  k                 !< running index over previous input files covering current local domain
    62586259       INTEGER(iwp)       ::  ns_h_on_file_usm  !< number of horizontal surface elements (urban type) on file
    62596260       INTEGER(iwp)       ::  nxlc              !< index of left boundary on current subdomain
    62606261       INTEGER(iwp)       ::  nxlf              !< index of left boundary on former subdomain
    62616262       INTEGER(iwp)       ::  nxl_on_file       !< index of left boundary on former local domain
    6262        INTEGER(iwp)       ::  nxrc              !< index of right boundary on current subdomain
    62636263       INTEGER(iwp)       ::  nxrf              !< index of right boundary on former subdomain
    62646264       INTEGER(iwp)       ::  nxr_on_file       !< index of right boundary on former local domain
    6265        INTEGER(iwp)       ::  nync              !< index of north boundary on current subdomain
    62666265       INTEGER(iwp)       ::  nynf              !< index of north boundary on former subdomain
    62676266       INTEGER(iwp)       ::  nyn_on_file       !< index of north boundary on former local domain
Note: See TracChangeset for help on using the changeset viewer.