Changeset e9e0f06 in flexpart.git for src/netcdf_output_mod.f90
- Timestamp:
- Dec 12, 2018, 1:35:46 PM (5 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug
- Children:
- 79996be9
- Parents:
- db91eb7
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/netcdf_output_mod.f90
rae43937 re9e0f06 67 67 ccn_aero,in_aero, & ! wetc_in,wetd_in, & 68 68 reldiff,henry,f0,density,dquer,dsigma,dryvel,& 69 ! weightmolar,ohreact,spec_ass,kao,vsetaver,& 70 weightmolar,ohcconst,ohdconst,spec_ass,kao,vsetaver,& 69 weightmolar,ohcconst,ohdconst,vsetaver,& 71 70 ! for concoutput_netcdf and concoutput_nest_netcdf 72 71 nxmin1,nymin1,nz,oro,oron,rho,rhon,& … … 512 511 call nf90_err(nf90_put_att(ncid, sID, 'ohcconst', ohcconst(i))) 513 512 call nf90_err(nf90_put_att(ncid, sID, 'ohdconst', ohdconst(i))) 514 call nf90_err(nf90_put_att(ncid, sID, 'kao', kao(i)))515 513 call nf90_err(nf90_put_att(ncid, sID, 'vsetaver', vsetaver(i))) 516 call nf90_err(nf90_put_att(ncid, sID, 'spec_ass', spec_ass(i)))517 514 518 515 if (lnest) then … … 535 532 call nf90_err(nf90_put_att(ncid, sID, 'ohcconst', ohcconst(i))) 536 533 call nf90_err(nf90_put_att(ncid, sID, 'ohdconst', ohdconst(i))) 537 call nf90_err(nf90_put_att(ncid, sID, 'kao', kao(i)))538 534 call nf90_err(nf90_put_att(ncid, sID, 'vsetaver', vsetaver(i))) 539 call nf90_err(nf90_put_att(ncid, sID, 'spec_ass', spec_ass(i)))540 535 541 536 if (lnest) then
Note: See TracChangeset
for help on using the changeset viewer.