Changeset 4ad96c5 in flexpart.git


Ignore:
Timestamp:
Dec 19, 2018, 2:09:04 PM (2 months ago)
Author:
Sabine <sabine.eckhardt@…>
Branches:
release-10
Children:
348abf6
Parents:
c7d1052
Message:

BUGFIX: wrong Releasepointcoordinates in netcdf file

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/netcdf_output_mod.f90

    re9e0f06 r4ad96c5  
    113113  logical, parameter :: write_area = .false.
    114114
     115  ! coordinate transformation from internal to world coord
     116  real :: xp1,yp1,xp2,yp2
    115117contains
    116118
     
    668670       call nf90_err(nf90_put_var(ncid, relendID, ireleaseend(i), (/i/)))
    669671       call nf90_err(nf90_put_var(ncid, relkindzID, kindz(i), (/i/)))
    670        call nf90_err(nf90_put_var(ncid, rellng1ID, xpoint1(i), (/i/)))
    671        call nf90_err(nf90_put_var(ncid, rellng2ID, xpoint2(i), (/i/)))
    672        call nf90_err(nf90_put_var(ncid, rellat1ID, ypoint1(i), (/i/)))
    673        call nf90_err(nf90_put_var(ncid, rellat2ID, ypoint2(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/)))
    674680       call nf90_err(nf90_put_var(ncid, relzz1ID, zpoint1(i), (/i/)))
    675681       call nf90_err(nf90_put_var(ncid, relzz2ID, zpoint2(i), (/i/)))
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG