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/data_output_tseries.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:
     
    3641! code put under GPL (PALM 3.9)
    3742!
    38 ! 291 2009-04-16 12:07:26Z raasch
    39 ! simulated_time in NetCDF output replaced by time_since_reference_point.
    40 ! Output of NetCDF messages with aid of message handling routine.
    41 !
    42 ! 48 2007-03-06 12:28:36Z raasch
    43 ! Collection of time series quantities moved to routine flow_statistics,
    44 ! output for "profil" removed
    45 !
    46 ! RCS Log replace by Id keyword, revision history cleaned up
    47 !
    48 ! Revision 1.13  2006/03/14 12:42:51  raasch
    49 ! Error removed: NetCDF output only if switched on
    50 !
    5143! Revision 1.1  1998/03/03 08:00:13  raasch
    5244! Initial revision
     
    5951!------------------------------------------------------------------------------!
    6052
    61     USE control_parameters
    62     USE cpulog
    63     USE indices
     53    USE control_parameters,                                                    &
     54        ONLY:  dots_time_count, netcdf_output, time_since_reference_point
     55
     56    USE cpulog,                                                                &
     57        ONLY:  cpu_log, log_point 
     58
     59    USE kinds
     60
    6461    USE netcdf_control
     62
    6563    USE pegrid
     64
    6665    USE profil_parameter
    67     USE statistics
     66   
     67    USE statistics,                                                            &
     68        ONLY:  flow_statistics_called, statistic_regions, ts_value
    6869
    6970    IMPLICIT NONE
    7071
    7172
    72     INTEGER ::  i, sr
     73    INTEGER(iwp) ::  i  !:
     74    INTEGER(iwp) ::  sr !:
    7375
    7476
Note: See TracChangeset for help on using the changeset viewer.