Changeset 1682 for palm/trunk/SOURCE/init_coupling.f90
- Timestamp:
- Oct 7, 2015 11:56:08 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_coupling.f90
r1321 r1682 1 SUBROUTINE init_coupling 2 1 !> @file init_coupling.f90 3 2 !--------------------------------------------------------------------------------! 4 3 ! This file is part of PALM. … … 20 19 ! Current revisions: 21 20 ! ----------------- 22 ! 21 ! Code annotations made doxygen readable 23 22 ! 24 23 ! Former revisions: … … 42 41 ! Description: 43 42 ! ------------ 44 ! Initializing coupling via MPI-1 or MPI-2 if the coupled version of PALM is45 ! called.43 !> Initializing coupling via MPI-1 or MPI-2 if the coupled version of PALM is 44 !> called. 46 45 !------------------------------------------------------------------------------! 46 SUBROUTINE init_coupling 47 47 48 48 49 USE control_parameters, & … … 57 58 ! 58 59 !-- Local variables 59 INTEGER(iwp) :: i ! :60 INTEGER(iwp) :: inter_color ! :60 INTEGER(iwp) :: i !< 61 INTEGER(iwp) :: inter_color !< 61 62 62 INTEGER(iwp), DIMENSION(:) :: bc_data(0:3) = 0 ! :63 INTEGER(iwp), DIMENSION(:) :: bc_data(0:3) = 0 !< 63 64 64 65 !
Note: See TracChangeset
for help on using the changeset viewer.