Ignore:
Timestamp:
Jul 18, 2016 12:01:49 PM (5 years ago)
Author:
suehring
Message:

PE-wise reading of topography file

File:
1 edited

Legend:

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

    r1961 r1968  
    1919! Current revisions:
    2020! ------------------
    21 !
     21! Changed dimension for MPI-datatypes type_x_int and type_y_int
    2222!
    2323! Former revisions:
     
    3434! -gamma_x, gamma_y, gamma_z, var_x, var_y, var_z
    3535!
    36 ! Change default values (in order to unify gradient calculation):
     36! Change initial values (in order to unify gradient calculation):
    3737! pt_vertical_gradient_level, sa_vertical_gradient_level
    3838!
     
    11561156                              sendrecvcount_zx, sendrecvcount_zyd,                  &
    11571157                              sendrecvcount_yxd, target_id, tasks_per_node = -9999, &
    1158                               threads_per_task = 1, type_x, type_x_int, type_xy,    &
    1159                               type_y, type_y_int
     1158                              threads_per_task = 1, type_x, type_xy,    &
     1159                              type_y
    11601160
    11611161    INTEGER(iwp)          ::  pdims(2) = 1, req(100)
     
    11771177
    11781178    INTEGER(iwp) :: ngp_yz_int, type_xz_int, type_yz_int
    1179     INTEGER(iwp), DIMENSION(:), ALLOCATABLE ::  ngp_xz, ngp_yz, type_xz, type_yz
     1179    INTEGER(iwp), DIMENSION(:), ALLOCATABLE ::  ngp_xz, ngp_yz, type_x_int,    &
     1180                                                type_xz, type_y_int, type_yz
    11801181
    11811182    LOGICAL ::  left_border_pe  = .FALSE., north_border_pe = .FALSE., &
Note: See TracChangeset for help on using the changeset viewer.