Changeset 2696 for palm/trunk/SOURCE/pmc_handle_communicator_mod.f90
- Timestamp:
- Dec 14, 2017 5:12:51 PM (6 years ago)
- Location:
- palm/trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk
-
palm/trunk/SOURCE
-
palm/trunk/SOURCE/pmc_handle_communicator_mod.f90
r2599 r2696 1 MODULE PMC_handle_communicator 2 1 !> @file pmc_handle_communicator_mod.f90 3 2 !------------------------------------------------------------------------------! 4 ! This file is part of PALM.3 ! This file is part of the PALM model system. 5 4 ! 6 5 ! PALM is free software: you can redistribute it and/or modify it under the … … 26 25 ! ----------------- 27 26 ! $Id$ 27 ! Bugfix, give Intent(inout) attributes in routine reading nestpar-namelist (MS) 28 ! 29 ! 2599 2017-11-01 13:18:45Z hellstea 28 30 ! Separate peer communicator peer_comm introduced for MPI_INTERCOMM_CREATE. 29 31 ! Some cleanup and commenting improvements. … … 99 101 ! Handle MPI communicator in PALM model coupler 100 102 !-------------------------------------------------------------------------------! 101 103 MODULE PMC_handle_communicator 102 104 #if defined( __parallel ) 103 105 USE kinds … … 168 170 169 171 SUBROUTINE pmc_init_model( comm, nesting_datatransfer_mode, nesting_mode, & 170 172 pmc_status ) 171 173 172 174 USE control_parameters, & … … 178 180 IMPLICIT NONE 179 181 180 CHARACTER(LEN=8), INTENT( OUT) :: nesting_mode !<181 CHARACTER(LEN=7), INTENT( OUT) :: nesting_datatransfer_mode !<182 183 INTEGER, INTENT( OUT) :: comm !<184 INTEGER, INTENT( OUT) :: pmc_status !<182 CHARACTER(LEN=8), INTENT(INOUT) :: nesting_mode !< 183 CHARACTER(LEN=7), INTENT(INOUT) :: nesting_datatransfer_mode !< 184 185 INTEGER, INTENT(INOUT) :: comm !< 186 INTEGER, INTENT(INOUT) :: pmc_status !< 185 187 186 188 INTEGER :: childcount !<
Note: See TracChangeset
for help on using the changeset viewer.