Ignore:
Timestamp:
Oct 28, 2015 5:14:10 PM (6 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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/print_1d.f90

    r1683 r1697  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! small E- and F-FORMAT changes to avoid informative compiler messages about
     22! insufficient field width
    2223!
    2324! Former revisions:
     
    175176112 FORMAT (/)
    176177120 FORMAT ('   k     zu      u     du     v     dv     pt    dpt    ', &
    177             'e      Km    Kh     l      zu      k')
     178            ' e      Km    Kh     l      zu      k')
    178179121 FORMAT (1X,I4,1X,F7.1,1X,F6.2,1X,F5.2,1X,F6.2,1X,F5.2,2X,F6.2,1X,F5.2, &
    179             1X,F6.4,1X,F5.2,1X,F5.2,1X,F6.2,1X,F7.1,2X,I4)
    180 130 FORMAT ('   k     zw      w''pt''     wpt       w''u''      wu       ', &
    181             ' w''v''      wv        zw      k')
    182 131 FORMAT (1X,I4,1X,F7.1,6(1X,E9.3),1X,F7.1,2X,I4)
     180            1X,F7.4,1X,F5.2,1X,F5.2,1X,F6.2,1X,F7.1,2X,I4)
     181130 FORMAT ('   k     zw       w''pt''      wpt        w''u''       wu       ',&
     182            '  w''v''       wv        zw      k')
     183131 FORMAT (1X,I4,1X,F7.1,6(1X,E10.3),1X,F7.1,2X,I4)
    183184
    184185
Note: See TracChangeset for help on using the changeset viewer.