Changeset 4f17d14 in flexpart.git


Ignore:
Timestamp:
Dec 16, 2016, 12:07:40 AM (7 years ago)
Author:
Don Morton <Don.Morton@…>
Branches:
fp9.3.1-20161214-nc4
Children:
70ecaa0
Parents:
929ae37
Message:

Minor bug fixes in reading from NetCDF4 files to 3D arrays

File:
1 edited

Legend:

Unmodified
Added
Removed

  • flexpart_code/fpmetbinary_mod.F90

    r929ae37 r4f17d14  
    539539&                                pplev(0:nxmax-1, 0:nymax-1, 1:nuvzmax, cm_index))
    540540
    541 
    542 
     541            PRINT *, 'SUM(tt(0:nxmax-1, 0:nymax-1, 1:nzmax, cm_index)): ', &
     542&                                        SUM(tt(0:nxmax-1,0:nymax-1,1:nzmax, cm_index))
    543543
    544544
    … …  
    829829
    830830            ncret = nf90_inq_varid(ncid, 'tt', ncvarid)
    831             ncret = nf90_get_var(ncid, ncvarid, tt)
     831            ncret = nf90_get_var(ncid, ncvarid, tt(0:nxmax-1,0:nzmax-1,1:nzmax,cm_index))
    832832
    833833            ncret = nf90_inq_varid(ncid, 'qv', ncvarid)
    … …  
    852852            ncret = nf90_get_var(ncid, ncvarid, pplev)
    853853
    854 
    855 
     854            PRINT *, 'SUM(tt(0:nxmax-1, 0:nymax-1, 1:nzmax, cm_index)): ', &
     855&                                        SUM(tt(0:nxmax-1,0:nymax-1,1:nzmax, cm_index))
    856856
    857857
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG