Changeset 1092 for palm/trunk/SOURCE/poismg.f90
- Timestamp:
- Feb 2, 2013 11:24:22 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/poismg.f90
r1057 r1092 23 23 ! Current revisions: 24 24 ! ----------------- 25 ! 25 ! unused variables removed 26 26 ! 27 27 ! Former revisions: … … 1028 1028 IMPLICIT NONE 1029 1029 1030 INTEGER :: i, il, ir, j, jn, js, k, n , nwords, sender1030 INTEGER :: i, il, ir, j, jn, js, k, nwords 1031 1031 1032 1032 REAL, DIMENSION(nzb:nzt_mg(grid_level)+1, & … … 1093 1093 IMPLICIT NONE 1094 1094 1095 INTEGER :: n , nwords, sender1095 INTEGER :: nwords 1096 1096 1097 1097 REAL, DIMENSION(nzb:nzt_mg(grid_level-1)+1, &
Note: See TracChangeset
for help on using the changeset viewer.