Ignore:
Timestamp:
Mar 20, 2014 8:40:49 AM (7 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/data_output_profiles.f90

    r1319 r1320  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! ONLY-attribute added to USE-statements,
     23! kind-parameters added to all INTEGER 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:
     
    4247! 964 2012-07-26 09:14:24Z raasch
    4348! code for profil-output removed
    44 !
    45 ! 345 2009-07-01 14:37:56Z heinze
    46 ! In case of restart runs without extension, initial profiles are not written
    47 ! to NetCDF-file anymore.
    48 ! simulated_time in NetCDF output replaced by time_since_reference_point.
    49 ! Output of NetCDF messages with aid of message handling routine.
    50 ! Output of messages replaced by message handling routine.
    51 !
    52 ! 197 2008-09-16 15:29:03Z raasch
    53 ! Time coordinate t=0 stored on netcdf-file only if an output is required for
    54 ! this time for at least one of the profiles
    55 !
    56 ! February 2007
    57 ! RCS Log replace by Id keyword, revision history cleaned up
    58 !
    59 ! 87 2007-05-22 15:46:47Z raasch
    60 ! var_hom renamed pr_palm
    61 !
    62 ! Revision 1.18  2006/08/16 14:27:04  raasch
    63 ! PRINT* statements for testing removed
    6449!
    6550! Revision 1.1  1997/09/12 06:28:48  raasch
     
    7257!------------------------------------------------------------------------------!
    7358
    74     USE control_parameters
    75     USE cpulog
    76     USE indices
     59    USE control_parameters,                                                    &
     60        ONLY:  average_count_pr, averaging_interval_pr, coupling_start_time,   &
     61               dopr_n, dopr_time_count, netcdf_output, normalizing_region,     &
     62               time_since_reference_point
     63
     64    USE cpulog,                                                                &
     65        ONLY:  cpu_log, log_point
     66
     67    USE indices,                                                               &
     68        ONLY:  nzb, nzt
     69
     70    USE kinds
     71
    7772    USE netcdf_control
     73
    7874    USE pegrid
     75
    7976    USE profil_parameter
    80     USE statistics
     77
     78    USE statistics,                                                            &
     79        ONLY:  flow_statistics_called, hom, hom_sum, pr_palm, statistic_regions
    8180
    8281    IMPLICIT NONE
    8382
    8483
    85     INTEGER ::  i, sr
     84    INTEGER(iwp) ::  i  !:
     85    INTEGER(iwp) ::  sr !:
    8686
    8787!
Note: See TracChangeset for help on using the changeset viewer.