Changeset 6a678e3 in flexpart.git for src/unc_mod.f90

Timestamp:

Jan 25, 2016, 2:17:34 PM (8 years ago)

Author:

Espen Sollum ATMOS <eso@…>

Branches:

master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie

Children:

26f6039

Parents:

fddc6ec

Message:

Added option to use double precision for calculating the deposition fields

File:

• src/unc_mod.f90 (modified) (2 diffs)

src/unc_mod.f90

@@ -22 +22 @@
 module unc_mod
 
-  use par_mod, only:cp
+  use par_mod, only:dep_prec
 
   implicit none
@@ -28 +28 @@
   real,allocatable ,dimension (:,:,:,:,:,:,:) :: gridunc
   real,allocatable, dimension (:,:,:,:,:,:,:) :: griduncn
-  real(cp),allocatable, dimension (:,:,:,:,:,:) :: drygridunc
-  real(cp),allocatable, dimension (:,:,:,:,:,:) :: drygriduncn
-  real(cp),allocatable, dimension (:,:,:,:,:,:) :: wetgridunc
-  real(cp),allocatable, dimension (:,:,:,:,:,:) :: wetgriduncn
+  real(dep_prec),allocatable, dimension (:,:,:,:,:,:) :: drygridunc
+  real(dep_prec),allocatable, dimension (:,:,:,:,:,:) :: drygriduncn
+  real(dep_prec),allocatable, dimension (:,:,:,:,:,:) :: wetgridunc
+  real(dep_prec),allocatable, dimension (:,:,:,:,:,:) :: wetgriduncn
 
 ! For sum of individual contributions, used for the MPI version
-  real(cp),allocatable, dimension (:,:,:,:,:,:) :: drygridunc0
-  real(cp),allocatable, dimension (:,:,:,:,:,:) :: drygriduncn0
-  real(cp),allocatable, dimension (:,:,:,:,:,:) :: wetgridunc0
-  real(cp),allocatable, dimension (:,:,:,:,:,:) :: wetgriduncn0
+  real(dep_prec),allocatable, dimension (:,:,:,:,:,:) :: drygridunc0
+  real(dep_prec),allocatable, dimension (:,:,:,:,:,:) :: drygriduncn0
+  real(dep_prec),allocatable, dimension (:,:,:,:,:,:) :: wetgridunc0
+  real(dep_prec),allocatable, dimension (:,:,:,:,:,:) :: wetgriduncn0
 
   real,allocatable, dimension (:,:,:,:,:) :: init_cond