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

Timestamp:

Oct 28, 2015 5:14:10 PM (8 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/run_control.f90 (modified) (3 diffs)

palm/trunk/SOURCE/run_control.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! small E- and F-FORMAT changes to avoid informative compiler messages about
+! insufficient field width
 ! 
 ! Former revisions:
@@ -119 +120 @@
        ENDIF
        WRITE ( 15, 101 )  runnr, current_timestep_number, simulated_time_chr,  &
-                          simulated_time-INT( simulated_time ), dt_3d,         &
-                          timestep_reason, u_max, disturb_chr,                 &
+                          INT( ( simulated_time-INT( simulated_time ) ) * 100),&
+                          dt_3d, timestep_reason, u_max, disturb_chr,          &
                           v_max, disturb_chr, w_max, hom(nzb,1,pr_palm,0),     &
                           hom(nzb+8,1,pr_palm,0), hom(nzb+3,1,pr_palm,0),      &
@@ -153 +154 @@
           &'----------------------------------------------------------------', &
           &'---------')
-101 FORMAT (I3,1X,I6,1X,A8,F3.2,1X,F8.4,A1,1X,F8.4,A1,F8.4,A1,F8.4,2X,F5.3,2X, &
-            F4.2, &
+101 FORMAT (I3,1X,I6,1X,A8,'.',I2.2,1X,F8.4,A1,1X,F8.4,A1,F8.4,A1,F8.4,1X,     &
+            F6.3,1X,F5.2, &
             2X,E10.3,2X,F6.0,1X,4(E10.3,1X),3(3(I4),1X),F8.3,1X,F8.3,5X,I3)