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

    r1310 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:
     
    2834! 1036 2012-10-22 13:43:42Z raasch
    2935! code put under GPL (PALM 3.9)
    30 !
    31 ! 709 2011-03-30 09:31:40Z raasch
    32 ! formatting adjustments
    33 !
    34 ! 691 2011-03-04 08:45:30Z maronga
    35 ! Bugfix: combine_plot_fields did not work with data_output_2d_on_each_pe = .T.
    36 ! for precursor ocean runs
    37 !
    38 ! 667 2010-12-23 12:06:00Z suehring/gryschka
    39 ! determination of target_id's moved to init_pegrid
    40 !
    41 ! 291 2009-04-16 12:07:26Z raasch
    42 ! Coupling with independent precursor runs.
    4336!
    4437! 222 2009-01-12 16:04:16Z letzel
     
    5144!------------------------------------------------------------------------------!
    5245
     46    USE control_parameters,                                                    &
     47        ONLY:  coupling_char, coupling_mode
     48       
     49    USE kinds
     50   
    5351    USE pegrid
    54     USE control_parameters
    55     USE indices
    5652
    5753    IMPLICIT NONE
     
    5955!
    6056!-- Local variables
    61     INTEGER               ::  i, inter_color
    62     INTEGER, DIMENSION(:) ::  bc_data(0:3) = 0
     57    INTEGER(iwp) ::  i            !:
     58    INTEGER(iwp) ::  inter_color  !:
     59   
     60    INTEGER(iwp), DIMENSION(:) ::  bc_data(0:3) = 0  !:
    6361
    6462!
Note: See TracChangeset for help on using the changeset viewer.