Ignore:
Timestamp:
Feb 5, 2010 10:57:51 AM (13 years ago)
Author:
raasch
Message:

ngp_p3d changed to 64 bit integer

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/modules.f90

    r482 r485  
    55! Current revisions:
    66! -----------------
    7 !
     7! ngp_3d, ngp_3d_inner changed to 64 bit
    88!
    99! Former revisions:
     
    828828                nz = 0, nza, nzb, nzb_diff, nzt, nzta, nzt_diff
    829829
     830    INTEGER( KIND = SELECTED_INT_KIND(18) ), DIMENSION(:), ALLOCATABLE ::      &
     831                ngp_3d, ngp_3d_inner   ! need to have 64 bit for grids > 2E9
     832
    830833    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
    833835
    834836    INTEGER, DIMENSION(:,:), ALLOCATABLE ::                                    &
Note: See TracChangeset for help on using the changeset viewer.