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_rankine.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! revision history before 2012 removed,
     26! comment fields (!:) to be used for variable explanations added to
     27! all variable declaration statements
    2228!
    2329! Former revisions:
     
    2733! 1036 2012-10-22 13:43:42Z raasch
    2834! 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 ! Calls of exchange_horiz are modified.
    33 !
    34 ! 107 2007-08-17 13:54:45Z raasch
    35 ! Initial profiles are reset to constant profiles
    36 !
    37 ! 75 2007-03-22 09:54:05Z raasch
    38 ! uxrp, vynp eliminated, 2nd+3rd argument removed from exchange horiz
    39 !
    40 ! RCS Log replace by Id keyword, revision history cleaned up
    41 !
    42 ! Revision 1.11  2005/03/26 20:38:49  raasch
    43 ! Arguments for non-cyclic boundary conditions added to argument list of
    44 ! routine exchange_horiz
    4535!
    4636! Revision 1.1  1997/08/11 06:18:43  raasch
     
    5444!------------------------------------------------------------------------------!
    5545
    56     USE arrays_3d
    57     USE constants
    58     USE grid_variables
    59     USE indices
    60     USE control_parameters
     46    USE arrays_3d,                                                             &
     47        ONLY:  pt, pt_init, u, u_init, v, v_init
     48
     49    USE control_parameters,                                                    &
     50        ONLY:  initializing_actions, n_sor, nsor, nsor_ini   
     51
     52    USE constants,                                                             &
     53        ONLY:  pi
     54
     55    USE grid_variables,                                                        &
     56        ONLY:  dx, dy
     57
     58    USE indices,                                                               &
     59        ONLY:  nbgp, nx, nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt     
     60               
     61    USE kinds
    6162
    6263    IMPLICIT NONE
    6364
    64     INTEGER ::  i, ic, j, jc, k, kc1, kc2
    65     REAL    ::  alpha, betrag, radius, rc, uw, vw, x, y
     65    INTEGER(iwp) ::  i   !:
     66    INTEGER(iwp) ::  ic  !:
     67    INTEGER(iwp) ::  j   !:
     68    INTEGER(iwp) ::  jc  !:
     69    INTEGER(iwp) ::  k   !:
     70    INTEGER(iwp) ::  kc1 !:
     71    INTEGER(iwp) ::  kc2 !:
     72   
     73    REAL(wp)     ::  alpha  !:
     74    REAL(wp)     ::  betrag !:
     75    REAL(wp)     ::  radius !:
     76    REAL(wp)     ::  rc     !:
     77    REAL(wp)     ::  uw     !:
     78    REAL(wp)     ::  vw     !:
     79    REAL(wp)     ::  x      !:
     80    REAL(wp)     ::  y      !:
    6681
    6782!
Note: See TracChangeset for help on using the changeset viewer.