Changeset f13406c in flexpart.git for src/gridcheck.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/gridcheck.f90
re200b7a rf13406c 98 98 99 99 integer :: isec1(56),isec2(22+nxmax+nymax) 100 real(kind=4) :: zsec2(60+2*nuvzmax),zsec4(jpunp) 100 !real(kind=4) :: zsec2(60+2*nuvzmax),zsec4(jpunp) 101 real(kind=4) :: zsec2(184),zsec4(jpunp) 101 102 character(len=1) :: opt 102 103 … … 466 467 k=nlev_ec+1+numskip+i 467 468 akm(nwz-i+1)=zsec2(j) 468 ! write (*,*) 'ifield:',ifield,k,j,zsec2(10+j)469 469 bkm(nwz-i+1)=zsec2(k) 470 470 end do
Note: See TracChangeset
for help on using the changeset viewer.