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/init_pt_anomaly.f90

    r1310 r1320  
    2020! Current revisions:
    2121! -----------------
    22 !
     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! revision history before 2012 removed,
     26! comment fields (!:) to be used for variable explanations added to
     27! all variable declaration statements
    2328!
    2429! Former revisions:
     
    3237! Modification of the amplitude to obtain a visible temperature perturbation.
    3338!
    34 ! 667 2010-12-23 12:06:00Z suehring/gryschka
    35 ! Call of exchange_horiz are modified.
    36 !
    37 ! 75 2007-03-22 09:54:05Z raasch
    38 ! 2nd+3rd argument removed from exchange horiz
    39 !
    40 ! 19 2007-02-23 04:53:48Z raasch
    41 ! Calculation extended for gridpoint nzt
    42 !
    43 ! RCS Log replace by Id keyword, revision history cleaned up
    44 !
    45 ! Revision 1.7  2005/03/26 20:36:55  raasch
    46 ! Arguments for non-cyclic boundary conditions added to argument list of
    47 ! routine exchange_horiz
    48 !
    4939! Revision 1.1  1997/08/29 08:58:56  raasch
    5040! Initial revision
     
    5646!------------------------------------------------------------------------------!
    5747
    58     USE arrays_3d
    59     USE constants
    60     USE grid_variables
    61     USE indices
    62     USE control_parameters
     48    USE arrays_3d,                                                             &
     49        ONLY:  pt, zu
     50
     51    USE grid_variables,                                                        &
     52        ONLY:  dx, dy
     53
     54    USE indices,                                                               &
     55        ONLY:  nbgp, nx, nxl, nxr, nyn, nys, nzb, nzt
     56       
     57    USE kinds
    6358
    6459    IMPLICIT NONE
    6560
    66     INTEGER ::  i, ic, j, jc, k, kc
    67     REAL    ::  betrag, radius, rc, x, y, z
    68 
     61    INTEGER(iwp) ::  i  !:
     62    INTEGER(iwp) ::  ic !:
     63    INTEGER(iwp) ::  j  !:
     64    INTEGER(iwp) ::  jc !:
     65    INTEGER(iwp) ::  k  !:
     66    INTEGER(iwp) ::  kc !:
     67   
     68    REAL(wp)     ::  betrag !:
     69    REAL(wp)     ::  radius !:
     70    REAL(wp)     ::  rc     !:
     71    REAL(wp)     ::  x      !:
     72    REAL(wp)     ::  y      !:
     73    REAL(wp)     ::  z      !:
     74   
    6975!
    7076!-- Defaults: radius rc, strength z,
Note: See TracChangeset for help on using the changeset viewer.