Changeset 6a678e3 in flexpart.git for src/outg_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/outg_mod.f90 (modified) (2 diffs)

src/outg_mod.f90

@@ -22 +22 @@
 module outg_mod
 
+  use par_mod, only: dep_prec
+
   implicit none
 
@@ -37 +39 @@
   real,allocatable, dimension (:,:,:) :: factor3d
   real,allocatable, dimension (:,:,:) :: grid
-  real,allocatable, dimension (:,:) :: wetgrid
-  real,allocatable, dimension (:,:) :: drygrid
+  real(dep_prec),allocatable, dimension (:,:) :: wetgrid
+  real(dep_prec),allocatable, dimension (:,:) :: drygrid
   real,allocatable, dimension (:,:,:) :: gridsigma
-  real,allocatable, dimension (:,:) :: drygridsigma
-  real,allocatable, dimension (:,:) :: wetgridsigma
+  real(dep_prec),allocatable, dimension (:,:) :: drygridsigma
+  real(dep_prec),allocatable, dimension (:,:) :: wetgridsigma
   real,allocatable, dimension (:) :: sparse_dump_r
   real,allocatable, dimension (:) :: sparse_dump_u