Changeset 3767 for palm/trunk/SOURCE/urban_surface_mod.f90
- Timestamp:
- Feb 27, 2019 8:18:02 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/urban_surface_mod.f90
r3748 r3767 28 28 ! ----------------- 29 29 ! $Id$ 30 ! unused variables removed from rrd-subroutines parameter list 31 ! 32 ! 3748 2019-02-18 10:38:31Z suehring 30 33 ! Revise conversion of waste-heat flux (do not divide by air density, will 31 34 ! be done in diffusion_s) … … 6243 6246 !> Soubroutine reads t_surf and t_wall data from restart files 6244 6247 !------------------------------------------------------------------------------! 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 ) 6248 6250 6249 6251 … … 6253 6255 IMPLICIT NONE 6254 6256 6257 INTEGER(iwp) :: k !< running index over previous input files covering current local domain 6255 6258 INTEGER(iwp) :: l !< index variable for surface type 6256 INTEGER(iwp) :: i !< running index over input files6257 INTEGER(iwp) :: k !< running index over previous input files covering current local domain6258 6259 INTEGER(iwp) :: ns_h_on_file_usm !< number of horizontal surface elements (urban type) on file 6259 6260 INTEGER(iwp) :: nxlc !< index of left boundary on current subdomain 6260 6261 INTEGER(iwp) :: nxlf !< index of left boundary on former subdomain 6261 6262 INTEGER(iwp) :: nxl_on_file !< index of left boundary on former local domain 6262 INTEGER(iwp) :: nxrc !< index of right boundary on current subdomain6263 6263 INTEGER(iwp) :: nxrf !< index of right boundary on former subdomain 6264 6264 INTEGER(iwp) :: nxr_on_file !< index of right boundary on former local domain 6265 INTEGER(iwp) :: nync !< index of north boundary on current subdomain6266 6265 INTEGER(iwp) :: nynf !< index of north boundary on former subdomain 6267 6266 INTEGER(iwp) :: nyn_on_file !< index of north boundary on former local domain
Note: See TracChangeset
for help on using the changeset viewer.