Changeset 485 for palm/trunk/SOURCE/modules.f90

Timestamp:

Feb 5, 2010 10:57:51 AM (15 years ago)

Author:

raasch

Message:

ngp_p3d changed to 64 bit integer

File:

• palm/trunk/SOURCE/modules.f90 (modified) (2 diffs)

palm/trunk/SOURCE/modules.f90

@@ -5 +5 @@
 ! Current revisions:
 ! -----------------
-! 
+! ngp_3d, ngp_3d_inner changed to 64 bit
 !
 ! Former revisions:
@@ -828 +828 @@
                 nz = 0, nza, nzb, nzb_diff, nzt, nzta, nzt_diff
 
+    INTEGER( KIND = SELECTED_INT_KIND(18) ), DIMENSION(:), ALLOCATABLE ::      &
+                ngp_3d, ngp_3d_inner   ! need to have 64 bit for grids > 2E9
+
     INTEGER, DIMENSION(:), ALLOCATABLE ::                                      &
-                ngp_2dh, ngp_3d, ngp_3d_inner,                                 &
-                nnx_pe, nny_pe, nxl_mg, nxr_mg, nyn_mg, nys_mg, nzt_mg
+                ngp_2dh, nnx_pe, nny_pe, nxl_mg, nxr_mg, nyn_mg, nys_mg, nzt_mg
 
     INTEGER, DIMENSION(:,:), ALLOCATABLE ::                                    &