Changes from branches/FLEXPART_9.1.3/src/gridcheck.f90 at r13 to trunk/src/gridcheck.f90 at r4

File:

• trunk/src/gridcheck.f90 (modified) (2 diffs, 1 prop)

trunk/src/gridcheck.f90

@@ -98 +98 @@
 
   integer :: isec1(56),isec2(22+nxmax+nymax)
-  !real(kind=4) :: zsec2(60+2*nuvzmax),zsec4(jpunp)
-  real(kind=4) :: zsec2(184),zsec4(jpunp)
+  real(kind=4) :: zsec2(60+2*nuvzmax),zsec4(jpunp)
   character(len=1) :: opt
 
@@ -467 +466 @@
     k=nlev_ec+1+numskip+i
     akm(nwz-i+1)=zsec2(j)
+  !   write (*,*) 'ifield:',ifield,k,j,zsec2(10+j)
     bkm(nwz-i+1)=zsec2(k)
   end do