Changeset 4657 for palm/trunk

Timestamp:

Aug 28, 2020 4:53:45 PM (4 years ago)

Author:

pavelkrc

Message:

Bugfix (silence compiler warning)

File:

• palm/trunk/SOURCE/radiation_model_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Bugfix (silence compiler warning)
+!
+! 4656 2020-08-28 14:51:30Z pavelkrc
 ! Bugfix for serial build
 !
@@ -9252 +9255 @@
          INTEGER(iwp), INTENT(in)            ::  d, z, y, x
          INTEGER(iwp), TARGET, INTENT(out)   ::  isurfl
+
+#if defined( __parallel )
          INTEGER(iwp)                        ::  iproc
-
-#if defined( __parallel )
          INTEGER(KIND=MPI_ADDRESS_KIND)      ::  target_displ  !< index of the grid in the local gridsurf array