Changeset 3857 for palm/trunk/SOURCE/init_grid.f90
- Timestamp:
- Apr 3, 2019 1:00:16 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_grid.f90
r3855 r3857 369 369 370 370 USE arrays_3d, & 371 ONLY: dd2zu, ddzu, ddzu_pres, ddzw, dzu, dzw, zu, zw371 ONLY: dd2zu, ddzu, ddzu_pres, ddzw, dzu, dzw, x, xu, y, yv, zu, zw 372 372 373 373 USE control_parameters, & … … 431 431 nysg = nys - nbgp 432 432 nyng = nyn + nbgp 433 434 ! 435 !-- Allocate grid arrays 436 ALLOCATE( x(0:nx), xu(0:nx) ) 437 DO i = 0, nx 438 xu(i) = i * dx 439 x(i) = i * dx + 0.5_wp * dx 440 ENDDO 441 442 ALLOCATE( y(0:ny), yv(0:ny) ) 443 DO j = 0, ny 444 yv(j) = j * dy 445 y(j) = j * dy + 0.5_wp * dy 446 ENDDO 433 447 434 448 !
Note: See TracChangeset
for help on using the changeset viewer.