Changeset 1697 for palm/trunk/SOURCE/init_1d_model.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/init_1d_model.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_1d_model.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! small E- and F-FORMAT changes to avoid informative compiler messages about
+! insufficient field width
 ! 
 ! Former revisions:
@@ -831 +832 @@
            &'ITER.  HH:MM:SS    DT      UMAX   VMAX    U*   ALPHA   ENERG.'/ &
            &'-------------------------------------------------------------')
-101 FORMAT (I5,2X,A9,1X,F6.2,2X,F6.2,1X,F6.2,2X,F5.3,2X,F5.1,2X,F7.2)
+101 FORMAT (I5,2X,A9,1X,F6.2,2X,F6.2,1X,F6.2,1X,F6.3,2X,F5.1,2X,F7.2)