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_actions.f90

    r1319 r1320  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! kind-parameters added to all INTEGER and REAL declaration statements,
     23! kinds are defined in new module kinds,
     24! revision history before 2012 removed,
     25! comment fields (!:) to be used for variable explanations added to
     26! all variable declaration statements
    2327!
    2428! Former revisions:
     
    3438! 1036 2012-10-22 13:43:42Z raasch
    3539! code put under GPL (PALM 3.9)
    36 !
    37 ! 667 2010-12-23 12:06:00Z suehring/gryschka
    38 ! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    39 !
    40 ! 258 2009-03-13 12:36:03Z heinze
    41 ! Output of messages replaced by message handling routine.
    4240!
    4341! 211 2008-11-11 04:46:24Z raasch
     
    6664
    6765       USE control_parameters
     66
    6867       USE cpulog
     68
    6969       USE indices
     70
     71       USE kinds
     72
    7073       USE pegrid
     74
    7175       USE user
     76
    7277       USE arrays_3d
    7378
    7479       IMPLICIT NONE
    7580
    76        CHARACTER (LEN=*) ::  location
    77 
    78        INTEGER ::  i, j, k
     81       CHARACTER (LEN=*) ::  location !:
     82
     83       INTEGER(iwp) ::  i !:
     84       INTEGER(iwp) ::  j !:
     85       INTEGER(iwp) ::  k !:
    7986
    8087       CALL cpu_log( log_point(24), 'user_actions', 'start' )
     
    165172
    166173       USE control_parameters
     174       USE kinds
    167175       USE pegrid
    168176       USE user
     
    172180       CHARACTER (LEN=*) ::  location
    173181
    174        INTEGER ::  i, idum, j
    175 
     182       INTEGER(iwp) ::  i
     183       INTEGER(iwp) ::  idum
     184       INTEGER(iwp) ::  j
    176185
    177186!
Note: See TracChangeset for help on using the changeset viewer.