Ignore:
Timestamp:
Apr 13, 2018 11:22:08 AM (3 years ago)
Author:
raasch
Message:

bugfix: missing parallel cpp-directives added

File:
1 edited

Legend:

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

    r2964 r2967  
    2828! -----------------
    2929! $Id$
     30! bugfix: missing parallel cpp-directives added
     31!
     32! 2964 2018-04-12 16:04:03Z Giersch
    3033! Error message PA0491 has been introduced which could be previously found in
    3134! check_open. The variable numprocs_previous_run is only known in case of
     
    59645967        ENDIF
    59655968
     5969#if defined( __parallel )
    59665970        CALL MPI_BARRIER( comm2d, ierr )
     5971#endif
    59675972!         CALL radiation_write_debug_log( 'End of radiation_calc_svf (after mpi_barrier)' )
    59685973
     
    62236228      INTEGER(iwp)                           ::  ip           !< number of processor where gridbox reside
    62246229      INTEGER(iwp)                           ::  ig           !< 1D index of gridbox in global 2D array
    6225       INTEGER(MPI_ADDRESS_KIND)              ::  wdisp        !< RMA window displacement
    62266230      INTEGER(iwp)                           ::  wcount       !< RMA window item count
    62276231      INTEGER(iwp)                           ::  maxboxes     !< max no of CSF created
     
    62416245      REAL(wp), PARAMETER                    ::  grow_factor = 1.5_wp !< factor of expansion of grow arrays
    62426246
     6247#if defined( __parallel )
     6248      INTEGER(MPI_ADDRESS_KIND)              ::  wdisp        !< RMA window displacement
     6249#endif
    62436250     
    62446251      yxorigin(:) = origin(2:3)
Note: See TracChangeset for help on using the changeset viewer.