Changes in src/netcdf_output_mod.f90 [4c64400:f28aa0a] in flexpart.git

File:

• src/netcdf_output_mod.f90 (modified) (8 diffs)

src/netcdf_output_mod.f90

@@ -19 +19 @@
 !**********************************************************************
 
-
   !*****************************************************************************
   !                                                                            *
@@ -25 +24 @@
   !  residence time and wet and dry deposition output.                         *
   !                                                                            *
-  !  - writeheader_netcdf generates file including all information previously  *
+  !  - writeheader_netcdf generates file including all information previously    *
   !    stored in separate header files                                         *
-  !  - concoutput_netcdf write concentration output and wet and dry deposition *
+  !  - concoutput_netcdf write concentration output and wet and dry deposition   *
   !                                                                            *
   !     Author: D. Brunner                                                     *
@@ -894 +893 @@
   gridsigmatotal=0.
   gridtotalunc=0.
-  wetgridtotal=0._dep_prec
-  wetgridsigmatotal=0._dep_prec
-  wetgridtotalunc=0._dep_prec
-  drygridtotal=0._dep_prec
-  drygridsigmatotal=0._dep_prec
-  drygridtotalunc=0._dep_prec
+  wetgridtotal=0.
+  wetgridsigmatotal=0.
+  wetgridtotalunc=0.
+  drygridtotal=0.
+  drygridsigmatotal=0.
+  drygridtotalunc=0.
 
   do ks=1,nspec
@@ -923 +922 @@
                    wetgridsigma(ix,jy),nclassunc)
               ! Multiply by number of classes to get total concentration
-              wetgrid(ix,jy)=wetgrid(ix,jy)*real(nclassunc,kind=sp)
+              wetgrid(ix,jy)=wetgrid(ix,jy)*real(nclassunc,kind=dep_prec)
               wetgridtotal=wetgridtotal+wetgrid(ix,jy)
               ! Calculate standard deviation of the mean
@@ -947 +946 @@
                    drygridsigma(ix,jy),nclassunc)
               ! Multiply by number of classes to get total concentration
-              drygrid(ix,jy)=drygrid(ix,jy)*real(nclassunc,kind=sp)
+              drygrid(ix,jy)=drygrid(ix,jy)*real(nclassunc)
               drygridtotal=drygridtotal+drygrid(ix,jy)
               ! Calculate standard deviation of the mean
               drygridsigma(ix,jy)= &
                    drygridsigma(ix,jy)* &
-                   sqrt(real(nclassunc, kind=dep_prec))
+                   sqrt(real(nclassunc))
               drygridsigmatotal=drygridsigmatotal+ &
                    drygridsigma(ix,jy)
@@ -1055 +1054 @@
   if (wetgridtotal.gt.0.) wetgridtotalunc=wetgridsigmatotal/ &
        wetgridtotal
-  if (drygridtotal.gt.0.) drygridtotalunc=real(drygridsigmatotal/ &
-       drygridtotal, kind=dep_prec)
+  if (drygridtotal.gt.0.) drygridtotalunc=drygridsigmatotal/ &
+       drygridtotal
 
   ! Dump of receptor concentrations
@@ -1299 +1298 @@
               wetgridsigma(ix,jy)= &
                    wetgridsigma(ix,jy)* &
-                   sqrt(real(nclassunc,kind=dep_prec))
+                   sqrt(real(nclassunc))
             endif
 
@@ -1320 +1319 @@
               drygridsigma(ix,jy)= &
                    drygridsigma(ix,jy)* &
-                   sqrt(real(nclassunc,kind=dep_prec))
+                   sqrt(real(nclassunc))
             endif