using MPI_COMM_NULL for initialisations

Author: antonl321

src/fiat/mpl/internal_deprecated/mpl_groups.F90

@@ -30,6 +30,7 @@ MODULE MPL_GROUPS
 
 USE MPL_DATA_MODULE, ONLY : MPL_COMM_OML
 USE MPL_MESSAGE_MOD, ONLY : MPL_MESSAGE
+USE MPL_MPIF,        ONLY : MPI_COMM_NULL
 
 IMPLICIT NONE
 PRIVATE
@@ -39,7 +40,7 @@ MODULE MPL_GROUPS
 INTEGER(KIND=JPIM) :: MPL_COMM_GRID, MPL_ALL_LEVS_COMM, MPL_ALL_MS_COMM, &
            & MPL_GP_GRID
 LOGICAL,SAVE :: LGROUPSETUP=.FALSE.
-INTEGER(KIND=JPIM),SAVE :: ICOMM_PARENT=-1_JPIM
+INTEGER(KIND=JPIM),SAVE :: ICOMM_PARENT=MPI_COMM_NULL
 CONTAINS
 ! ------------------------------------------------------------------
 

src/fiat/mpl/internal_f08/mpl_groups.F90

@@ -28,7 +28,7 @@ MODULE MPL_GROUPS
 
 USE EC_PARKIND  ,ONLY : JPIM
 
-USE MPL_MPI,         ONLY : MPI_COMM, MPI_GROUP
+USE MPL_MPI,         ONLY : MPI_COMM, MPI_GROUP, MPI_COMM_NULL
 USE MPL_DATA_MODULE, ONLY : MPL_COMM_OML
 USE MPL_MESSAGE_MOD, ONLY : MPL_MESSAGE
 
@@ -39,7 +39,7 @@ MODULE MPL_GROUPS
 
 INTEGER(KIND=JPIM) :: MPL_ALL_LEVS_COMM,MPL_ALL_MS_COMM
 LOGICAL,SAVE :: LGROUPSETUP=.FALSE.
-INTEGER(KIND=JPIM),SAVE :: ICOMM_PARENT=-1_JPIM
+INTEGER(KIND=JPIM),SAVE :: ICOMM_PARENT=MPI_COMM_NULL%MPI_VAL
 #ifdef _CRAYFTN
 INTEGER(KIND=JPIM) :: MPL_COMM_GRID, MPL_GP_GRID
 #else