Ignore:
Timestamp:
Mar 20, 2014 8:40:49 AM (7 years ago)
Author:
raasch
Message:

ONLY-attribute added to USE-statements,
kind-parameters added to all INTEGER and REAL declaration statements,
kinds are defined in new module kinds,
old module precision_kind is removed,
revision history before 2012 removed,
comment fields (!:) to be used for variable explanations added to all variable declaration statements

File:
1 edited

Legend:

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

    r1310 r1320  
    2020! Current revisions:
    2121! -----------------
     22! kind-parameters added to all INTEGER and REAL declaration statements,
     23! kinds are defined in new module kinds,
     24! old module precision_kind is removed,
     25! revision history before 2012 removed,
     26! comment fields (!:) to be used for variable explanations added to
     27! all variable declaration statements
    2228
    2329!
     
    2834! 1036 2012-10-22 13:43:42Z raasch
    2935! code put under GPL (PALM 3.9)
    30 !
    31 ! 274 2009-03-26 15:11:21Z heinze
    32 ! Output of messages replaced by message handling routine.
    3336!
    3437! 211 2008-11-11 04:46:24Z raasch
     
    4346
    4447    USE arrays_3d
     48   
    4549    USE control_parameters
     50   
    4651    USE indices
     52   
     53    USE kinds
     54   
    4755    USE spectrum
     56   
    4857    USE statistics
     58   
    4959    USE user
    5060
     
    5363    CHARACTER (LEN=*) ::  mode
    5464
    55     INTEGER ::  i, j, k, m, pr
     65    INTEGER(iwp) ::  i    !:
     66    INTEGER(iwp) ::  j    !:
     67    INTEGER(iwp) ::  k    !:
     68    INTEGER(iwp) ::  m    !:
     69    INTEGER(iwp) ::  pr   !:
    5670
    5771
     
    7589       
    7690          CASE DEFAULT
    77              message_string = 'Spectra of ' // &
     91             message_string = 'Spectra of ' //                                 &
    7892                         TRIM( data_output_sp(m) ) // ' can not be calculated'
    7993             CALL message( 'user_spectra', 'UI0010', 0, 0, 0, 6, 0 )
     
    93107
    94108          CASE DEFAULT
    95              message_string = 'Spectra of ' //  &
     109             message_string = 'Spectra of ' //                                 &
    96110                              TRIM( data_output_sp(m) ) // ' are not defined'
    97111             CALL message( 'user_spectra', 'UI0011', 0, 0, 0, 6, 0 )
Note: See TracChangeset for help on using the changeset viewer.