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_init_grid.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 ! 258 2009-03-13 12:36:03Z heinze
    32 ! Output of messages replaced by message handling routine.
    33 ! add 'single_street_canyon' as standard topography case
    34 ! -topography_grid_convention
    3536!
    3637! 217 2008-12-09 18:00:48Z letzel
     
    4647
    4748    USE control_parameters
     49   
    4850    USE indices
     51   
     52    USE kinds
     53   
    4954    USE user
    5055
    5156    IMPLICIT NONE
    5257
    53     INTEGER ::  gls
     58    INTEGER(iwp) ::  gls   !:
    5459
    55     INTEGER, DIMENSION(-gls:ny+gls,-gls:nx+gls) ::  nzb_local
     60    INTEGER(iwp),                                                              &
     61       DIMENSION(-gls:ny+gls,-gls:nx+gls) ::                                   &
     62          nzb_local   !:
    5663
    5764!
Note: See TracChangeset for help on using the changeset viewer.