Changeset 4576 for palm/trunk


Ignore:
Timestamp:
Jun 24, 2020 5:58:55 PM (4 years ago)
Author:
pavelkrc
Message:

Bugfix for serial build

File:
1 edited

Legend:

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

    r4575 r4576  
    98489848    INTEGER(iwp), INTENT(IN)                              ::  nlayers     !< number of z-layers
    98499849    INTEGER(iwp), INTENT(OUT), OPTIONAL                   ::  iproc       !< MPI process rank
     9850#if defined( __parallel )
    98509851    INTEGER(kind=MPI_ADDRESS_KIND), INTENT(OUT), OPTIONAL ::  offs_proc   !< offset within MPI proc
     9852#else
     9853    INTEGER(iwp), INTENT(OUT), OPTIONAL                   ::  offs_proc   !(actually unused without __parallel)
     9854#endif
    98519855    INTEGER(iwp), INTENT(OUT), OPTIONAL                   ::  offs_glob   !< global offset
    98529856
Note: See TracChangeset for help on using the changeset viewer.