Default-initialize MCTWorld pointers.

MCSclimate · Aug 25, 2014 · 7bdd316 · 7bdd316
1 parent 900b2f8
commit 7bdd316
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/mct/m_MCTWorld.F90 b/mct/m_MCTWorld.F90
@@ -35,10 +35,10 @@ module m_MCTWorld
       integer :: ncomps	                           ! Total number of components
       integer :: mygrank                           ! Rank of this processor in 
                                                    ! global communicator.
-      integer,dimension(:),pointer :: nprocspid	   ! Number of processes 
+      integer,dimension(:),pointer :: nprocspid => null()   ! Number of processes
                                                    ! each component is on (e.g. rank of its
 						   ! local communicator.
-      integer,dimension(:,:),pointer :: idGprocid  ! Translate between local component rank
+      integer,dimension(:,:),pointer :: idGprocid => null() ! Translate between local component rank
                                                    ! rank in global communicator.
 						   ! idGprocid(modelid,localrank)=globalrank
     end type MCTWorld