Changeset 341f4b7 in flexpart.git for src/netcdf_output_mod.f90

Timestamp:

Apr 20, 2016, 1:39:51 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:

61df8d9

Parents:

32b49c3

Message:

SPECIES files converted to namelist format. Fixed-format SPCIES files renamed with .oldformat extension. Added 2 wet depo parameters to old-format SPECIES. Renamed internal variables and parameters used for wet deposition. incloud_ratio increased to 2.2

File:

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

src/netcdf_output_mod.f90

@@ -61 +61 @@
                        dx,xlon0,dy,ylat0,compoint,method,lsubgrid,lconvection,&
                        ind_source,ind_receptor,nageclass,lage,&
-                       drydep,wetdep,decay,weta,wetb, numbnests, &
-                       weta_in,wetb_in, & ! wetc_in,wetd_in, &
+                       drydep,wetdep,decay,weta_gas,wetb_gas, numbnests, &
+                       ccn_aero,in_aero, & ! wetc_in,wetd_in, &
                        reldiff,henry,f0,density,dquer,dsigma,dryvel,&
 !                       weightmolar,ohreact,spec_ass,kao,vsetaver,&
@@ -543 +543 @@
              chunksizes = dep_chunksizes))
         call nf90_err(nf90_put_att(ncid, wdsID, 'units', '1e-12 kg m-2'))
-        call nf90_err(nf90_put_att(ncid, wdsID, 'weta', weta(i)))
-        call nf90_err(nf90_put_att(ncid, wdsID, 'wetb', wetb(i)))
-        call nf90_err(nf90_put_att(ncid, wdsID, 'weta_in', weta_in(i)))
-        call nf90_err(nf90_put_att(ncid, wdsID, 'wetb_in', wetb_in(i)))
+        call nf90_err(nf90_put_att(ncid, wdsID, 'weta_gas', weta_gas(i)))
+        call nf90_err(nf90_put_att(ncid, wdsID, 'wetb_gas', wetb_gas(i)))
+        call nf90_err(nf90_put_att(ncid, wdsID, 'ccn_aero', ccn_aero(i)))
+        call nf90_err(nf90_put_att(ncid, wdsID, 'in_aero', in_aero(i)))
         ! call nf90_err(nf90_put_att(ncid, wdsID, 'wetc_in', wetc_in(i)))
         ! call nf90_err(nf90_put_att(ncid, wdsID, 'wetd_in', wetd_in(i)))