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_plant_canopy.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
     28!
    2229!
    2330! Former revisions:
     
    2734! 1036 2012-10-22 13:43:42Z raasch
    2835! code put under GPL (PALM 3.9)
    29 !
    30 ! 667 2010-12-23 12:06:00Z suehring/gryschka
    31 ! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    32 !
    33 ! 274 2009-03-26 15:11:21Z heinze
    34 ! Output of messages replaced by message handling routine.
    3536!
    3637! 211 2008-11-11 04:46:24Z raasch
     
    4546
    4647    USE arrays_3d
     48   
    4749    USE control_parameters
     50   
    4851    USE indices
     52   
     53    USE kinds
     54   
    4955    USE user
    5056
    5157    IMPLICIT NONE
    5258
    53     INTEGER :: i, j
     59    INTEGER(iwp) :: i   !:
     60    INTEGER(iwp) :: j   !:
    5461
    5562!
Note: See TracChangeset for help on using the changeset viewer.