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/palm.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:
     
    5965! 849 2012-03-15 10:35:09Z raasch
    6066! write_particles renamed lpm_write_restart_file
    61 !
    62 ! 759 2011-09-15 13:58:31Z raasch
    63 ! Splitting of parallel I/O, cpu measurement for write_3d_binary and opening
    64 ! of unit 14 moved to here
    65 !
    66 ! 495 2010-03-02 00:40:15Z raasch
    67 ! Particle data for restart runs are only written if write_binary=.T..
    68 !
    69 ! 215 2008-11-18 09:54:31Z raasch
    70 ! Initialization of coupled runs modified for MPI-1 and moved to external
    71 ! subroutine init_coupling
    72 !
    73 ! 197 2008-09-16 15:29:03Z raasch
    74 ! Workaround for getting information about the coupling mode
    75 !
    76 ! 108 2007-08-24 15:10:38Z letzel
    77 ! Get coupling mode from environment variable, change location of debug output
    78 !
    79 ! 75 2007-03-22 09:54:05Z raasch
    80 ! __vtk directives removed, write_particles is called only in case of particle
    81 ! advection switched on, open unit 9 for debug output,
    82 ! setting of palm version moved from modules to here
    83 !
    84 ! RCS Log replace by Id keyword, revision history cleaned up
    85 !
    86 ! Revision 1.10  2006/08/04 14:53:12  raasch
    87 ! Distibution of run description header removed, call of header moved behind
    88 ! init_3d_model
    89 !
    90 ! Revision 1.2  2001/01/25 07:15:06  raasch
    91 ! Program name changed to PALM, module test_variables removed.
    92 ! Initialization of dvrp logging as well as exit of dvrp moved to new
    93 ! subroutines init_dvrp_logging and close_dvrp (file init_dvrp.f90)
    9467!
    9568! Revision 1.1  1997/07/24 11:23:35  raasch
     
    10881
    10982
    110     USE arrays_3d
    111     USE constants
    112     USE control_parameters
    113     USE cpulog
    114     USE dvrp_variables
    115     USE grid_variables
    116     USE indices
    117     USE ls_forcing_mod
    118     USE model_1d
    119     USE nudge_mod
    120     USE particle_attributes
     83    USE control_parameters,                                                    &
     84        ONLY:  coupling_char, coupling_mode, do2d_at_begin, do3d_at_begin,     &
     85               io_blocks, io_group, large_scale_forcing, nudging,              &
     86               simulated_time, simulated_time_chr, version, write_binary
     87
     88    USE cpulog,                                                                &
     89        ONLY:  cpu_log, log_point, cpu_statistics
     90
     91    USE kinds
     92
     93    USE ls_forcing_mod,                                                        &
     94        ONLY:  init_ls_forcing
     95
     96    USE nudge_mod,                                                             &
     97        ONLY:  init_nudge
     98
     99    USE particle_attributes,                                                   &
     100        ONLY:  particle_advection
     101
    121102    USE pegrid
    122     USE spectrum
    123     USE statistics
    124103
    125104#if defined( __openacc )
     
    131110!
    132111!-- Local variables
    133     CHARACTER (LEN=9) ::  time_to_string
    134     INTEGER           ::  i
     112    CHARACTER(LEN=9) ::  time_to_string  !:
     113    INTEGER(iwp)     ::  i               !:
    135114#if defined( __openacc )
    136     REAL, DIMENSION(100) ::  acc_dum
     115    REAL(wp), DIMENSION(100) ::  acc_dum     !:
    137116#endif
    138117
Note: See TracChangeset for help on using the changeset viewer.