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

src/concoutput_surf.f90

@@ -63 +63 @@
   use par_mod
   use com_mod
+  use mean_mod
 
   implicit none
@@ -90 +91 @@
 
   !real sparse_dump_u(numxgrid*numygrid*numzgrid)
-  real :: auxgrid(nclassunc),gridtotal,gridsigmatotal,gridtotalunc
-  real :: wetgridtotal,wetgridsigmatotal,wetgridtotalunc
-  real :: drygridtotal,drygridsigmatotal,drygridtotalunc
+  real(dep_prec) :: auxgrid(nclassunc)
+  real(sp) :: gridtotal,gridsigmatotal,gridtotalunc
+  real(dep_prec) :: wetgridtotal,wetgridsigmatotal,wetgridtotalunc
+  real(dep_prec) :: drygridtotal,drygridsigmatotal,drygridtotalunc
   real :: halfheight,dz,dz1,dz2,tot_mu(maxspec,maxpointspec_act)
   real,parameter :: smallnum = tiny(0.0) ! smallest number that can be handled