Changeset 1697 for palm/trunk/SOURCE/print_1d.f90

Timestamp:

Oct 28, 2015 5:14:10 PM (9 years ago)

Author:

raasch

Message:

FORTRAN an OpenMP errors removed
misplaced cpp-directive fixed
small E- and F-FORMAT changes to avoid informative compiler messages about insufficient field width

File:

• palm/trunk/SOURCE/print_1d.f90 (modified) (2 diffs)

palm/trunk/SOURCE/print_1d.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! small E- and F-FORMAT changes to avoid informative compiler messages about
+! insufficient field width
 ! 
 ! Former revisions:
@@ -175 +176 @@
 112 FORMAT (/)
 120 FORMAT ('   k     zu      u     du     v     dv     pt    dpt    ', &
-            'e      Km    Kh     l      zu      k')
+            ' e      Km    Kh     l      zu      k')
 121 FORMAT (1X,I4,1X,F7.1,1X,F6.2,1X,F5.2,1X,F6.2,1X,F5.2,2X,F6.2,1X,F5.2, &
-            1X,F6.4,1X,F5.2,1X,F5.2,1X,F6.2,1X,F7.1,2X,I4)
-130 FORMAT ('   k     zw      w''pt''     wpt       w''u''      wu       ', &
-            ' w''v''      wv        zw      k')
-131 FORMAT (1X,I4,1X,F7.1,6(1X,E9.3),1X,F7.1,2X,I4)
+            1X,F7.4,1X,F5.2,1X,F5.2,1X,F6.2,1X,F7.1,2X,I4)
+130 FORMAT ('   k     zw       w''pt''      wpt        w''u''       wu       ',&
+            '  w''v''       wv        zw      k')
+131 FORMAT (1X,I4,1X,F7.1,6(1X,E10.3),1X,F7.1,2X,I4)