Merge branch 'dev' of https://www.flexpart.eu/git/flex_extract into dev

Merged last changes from flexpart.eu git repo

Documentation/FORD/V6/Doc/proc/rfouftr.html → Documentation/html/Documentation/Api/Fortran/proc/rfouftr.html

@@ -44,7 +44,7 @@
             <span class="icon-bar"></span>
             <span class="icon-bar"></span>
           </button>
-          <a class="navbar-brand" href="../index.html">Flex_extract: Calculation of etadot <small>7.1.work</small></a>
+          <a class="navbar-brand" href="../index.html">Flex_extract: Calculation of etadot <small>7.1</small></a>
         </div>
         <div id="navbar" class="navbar-collapse collapse">
           <ul class="nav navbar-nav">
@@ -69,7 +69,7 @@
         
                
         
-            <li><a href="../program/preconvert.html">Program</a></li>
+            <li><a href="../program/calc_etadot.html">Program</a></li>
       
             </ul>
             </li>
@@ -87,7 +87,7 @@
 
                              
 
-<li class="visible-xs hidden-sm visible-lg"><a href="../program/preconvert.html">Program</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="../program/calc_etadot.html">Program</a></li>
 
           </ul>
         
@@ -477,7 +477,7 @@ public subroutine RFOUFTR(CXM, TRIGS, IFAX, MNAUF, MAXL, ISIGN)
       <div class="container">
       <div class="row">
         <div class="col-xs-6 col-md-4"><p>&copy; 2019 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
-                                          </p></div>
+                                          <br /><small>dfa7dbd</small></p></div>
         <div class="col-xs-6 col-md-4 col-md-push-4">
           <p class="text-right">
             Documentation generated by 

Documentation/FORD/V6/Doc/search.html → Documentation/html/Documentation/Api/Fortran/search.html

@@ -46,7 +46,7 @@ Search Results – Flex_extract: Calculation of etadot
             <span class="icon-bar"></span>
             <span class="icon-bar"></span>
           </button>
-          <a class="navbar-brand" href="./index.html">Flex_extract: Calculation of etadot <small>7.1.work</small></a>
+          <a class="navbar-brand" href="./index.html">Flex_extract: Calculation of etadot <small>7.1</small></a>
         </div>
         <div id="navbar" class="navbar-collapse collapse">
           <ul class="nav navbar-nav">
@@ -71,7 +71,7 @@ Search Results &ndash; Flex_extract: Calculation of etadot
         
                
         
-            <li><a href="./program/preconvert.html">Program</a></li>
+            <li><a href="./program/calc_etadot.html">Program</a></li>
       
             </ul>
             </li>
@@ -89,7 +89,7 @@ Search Results &ndash; Flex_extract: Calculation of etadot
 
                              
 
-<li class="visible-xs hidden-sm visible-lg"><a href="./program/preconvert.html">Program</a></li>
+<li class="visible-xs hidden-sm visible-lg"><a href="./program/calc_etadot.html">Program</a></li>
 
           </ul>
         
@@ -138,7 +138,7 @@ $(document).ready(function() {
       <div class="container">
       <div class="row">
         <div class="col-xs-6 col-md-4"><p>&copy; 2019 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
-                                          </p></div>
+                                          <br /><small>dfa7dbd</small></p></div>
         <div class="col-xs-6 col-md-4 col-md-push-4">
           <p class="text-right">
             Documentation generated by 

Documentation/FORD/V6/Doc/src/grphreal.f90 → Documentation/html/Documentation/Api/Fortran/src/grphreal.f90

@@ -6,7 +6,7 @@ CONTAINS
 
   SUBROUTINE GRPH213(CXMN,FELD,WSAVE,IFAX,Z,W,MLAT,MNAUF,MAXL,MAXB,MLEVEL)
 
-!! DIE ROUTINE F]HRT EINE TRANSFORMATION EINER
+!! WRONG>>> DIE ROUTINE F]HRT EINE TRANSFORMATION EINER
 !! FELDVARIABLEN VOM PHASENRAUM IN  DEN PHYSIKALISCHEN
 !! RAUM AUF KUGELKOORDINATEN DURCH
 
@@ -29,14 +29,14 @@ CONTAINS
     INTEGER MLAT(MAXB),ISIZE,IFAX(10,MAXB)
 
 !   FELD DER LEGENDREPOLYNOME FUER EINE BREITE
-    REAL*8 Z(MAXB/2,0:((MNAUF+3)*(MNAUF+4))/2)
+    REAL Z(MAXB/2,0:((MNAUF+3)*(MNAUF+4))/2)
 
 !   LOGICAL*1 USED(((216*217)/2+1)*160)
 
     DIMENSION CXMN(0:(MNAUF+1)*(MNAUF+2)-1,MLEVEL)
     REAL FELD(MAXL,MLEVEL)
     DIMENSION WSAVE(8*MAXB+15,MAXB/2)
-    REAL*8 W(MAXB)
+    REAL W(MAXB)
     DIMENSION IND(MAXB)
 
     IND(1)=0

Documentation/FORD/V6/Doc/src/phgrreal.f90 → Documentation/html/Documentation/Api/Fortran/src/phgrreal.f90

@@ -156,7 +156,7 @@ CONTAINS
 
     IF (MAUF .LE. MNAUF) WRITE(*,*) 'TOO COARSE LONGITUDE RESOLUTION'
     IF (MANF .LT. 1    .OR. MAXL .LT. 1 .OR. &
-        MANF .GT. MAUF .OR. MAXL .GT. MAUF)) THEN
+        MANF .GT. MAUF .OR. MAXL .GT. MAUF) THEN
       WRITE(*,*) 'WRONG LONGITUDE RANGE',MANF,MAXL
       STOP
     END IF
@@ -169,7 +169,7 @@ CONTAINS
         IF (ABS(ABS(Z(100,J))-ABS(Z(100,MAXB+1-J))) .GT. 1E-11) SYM=.FALSE.
 !       WRITE(*,*) ABS(Z(100,J)),ABS(Z(100,MAXB+1-J))
 11    CONTINUE
-      WRITE(*,*) 'Symmetrisch: ',SYM
+!!      WRITE(*,*) 'Symmetrisch: ',SYM
     ELSE
       SYM=.FALSE.
     END IF