Changeset f13406c in flexpart.git for src/outgrid_init.f90
- Timestamp:
- Dec 23, 2013, 6:23:38 PM (10 years ago)
- Branches:
- master, 10.4.1_pesei, FPv9.3.1, FPv9.3.1b_testing, FPv9.3.2, GFS_025, NetCDF, bugfixes+enhancements, deposition, dev, fp9.3.1-20161214-nc4, grib2nc4_repair, inputlist, laptop, release-10, release-10.4.1, scaling-bug, svn-petra, svn-trunk, univie
- Children:
- 4fbe7a5
- Parents:
- e200b7a
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/outgrid_init.f90
re200b7a rf13406c 247 247 max(numygrid,numygridn)*numzgrid),stat=stat) 248 248 if (stat.ne.0) write(*,*)'ERROR: could not allocate gridunc' 249 250 allocate(sparse_dump_u(max(numxgrid,numxgridn)* & 251 max(numygrid,numygridn)*numzgrid),stat=stat) 252 if (stat.ne.0) write(*,*)'ERROR: could not allocate gridunc' 253 249 254 allocate(sparse_dump_i(max(numxgrid,numxgridn)* & 250 255 max(numygrid,numygridn)*numzgrid),stat=stat)
Note: See TracChangeset
for help on using the changeset viewer.