Ignore:
Timestamp:
Mar 20, 2014 8:40:49 AM (8 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_header.f90

    r1310 r1320  
    2020! Current revisions:
    2121! -----------------
     22! ONLY-attribute added to USE-statements,
     23! kind-parameters added to all INTEGER and REAL declaration statements,
     24! kinds are defined in new module kinds,
     25! old module precision_kind is removed,
     26! revision history before 2012 removed,
     27! comment fields (!:) to be used for variable explanations added to
     28! all variable declaration statements
    2229!
    2330!
     
    2835! 1036 2012-10-22 13:43:42Z raasch
    2936! code put under GPL (PALM 3.9)
    30 !
    31 ! 256 2009-03-08 08:56:27Z letzel
    32 ! new topography case 'single_street_canyon'
    33 ! topography_grid_convention moved to header
    3437!
    3538! 2008-12-09 18:00:48Z letzel
     
    4245!------------------------------------------------------------------------------!
    4346
    44     USE control_parameters
    45     USE statistics
     47    USE kinds
     48   
     49    USE statistics,                                                            &
     50        ONLY:  statistic_regions, region
     51       
    4652    USE user
    4753
    4854    IMPLICIT NONE
    4955
    50     INTEGER ::  i, io
     56    INTEGER(iwp) ::  i    !:
     57    INTEGER(iwp) ::  io   !:
    5158
    5259!
     
    7279!-- Format-descriptors
    7380100 FORMAT (//' *** no user-defined variables found'/)
    74 110 FORMAT (//1X,78('#')                                      &
    75             //' User-defined variables and actions:'/  &
     81110 FORMAT (//1X,78('#')                                                       &
     82            //' User-defined variables and actions:'/                          &
    7683              ' -----------------------------------'//)
    7784200 FORMAT (' Output of profiles and time series for following regions:' /)
Note: See TracChangeset for help on using the changeset viewer.