Changeset 4657 for palm


Ignore:
Timestamp:
Aug 28, 2020 4:53:45 PM (8 weeks ago)
Author:
pavelkrc
Message:

Bugfix (silence compiler warning)

File:
1 edited

Legend:

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

    r4656 r4657  
    2828! -----------------
    2929! $Id$
     30! Bugfix (silence compiler warning)
     31!
     32! 4656 2020-08-28 14:51:30Z pavelkrc
    3033! Bugfix for serial build
    3134!
     
    92529255         INTEGER(iwp), INTENT(in)            ::  d, z, y, x
    92539256         INTEGER(iwp), TARGET, INTENT(out)   ::  isurfl
     9257
     9258#if defined( __parallel )
    92549259         INTEGER(iwp)                        ::  iproc
    9255 
    9256 #if defined( __parallel )
    92579260         INTEGER(KIND=MPI_ADDRESS_KIND)      ::  target_displ  !< index of the grid in the local gridsurf array
    92589261
Note: See TracChangeset for help on using the changeset viewer.