Changeset 485 for palm/trunk/SOURCE/modules.f90
- Timestamp:
- Feb 5, 2010 10:57:51 AM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/modules.f90
r482 r485 5 5 ! Current revisions: 6 6 ! ----------------- 7 ! 7 ! ngp_3d, ngp_3d_inner changed to 64 bit 8 8 ! 9 9 ! Former revisions: … … 828 828 nz = 0, nza, nzb, nzb_diff, nzt, nzta, nzt_diff 829 829 830 INTEGER( KIND = SELECTED_INT_KIND(18) ), DIMENSION(:), ALLOCATABLE :: & 831 ngp_3d, ngp_3d_inner ! need to have 64 bit for grids > 2E9 832 830 833 INTEGER, DIMENSION(:), ALLOCATABLE :: & 831 ngp_2dh, ngp_3d, ngp_3d_inner, & 832 nnx_pe, nny_pe, nxl_mg, nxr_mg, nyn_mg, nys_mg, nzt_mg 834 ngp_2dh, nnx_pe, nny_pe, nxl_mg, nxr_mg, nyn_mg, nys_mg, nzt_mg 833 835 834 836 INTEGER, DIMENSION(:,:), ALLOCATABLE :: &
Note: See TracChangeset
for help on using the changeset viewer.