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_slope.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 !
    33 ! 622 2010-12-10 08:08:13Z raasch
    34 ! optional barriers included in order to speed up collective operations
    35 !
    36 ! Feb. 2007
    37 ! RCS Log replace by Id keyword, revision history cleaned up
    38 !
    39 ! Revision 1.5  2006/02/23 12:35:34  raasch
    40 ! nanz_2dh renamed ngp_2dh
    4135!
    4236! Revision 1.1  2000/04/27 07:06:24  raasch
     
    5246!------------------------------------------------------------------------------!
    5347
    54     USE arrays_3d
    55     USE constants
    56     USE grid_variables
    57     USE indices
     48    USE arrays_3d,                                                             &
     49        ONLY:  pt, pt_init, pt_slope_ref, zu
     50       
     51    USE constants,                                                             &
     52        ONLY:  pi
     53                   
     54    USE control_parameters,                                                    &
     55        ONLY:  alpha_surface, initializing_actions, pt_slope_offset,           &
     56               pt_surface, pt_vertical_gradient, sin_alpha_surface
     57       
     58    USE grid_variables,                                                        &
     59        ONLY:  dx
     60       
     61    USE indices,                                                               &
     62        ONLY:  ngp_2dh, nx, nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt
     63       
     64    USE kinds
     65
    5866    USE pegrid
    59     USE control_parameters
     67
    6068
    6169    IMPLICIT NONE
    6270
    63     INTEGER ::  i, j, k
    64     REAL    ::  alpha, height, pt_value, radius
    65     REAL, DIMENSION(:), ALLOCATABLE ::  pt_init_local
     71    INTEGER(iwp) ::  i        !:
     72    INTEGER(iwp) ::  j        !:
     73    INTEGER(iwp) ::  k        !:
     74   
     75    REAL(wp)     ::  alpha    !:
     76    REAL(wp)     ::  height   !:
     77    REAL(wp)     ::  pt_value !:
     78    REAL(wp)     ::  radius   !:
     79   
     80    REAL(wp), DIMENSION(:), ALLOCATABLE ::  pt_init_local !:
    6681
    6782!
Note: See TracChangeset for help on using the changeset viewer.