Changes from trunk/src/gridcheck.f90 at r4 to branches/FLEXPART_9.1.3/src/gridcheck.f90 at r13
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/FLEXPART_9.1.3/src/gridcheck.f90
- Property svn:executable deleted
r4 r13 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.