Changeset 1551 for palm/trunk/SOURCE/check_open.f90
- Timestamp:
- Mar 3, 2015 2:18:16 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_open.f90
r1469 r1551 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Removed redundant output for combine_plot_fields 23 23 ! 24 24 ! Former revisions: … … 99 99 100 100 USE indices, & 101 ONLY: nbgp, nx, nxl, nxlg, nxr, nxrg, ny, nyn, nyng, nys, nysg, nz, & 102 nzb, nzt 101 ONLY: nbgp, nx, nxl, nxr, ny, nyn, nyng, nys, nysg, nz, nzb, nzt 103 102 104 103 USE kinds … … 462 461 ! 463 462 !-- Specifications for combine_plot_fields 464 WRITE ( 30 ) -nbgp,nx+nbgp,-nbgp,ny+nbgp , 0 ,nz_do3d463 WRITE ( 30 ) -nbgp,nx+nbgp,-nbgp,ny+nbgp 465 464 WRITE ( 30 ) 0,nx+1,0,ny+1,0,nz_do3d 466 465 #endif
Note: See TracChangeset
for help on using the changeset viewer.