diff --git a/src/netcdf_io/calc_analysis.fd/inc2anl.f90 b/src/netcdf_io/calc_analysis.fd/inc2anl.f90 index fb7ead20..24b4f242 100644 --- a/src/netcdf_io/calc_analysis.fd/inc2anl.f90 +++ b/src/netcdf_io/calc_analysis.fd/inc2anl.f90 @@ -42,7 +42,7 @@ module inc2anl 'mass_fraction_of_hydrophilic_organic_carbon_in_air', & 'mass_fraction_of_dust001_in_air', 'mass_fraction_of_dust002_in_air', & 'mass_fraction_of_dust003_in_air', 'mass_fraction_of_dust004_in_air', & - 'mass_fraction_of_dust005_in_air', 'mass_fraction_of_sea_salt001_in_air', & + 'mass_fraction_of_dust005_in_air', 'mass_fraction_of_sea_salt001_in_air', & 'mass_fraction_of_sea_salt002_in_air', 'mass_fraction_of_sea_salt003_in_air', & 'mass_fraction_of_sea_salt004_in_air' / @@ -216,7 +216,7 @@ subroutine add_aero_inc(fcstvar, incvar) ! get first guess call read_vardata(fcstncfile, trim(fcstvar), work3d_bg, nslice=k, slicedim=3) ! get increment - incncfile = open_dataset(aero_file, paropen=.true.) + incncfile = open_dataset(aero_file) call read_vardata(incncfile, trim(incvar), work3d_inc, nslice=k, slicedim=1) ! add increment to background work3d_bg(:,:,1) = work3d_bg(:,:,1) + work3d_inc(:,:)