Changeset 36dbabb in flex_extract.git for Source

Timestamp:

Jul 7, 2020, 5:56:24 PM (4 years ago)

Author:

pesei <petra.seibert [at ) univie.ac.at>

Branches:

master, ctbto, dev

Children:

3363e01

Parents:

14d9618

Message:

Update FORD documentation, change some comment lines in Fortran, smal change in run_reftest.sh

Location:

Source/Fortran

Files:

• posnam.f90 (modified) (1 diff)
• rwgrib2.f90 (modified) (4 diffs)

Source/Fortran/posnam.f90

@@ -1 +1 @@
   SUBROUTINE POSNAM(KULNAM,CDNAML)
 
- !! position in namelist file.
- ! author:  Mats Hamrud, ECMWF
+ !! Position in namelist file.
+ !! Author:  Mats Hamrud, ECMWF
 
     INTEGER, INTENT(IN)       :: KULNAM

Source/Fortran/rwgrib2.f90

@@ -1 +1 @@
  MODULE RWGRIB2
+
+!! Read or write a field variable on a lat/lon grid from/to GRIB file, or 
+!! read a field in spectral representation from GRIB file
 
  CONTAINS
@@ -85 +88 @@
 !      print*,i
    END DO iloop
-!!   write(*,*) 'readlatlon: ',i-1,' records read'
+! !   write(*,*) 'readlatlon: ',i-1,' records read'
  
    DO i=1,n
@@ -169 +172 @@
    SUBROUTINE READSPECTRAL(FILENAME,CXMN,MNAUF,MLEVEL,MAXLEV,MPAR,A,B)
 
-!!  read a GRIB file in spherical harmonics
+!!  Read a GRIB file in spherical harmonics
 
    USE GRIB_API
@@ -249 +252 @@
    END DO iloop
 
-!!   write(*,*) 'readspectral: ',i-1,' records read'
+! !   write(*,*) 'readspectral: ',i-1,' records read'
  
    DO i=1,n