Ignore:
Timestamp:
Apr 7, 2016 2:23:03 PM (5 years ago)
Author:
raasch
Message:

spectrum renamed spactra_par and further modularized, POINTER-attributes added in coupler-routines to avoid gfortran error messages

File:
1 edited

Legend:

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

    r1832 r1833  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! spectrum renamed spectra_mod, output of spectra related quantities moved to
     22! spectra_mod
    2223!
    2324! Former revisions:
     
    310311        ONLY:  radiation, radiation_header
    311312   
    312     USE spectrum,                                                              &
    313         ONLY:  comp_spectra_level, data_output_sp, plot_spectra_level,         &
    314                spectra_direction
     313    USE spectra_mod,                                                           &
     314        ONLY:  calculate_spectra, spectra_header
    315315
    316316    IMPLICIT NONE
     
    16311631
    16321632!
    1633 !-- Spectra output
    1634     IF ( dt_dosp /= 9999999.9_wp )  THEN
    1635        WRITE ( io, 370 )
    1636 
    1637        output_format = netcdf_data_format_string
    1638        IF ( netcdf_deflate == 0 )  THEN
    1639           WRITE ( io, 344 )  output_format
    1640        ELSE
    1641           WRITE ( io, 354 )  TRIM( output_format ), netcdf_deflate
    1642        ENDIF
    1643        WRITE ( io, 371 )  dt_dosp
    1644        IF ( skip_time_dosp /= 0.0_wp )  WRITE ( io, 339 )  skip_time_dosp
    1645        WRITE ( io, 372 )  ( data_output_sp(i), i = 1,10 ),     &
    1646                           ( spectra_direction(i), i = 1,10 ),  &
    1647                           ( comp_spectra_level(i), i = 1,100 ), &
    1648                           ( plot_spectra_level(i), i = 1,100 ), &
    1649                           averaging_interval_sp, dt_averaging_input_pr
    1650     ENDIF
     1633!-- Output of spectra related quantities
     1634    IF ( calculate_spectra )  CALL spectra_header( io )
    16511635
    16521636    WRITE ( io, 99 )
     
    20892073367 FORMAT ('       Polygon reduction for topography: cluster_size = ', I1)
    20902074#endif
    2091 370 FORMAT ('    Spectra:')
    2092 371 FORMAT ('       Output every ',F7.1,' s'/)
    2093 372 FORMAT ('       Arrays:     ', 10(A5,',')/                         &
    2094             '       Directions: ', 10(A5,',')/                         &
    2095             '       height levels  k = ', 20(I3,',')/                  &
    2096             '                          ', 20(I3,',')/                  &
    2097             '                          ', 20(I3,',')/                  &
    2098             '                          ', 20(I3,',')/                  &
    2099             '                          ', 19(I3,','),I3,'.'/           &
    2100             '       height levels selected for standard plot:'/        &
    2101             '                      k = ', 20(I3,',')/                  &
    2102             '                          ', 20(I3,',')/                  &
    2103             '                          ', 20(I3,',')/                  &
    2104             '                          ', 20(I3,',')/                  &
    2105             '                          ', 19(I3,','),I3,'.'/           &
    2106             '       Time averaged over ', F7.1, ' s,' /                &
    2107             '       Profiles for the time averaging are taken every ', &
    2108                     F6.1,' s')
    21092075400 FORMAT (//' Physical quantities:'/ &
    21102076              ' -------------------'/)
Note: See TracChangeset for help on using the changeset viewer.