Changeset 4576 for palm/trunk

Timestamp:

Jun 24, 2020 5:58:55 PM (4 years ago)

Author:

pavelkrc

Message:

Bugfix for serial build

File:

• palm/trunk/SOURCE/radiation_model_mod.f90 (modified) (1 diff)

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -9848 +9848 @@
     INTEGER(iwp), INTENT(IN)                              ::  nlayers     !< number of z-layers
     INTEGER(iwp), INTENT(OUT), OPTIONAL                   ::  iproc       !< MPI process rank
+#if defined( __parallel )
     INTEGER(kind=MPI_ADDRESS_KIND), INTENT(OUT), OPTIONAL ::  offs_proc   !< offset within MPI proc
+#else
+    INTEGER(iwp), INTENT(OUT), OPTIONAL                   ::  offs_proc   !(actually unused without __parallel)
+#endif
     INTEGER(iwp), INTENT(OUT), OPTIONAL                   ::  offs_glob   !< global offset