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/print_1d.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! 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:
     
    3541! RCS Log replace by Id keyword, revision history cleaned up
    3642!
    37 ! Revision 1.11  2006/02/23 12:50:43  raasch
    38 ! Preliminary no output of time-averaged data
    39 !
    4043! Revision 1.1  1997/09/19 07:45:22  raasch
    4144! Initial revision
     
    4750!------------------------------------------------------------------------------!
    4851
    49     USE arrays_3d
    50     USE control_parameters
    51     USE cpulog
    52     USE indices
     52    USE arrays_3d,                                                             &
     53        ONLY:  zu, zw
     54
     55    USE control_parameters,                                                    &
     56        ONLY:  run_description_header, simulated_time_chr
     57
     58    USE cpulog,                                                                &
     59        ONLY:  cpu_log, log_point
     60
     61    USE indices,                                                               &
     62        ONLY:  nzb, nzt
     63
     64    USE kinds
     65
    5366    USE pegrid
    54     USE statistics
     67
     68    USE statistics,                                                            &
     69        ONLY:  flow_statistics_called, hom, region, statistic_regions
    5570
    5671    IMPLICIT NONE
    5772
    5873
    59     CHARACTER (LEN=20) ::  period_chr
    60     INTEGER ::  k, sr
     74    CHARACTER (LEN=20) ::  period_chr  !:
     75
     76    INTEGER(iwp) ::  k   !:
     77    INTEGER(iwp) ::  sr  !:
    6178
    6279
Note: See TracChangeset for help on using the changeset viewer.