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

    r1319 r1320  
    1616!
    1717! Copyright 1997-2014 Leibniz Universitaet Hannover
    18 !--------------------------------------------------------------------------------!
     18!------------------------------------------------------------------------------!
    1919!
    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! old module precision_kind is removed,
     26! revision history before 2012 removed,
     27! comment fields (!:) to be used for variable explanations added to
     28! all variable declaration statements
    2329!
    2430! Former revisions:
     
    2632! $Id$
    2733!
    28 ! 1318 2014-03-17 13:35:16Z raasch
    29 ! module interfaces removed
    30 !
    3134! 1036 2012-10-22 13:43:42Z raasch
    3235! code put under GPL (PALM 3.9)
    33 !
    34 ! 555 2010-09-07 07:32:53Z raasch
    35 ! Bugfix in if statement
    36 !
    37 ! RCS Log replace by Id keyword, revision history cleaned up
    38 !
    39 ! Revision 1.7  2006/08/04 14:35:07  raasch
    40 ! Additional parameter in function random_gauss which limits the range of the
    41 ! created random numbers, izuf renamed iran
    4236!
    4337! Revision 1.1  1998/03/25 20:03:47  raasch
     
    5448!------------------------------------------------------------------------------!
    5549
    56     USE arrays_3d
    57     USE control_parameters
    58     USE cpulog
    59     USE grid_variables
    60     USE indices
     50    USE arrays_3d,                                                             &
     51        ONLY:  shf
     52       
     53    USE control_parameters,                                                    &
     54        ONLY:  iran, surface_heatflux, wall_heatflux
     55       
     56    USE cpulog,                                                                &
     57        ONLY:  cpu_log, log_point
     58       
     59    USE kinds
     60   
     61    USE indices,                                                               &
     62        ONLY:  nx, nxl, nxr, ny, nyn, nys, nzb_s_inner
    6163
    6264    IMPLICIT NONE
    6365
    64     INTEGER ::  i, j
    65     REAL    ::  random_gauss, randomnumber
     66    INTEGER(iwp) ::  j  !:
     67    INTEGER(iwp) ::  i  !:
     68   
     69    REAL(wp) ::  random_gauss  !:
     70    REAL(wp) ::  randomnumber  !:
    6671
    6772
     
    7378       DO  j = 0, ny
    7479          randomnumber = random_gauss( iran, 5.0 )
    75           IF ( nxl <= i  .AND.  nxr >= i  .AND.  nys <= j  .AND.  nyn >= j ) &
     80          IF ( nxl <= i  .AND.  nxr >= i  .AND.  nys <= j  .AND.  nyn >= j )   &
    7681          THEN
    7782             IF ( nzb_s_inner(j,i) == 0 )  THEN
Note: See TracChangeset for help on using the changeset viewer.