Changes in src/netcdf_output_mod.f90 [4ad96c5:ae43937] in flexpart.git
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/netcdf_output_mod.f90
r4ad96c5 rae43937 67 67 ccn_aero,in_aero, & ! wetc_in,wetd_in, & 68 68 reldiff,henry,f0,density,dquer,dsigma,dryvel,& 69 weightmolar,ohcconst,ohdconst,vsetaver,& 69 ! weightmolar,ohreact,spec_ass,kao,vsetaver,& 70 weightmolar,ohcconst,ohdconst,spec_ass,kao,vsetaver,& 70 71 ! for concoutput_netcdf and concoutput_nest_netcdf 71 72 nxmin1,nymin1,nz,oro,oron,rho,rhon,& … … 113 114 logical, parameter :: write_area = .false. 114 115 115 ! coordinate transformation from internal to world coord116 real :: xp1,yp1,xp2,yp2117 116 contains 118 117 … … 513 512 call nf90_err(nf90_put_att(ncid, sID, 'ohcconst', ohcconst(i))) 514 513 call nf90_err(nf90_put_att(ncid, sID, 'ohdconst', ohdconst(i))) 514 call nf90_err(nf90_put_att(ncid, sID, 'kao', kao(i))) 515 515 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))) 516 517 517 518 if (lnest) then … … 534 535 call nf90_err(nf90_put_att(ncid, sID, 'ohcconst', ohcconst(i))) 535 536 call nf90_err(nf90_put_att(ncid, sID, 'ohdconst', ohdconst(i))) 537 call nf90_err(nf90_put_att(ncid, sID, 'kao', kao(i))) 536 538 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))) 537 540 538 541 if (lnest) then … … 670 673 call nf90_err(nf90_put_var(ncid, relendID, ireleaseend(i), (/i/))) 671 674 call nf90_err(nf90_put_var(ncid, relkindzID, kindz(i), (/i/))) 672 xp1=xpoint1(i)*dx+xlon0 673 yp1=ypoint1(i)*dy+ylat0 674 xp2=xpoint2(i)*dx+xlon0 675 yp2=ypoint2(i)*dy+ylat0 676 call nf90_err(nf90_put_var(ncid, rellng1ID, xp1, (/i/))) 677 call nf90_err(nf90_put_var(ncid, rellng2ID, xp2, (/i/))) 678 call nf90_err(nf90_put_var(ncid, rellat1ID, yp1, (/i/))) 679 call nf90_err(nf90_put_var(ncid, rellat2ID, yp2, (/i/))) 675 call nf90_err(nf90_put_var(ncid, rellng1ID, xpoint1(i), (/i/))) 676 call nf90_err(nf90_put_var(ncid, rellng2ID, xpoint2(i), (/i/))) 677 call nf90_err(nf90_put_var(ncid, rellat1ID, ypoint1(i), (/i/))) 678 call nf90_err(nf90_put_var(ncid, rellat2ID, ypoint2(i), (/i/))) 680 679 call nf90_err(nf90_put_var(ncid, relzz1ID, zpoint1(i), (/i/))) 681 680 call nf90_err(nf90_put_var(ncid, relzz2ID, zpoint2(i), (/i/)))
Note: See TracChangeset
for help on using the changeset viewer.