Changeset 5b5589b in flex_extract.git for Source/Fortran/rwgrib2.f90

Timestamp:

Aug 21, 2019, 8:11:08 PM (5 years ago)

Author:

pesei <petra seibert -@…>

Branches:

master, ctbto, dev

Children:

7e59510, e0005c9

Parents:

dfa7dbd

git-author:

pesei <petra seibert -@…> (08/21/19 20:06:51)

git-committer:

pesei <petra seibert -@…> (08/21/19 20:11:08)

Message:

Update automated Fortran documentation

and move everything to the right place.
Replace tabs with blanks in two source files (so that FORD works!)

File:

• Source/Fortran/rwgrib2.f90 (modified) (2 diffs)

Source/Fortran/rwgrib2.f90

@@ -131 +131 @@
      do i=1,LLEN
        if (MLEVELIST(i:i) .eq. '/') THEN
-                l=l+1
-                MLINDEX(l)=i
-              end if
-            end do
-            MLINDEX(l+1)=LLEN+1
-            do i=1,l
-              read(MLEVELIST(MLINDEX(i)+1:MLINDEX(i+1)-1),*) ILEVEL(i)
-            end do
+         l=l+1
+         MLINDEX(l)=i
+       end if
+     end do
+     MLINDEX(l+1)=LLEN+1
+     do i=1,l
+       read(MLEVELIST(MLINDEX(i)+1:MLINDEX(i+1)-1),*) ILEVEL(i)
+     end do
    end if 
 
@@ -153 +153 @@
 !           call grib_set(igrib,"units","s**-1")
 !         end if
-              if (l .ne. mlevel) then
+       if (l .ne. mlevel) then
          zsec4(1:maxl*maxb)=RESHAPE(FELD(:,:,ILEVEL(k)),(/maxl*maxb/))
-              else
-                zsec4(1:maxl*maxb)=RESHAPE(FELD(:,:,k),(/maxl*maxb/))
-              end if
+       else
+         zsec4(1:maxl*maxb)=RESHAPE(FELD(:,:,k),(/maxl*maxb/))
+       end if
        call grib_set(igrib,"values",zsec4)