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

    r1319 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:
     
    4146! 978 2012-08-09 08:28:32Z fricke
    4247! +z0h_av
    43 !
    44 ! 771 2011-10-27 10:56:21Z heinze
    45 ! +lpt_av
    46 !
    47 ! 667 2010-12-23 12:06:00Z suehring/gryschka
    48 ! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    49 !
    50 ! 367 2009-08-25 08:35:52Z maronga
    51 ! Added calculation of shf* and qsws*
    52 !
    53 ! 96 2007-06-04 08:07:41Z raasch
    54 ! Averaging of density and salinity
    55 !
    56 ! 72 2007-03-19 08:20:46Z raasch
    57 ! Averaging the precipitation rate and roughness length (prr*, z0*)
    58 !
    59 ! RCS Log replace by Id keyword, revision history cleaned up
    6048!
    6149! Revision 1.1  2006/02/23 09:48:58  raasch
     
    6856!------------------------------------------------------------------------------!
    6957
    70     USE arrays_3d
    7158    USE averaging
    72     USE cloud_parameters
    73     USE control_parameters
    74     USE cpulog
    75     USE indices
     59
     60    USE control_parameters,                                                    &
     61        ONLY:  average_count_3d, doav, doav_n
     62
     63    USE cpulog,                                                                &
     64        ONLY:  cpu_log, log_point
     65
     66    USE indices,                                                               &
     67        ONLY:  nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt
     68
     69    USE kinds
     70
    7671
    7772    IMPLICIT NONE
    7873
    79     INTEGER ::  i, ii, j, k
     74    INTEGER(iwp) ::  i  !:
     75    INTEGER(iwp) ::  ii !:
     76    INTEGER(iwp) ::  j  !:
     77    INTEGER(iwp) ::  k  !:
    8078
    8179
     
    165163             DO  i = nxlg, nxrg
    166164                DO  j = nysg, nyng
    167                    precipitation_rate_av(j,i) = precipitation_rate_av(j,i) / &
     165                   precipitation_rate_av(j,i) = precipitation_rate_av(j,i) /   &
    168166                                                REAL( average_count_3d )
    169167                ENDDO
     
    228226                DO  j = nysg, nyng
    229227                   DO  k = nzb, nzt+1
    230                       ql_vp_av(k,j,i) = ql_vp_av(k,j,i) / &
     228                      ql_vp_av(k,j,i) = ql_vp_av(k,j,i) /                      &
    231229                                        REAL( average_count_3d )
    232230                   ENDDO
Note: See TracChangeset for help on using the changeset viewer.