Changeset 2583 for palm/trunk


Ignore:
Timestamp:
Oct 26, 2017 1:58:38 PM (7 years ago)
Author:
knoop
Message:

Bugfix: reverted MPI_Win_allocate_cptr introduction in last commit

File:
1 edited

Legend:

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

    r2582 r2583  
    2626! -----------------
    2727! $Id$
    28 ! Workaround for gnufortran compiler added in usm_calc_svf. CALL MPI_Win_allocate is
    29 ! replaced by CALL MPI_Win_allocate_cptr if defined ( __gnufortran ).
    30 !
    31 ! 2544 2017-10-13 18:09:32Z maronga
    3228! Date and time quantities are now read from date_and_time_mod. Solar constant is
    3329! read from radiation_model_mod
     
    19271923!--             Argument X of function c_sizeof(X) needs arbitrary REAL(wp) value, set to 1.0_wp for now
    19281924                size_lad_rma = c_sizeof(1.0_wp)*nnx*nny*nzu
    1929 
    1930 #if defined( __gfortran )
    1931 !
    1932 !--             Workaround for the gfortran compiler.
    1933                 CALL MPI_Win_allocate_cptr( size_lad_rma, wp, minfo, comm2d,    &
    1934                      lad_s_rma_p, win_lad, ierr )
    1935 #else               
    1936                 CALL MPI_Win_allocate( size_lad_rma, c_sizeof(1.0_wp), minfo,   &
    1937                      comm2d, lad_s_rma_p, win_lad, ierr )
    1938 #endif
     1925                CALL MPI_Win_allocate(size_lad_rma, c_sizeof(1.0_wp), minfo, comm2d, &
     1926                                        lad_s_rma_p, win_lad, ierr)
    19391927                CALL c_f_pointer(lad_s_rma_p, lad_s_rma, (/ nzu, nny, nnx /))
    19401928                usm_lad(nzub:, nys:, nxl:) => lad_s_rma(:,:,:)
Note: See TracChangeset for help on using the changeset viewer.