Changeset db712a8 in flexpart.git for src/netcdf_output_mod.f90

Timestamp:

Mar 3, 2016, 12:34:56 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:

38b7917

Parents:

b0434e1

Message:

Completed handling of nested wind fields with cloud water (for wet deposition).

File:

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

src/netcdf_output_mod.f90

@@ -79 +79 @@
   implicit none
 
+  private
+
+  public :: writeheader_netcdf,concoutput_surf_nest_netcdf,concoutput_netcdf,&
+       &concoutput_nest_netcdf,concoutput_surf_netcdf
+
 !  include 'netcdf.inc'
 
@@ -97 +102 @@
   real,parameter :: eps=nxmax/3.e5
 
-  private:: writemetadata, output_units, nf90_err
+!  private:: writemetadata, output_units, nf90_err
 
   ! switch output of release point information on/off
@@ -628 +633 @@
 
   ! volume
-  call nf90_err(nf90_put_var(ncid, volID, volume(:,:,:)))
+  if (lnest) then
+    call nf90_err(nf90_put_var(ncid, volID, volumen(:,:,:)))
+  else
+    call nf90_err(nf90_put_var(ncid, volID, volume(:,:,:)))
+  end if
 
   ! area
-  call nf90_err(nf90_put_var(ncid, areaID, area(:,:)))
+  if (lnest) then
+    call nf90_err(nf90_put_var(ncid, areaID, arean(:,:)))
+  else
+    call nf90_err(nf90_put_var(ncid, areaID, area(:,:)))
+  end if
 
   if (write_releases.eqv..true.) then