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

Timestamp:

Sep 12, 2018 3:02:00 PM (6 years ago)

Author:

raasch

Message:

various changes to avoid compiler warnings (mainly removal of unused variables)

File:

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

palm/trunk/SOURCE/print_1d.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused format statement removed
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -125 +128 @@
                              TRIM( region( sr ) ), TRIM( period_chr ), 'uv'
           WRITE ( 16, 105 )  TRIM( simulated_time_chr )
-!          ELSE
-!             WRITE ( 16, 106 )  TRIM( simulated_time_chr ),           &
-!                                averaging_interval_pr, average_count_pr
-!          ENDIF
           WRITE ( 16, 111 )
 
@@ -155 +154 @@
                              TRIM( region( sr ) ), TRIM( period_chr ), 'w'
           WRITE ( 16, 105 )  TRIM( simulated_time_chr )
-!          ELSE
-!             WRITE ( 16, 106 )  TRIM( simulated_time_chr ),           &
-!                                averaging_interval_pr, average_count_pr
-!          ENDIF
           WRITE ( 16, 111 )
 
@@ -184 +179 @@
             ' Horizontally',A,' averaged profiles on the ',A,'-level')
 105 FORMAT (' Time: ',A)
-106 FORMAT (' Time: ',A,18X,'averaged over',F7.1,' s (',I4, &
-            ' Single times)')
 111 FORMAT (1X,131('-'))
 112 FORMAT (/)