Ignore:
Timestamp:
Sep 12, 2018 3:02:00 PM (3 years ago)
Author:
raasch
Message:

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

File:
1 edited

Legend:

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

    r2718 r3241  
    2525! -----------------
    2626! $Id$
     27! unused format statement removed
     28!
     29! 2718 2018-01-02 08:49:38Z maronga
    2730! Corrected "Former revisions" section
    2831!
     
    125128                             TRIM( region( sr ) ), TRIM( period_chr ), 'uv'
    126129          WRITE ( 16, 105 )  TRIM( simulated_time_chr )
    127 !          ELSE
    128 !             WRITE ( 16, 106 )  TRIM( simulated_time_chr ),           &
    129 !                                averaging_interval_pr, average_count_pr
    130 !          ENDIF
    131130          WRITE ( 16, 111 )
    132131
     
    155154                             TRIM( region( sr ) ), TRIM( period_chr ), 'w'
    156155          WRITE ( 16, 105 )  TRIM( simulated_time_chr )
    157 !          ELSE
    158 !             WRITE ( 16, 106 )  TRIM( simulated_time_chr ),           &
    159 !                                averaging_interval_pr, average_count_pr
    160 !          ENDIF
    161156          WRITE ( 16, 111 )
    162157
     
    184179            ' Horizontally',A,' averaged profiles on the ',A,'-level')
    185180105 FORMAT (' Time: ',A)
    186 106 FORMAT (' Time: ',A,18X,'averaged over',F7.1,' s (',I4, &
    187             ' Single times)')
    188181111 FORMAT (1X,131('-'))
    189182112 FORMAT (/)
Note: See TracChangeset for help on using the changeset viewer.