unc_mod.f90 1.6 KB
Newer Older
1
2
3
! SPDX-FileCopyrightText: FLEXPART 1998-2019, see flexpart_license.txt
! SPDX-License-Identifier: GPL-3.0-or-later

4
5
6
7
8
! DJM - 2017-05-09 - added #ifdef USE_MPIINPLACE cpp directive to     *
! enable declaration of a gridunc0 array if required by MPI code in   *
! mpi_mod.f90                                                         *
!                                                                     *
!**********************************************************************
Matthias Langer's avatar
 
Matthias Langer committed
9
10
11

module unc_mod

12
  use par_mod, only:dep_prec
13

Matthias Langer's avatar
 
Matthias Langer committed
14
15
  implicit none

16
  real,allocatable, dimension (:,:,:,:,:,:,:) :: gridunc
17
18
19
20
21
#ifdef USE_MPIINPLACE
#else
  ! If MPI_IN_PLACE option is not used in mpi_mod.f90::mpif_tm_reduce_grid(),
  ! then an aux array is needed for parallel grid reduction
  real,allocatable, dimension (:,:,:,:,:,:,:) :: gridunc0
22
  real,allocatable, dimension (:,:,:,:,:,:,:) :: griduncn0
23
#endif
Matthias Langer's avatar
 
Matthias Langer committed
24
  real,allocatable, dimension (:,:,:,:,:,:,:) :: griduncn
25
26
27
28
  real(dep_prec),allocatable, dimension (:,:,:,:,:,:) :: drygridunc
  real(dep_prec),allocatable, dimension (:,:,:,:,:,:) :: drygriduncn
  real(dep_prec),allocatable, dimension (:,:,:,:,:,:) :: wetgridunc
  real(dep_prec),allocatable, dimension (:,:,:,:,:,:) :: wetgriduncn
Matthias Langer's avatar
 
Matthias Langer committed
29

30
! For sum of individual contributions, used for the MPI version
31
32
33
34
  real(dep_prec),allocatable, dimension (:,:,:,:,:,:) :: drygridunc0
  real(dep_prec),allocatable, dimension (:,:,:,:,:,:) :: drygriduncn0
  real(dep_prec),allocatable, dimension (:,:,:,:,:,:) :: wetgridunc0
  real(dep_prec),allocatable, dimension (:,:,:,:,:,:) :: wetgriduncn0
35

Matthias Langer's avatar
 
Matthias Langer committed
36
37
38
  real,allocatable, dimension (:,:,:,:,:) :: init_cond

end module unc_mod