Symbol Description Uses
numprocs 75


File Line number Procedure Code
./pkg/compon_communic/couprecv_r4.F 22 COUPRECV_R4 
      integer compind,numprocs
./pkg/compon_communic/couprecv_r4.F 32 COUPRECV_R4 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/couprecv_r4.F 33 COUPRECV_R4 
      if (numprocs.lt.1) then
./pkg/compon_communic/couprecv_r4.F 43 COUPRECV_R4 
      do n=1,numprocs
./pkg/compon_communic/couprecv_r4.F 52 COUPRECV_R4 
     &    ' proc=',n,'/',numprocs
./pkg/compon_communic/couprecv_r4tiles.F 22 COUPRECV_R4TILES 
      integer compind,numprocs
./pkg/compon_communic/couprecv_r4tiles.F 32 COUPRECV_R4TILES 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/couprecv_r4tiles.F 33 COUPRECV_R4TILES 
      if (numprocs.lt.1) then
./pkg/compon_communic/couprecv_r4tiles.F 43 COUPRECV_R4TILES 
      do n=1,numprocs
./pkg/compon_communic/couprecv_r4tiles.F 57 COUPRECV_R4TILES 
     &    ' proc=',n,'/',numprocs,' tile=',bibj
./pkg/compon_communic/couprecv_r8.F 22 COUPRECV_R8 
      integer compind,numprocs
./pkg/compon_communic/couprecv_r8.F 32 COUPRECV_R8 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/couprecv_r8.F 33 COUPRECV_R8 
      if (numprocs.lt.1) then
./pkg/compon_communic/couprecv_r8.F 43 COUPRECV_R8 
      do n=1,numprocs
./pkg/compon_communic/couprecv_r8.F 52 COUPRECV_R8 
     &    ' proc=',n,'/',numprocs
./pkg/compon_communic/couprecv_r8tiles.F 22 COUPRECV_R8TILES 
      integer compind,numprocs
./pkg/compon_communic/couprecv_r8tiles.F 32 COUPRECV_R8TILES 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/couprecv_r8tiles.F 33 COUPRECV_R8TILES 
      if (numprocs.lt.1) then
./pkg/compon_communic/couprecv_r8tiles.F 43 COUPRECV_R8TILES 
      do n=1,numprocs
./pkg/compon_communic/couprecv_r8tiles.F 57 COUPRECV_R8TILES 
     &    ' proc=',n,'/',numprocs,' tile=',bibj
./pkg/compon_communic/coupsend_r4.F 21 COUPSEND_R4 
      integer compind,numprocs
./pkg/compon_communic/coupsend_r4.F 30 COUPSEND_R4 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/coupsend_r4.F 31 COUPSEND_R4 
      if (numprocs.lt.1) then
./pkg/compon_communic/coupsend_r4.F 41 COUPSEND_R4 
      do n=1,numprocs
./pkg/compon_communic/coupsend_r4.F 70 COUPSEND_R4 
     &    ' proc=',n,'/',numprocs
./pkg/compon_communic/coupsend_r4tiles.F 21 COUPSEND_R4TILES 
      integer compind,numprocs
./pkg/compon_communic/coupsend_r4tiles.F 30 COUPSEND_R4TILES 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/coupsend_r4tiles.F 31 COUPSEND_R4TILES 
      if (numprocs.lt.1) then
./pkg/compon_communic/coupsend_r4tiles.F 41 COUPSEND_R4TILES 
      do n=1,numprocs
./pkg/compon_communic/coupsend_r4tiles.F 73 COUPSEND_R4TILES 
     &     dest,' proc=',n,'/',numprocs,' tile=',bibj
./pkg/compon_communic/coupsend_r8.F 21 COUPSEND_R8 
      integer compind,numprocs
./pkg/compon_communic/coupsend_r8.F 30 COUPSEND_R8 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/coupsend_r8.F 31 COUPSEND_R8 
      if (numprocs.lt.1) then
./pkg/compon_communic/coupsend_r8.F 41 COUPSEND_R8 
      do n=1,numprocs
./pkg/compon_communic/coupsend_r8.F 70 COUPSEND_R8 
     &    ' proc=',n,'/',numprocs
./pkg/compon_communic/coupsend_r8tiles.F 21 COUPSEND_R8TILES 
      integer compind,numprocs
./pkg/compon_communic/coupsend_r8tiles.F 30 COUPSEND_R8TILES 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/coupsend_r8tiles.F 31 COUPSEND_R8TILES 
      if (numprocs.lt.1) then
./pkg/compon_communic/coupsend_r8tiles.F 41 COUPSEND_R8TILES 
      do n=1,numprocs
./pkg/compon_communic/coupsend_r8tiles.F 73 COUPSEND_R8TILES 
     &     dest,' proc=',n,'/',numprocs,' tile=',bibj
./pkg/compon_communic/mitcomponent_init.F 14 MITCOMPONENT_INIT 
      integer myid, numprocs, ierr, rc
./pkg/compon_communic/mitcomponent_register.F 13 MITCOMPONENT_REGISTER 
      integer myid, numprocs, ierr, rc
./pkg/compon_communic/mitcomponent_tile_register.F 15 MITCOMPONENT_TILE_REGISTER 
      integer myid, numprocs, ierr, rc
./pkg/compon_communic/mitcoupler_init.F 14 MITCOUPLER_INIT 
      integer myid, numprocs, ierr, rc
./pkg/compon_communic/mitcoupler_register.F 104 MITCOUPLER_REGISTER 
      do n=1,numprocs
./pkg/compon_communic/mitcoupler_register.F 23 MITCOUPLER_REGISTER 
      integer n,numprocs
./pkg/compon_communic/mitcoupler_register.F 36 MITCOUPLER_REGISTER 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/mitcoupler_register.F 37 MITCOUPLER_REGISTER 
      if (numprocs.lt.1) then
./pkg/compon_communic/mitcoupler_register.F 43 MITCOUPLER_REGISTER 
      do n=1,numprocs
./pkg/compon_communic/mitcoupler_tile_register.F 23 MITCOUPLER_TILE_REGISTER 
      integer n,numprocs
./pkg/compon_communic/mitcoupler_tile_register.F 36 MITCOUPLER_TILE_REGISTER 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/mitcoupler_tile_register.F 37 MITCOUPLER_TILE_REGISTER 
      if (numprocs.lt.1) then
./pkg/compon_communic/mitcoupler_tile_register.F 43 MITCOUPLER_TILE_REGISTER 
      do n=1,numprocs
./pkg/compon_communic/mitcplr_init1.F 14 MITCPLR_INIT1 
      integer myid, numprocs, ierr, rc
./pkg/compon_communic/mitcplr_init1.F 200 MITCPLR_INIT1 
        call MPI_COMM_SIZE( MPI_COMM_compcplr(n), numprocs, ierr )
./pkg/compon_communic/mitcplr_init1.F 202 MITCPLR_INIT1 
     &     ' Size = ',numprocs,' MPI_COMM_SIZE ierr=',ierr
./pkg/compon_communic/mitcplr_init1.F 204 MITCPLR_INIT1 
     &     ' Rank/Size = ',j,' /',numprocs,
./pkg/compon_communic/mitcplr_init1.F 213 MITCPLR_INIT1 
       call MPI_COMM_SIZE( MPI_COMM_myglobal, numprocs, ierr )
./pkg/compon_communic/mitcplr_init1.F 215 MITCPLR_INIT1 
     &     ' Size = ',numprocs,' MPI_COMM_SIZE ierr=',ierr
./pkg/compon_communic/mitcplr_init1.F 217 MITCPLR_INIT1 
     &     ' Rank/Size = ',j,' /',numprocs
./pkg/compon_communic/mitcplr_init1.F 38 MITCPLR_INIT1 
      call MPI_COMM_SIZE( MPI_COMM_WORLD, numprocs, ierr )
./pkg/compon_communic/mitcplr_init1.F 40 MITCPLR_INIT1 
     &     ' Size = ',numprocs,' MPI_COMM_RANK ierr=',ierr
./pkg/compon_communic/mitcplr_init1.F 42 MITCPLR_INIT1 
     &     ' Rank/Size = ',myid,' /',numprocs
./pkg/compon_communic/mitcplr_init1.F 53 MITCPLR_INIT1 
      do n=0,numprocs-1
./pkg/compon_communic/mitcplr_init2a.F 13 MITCPLR_INIT2A 
      integer myid, numprocs, ierr
./pkg/compon_communic/mitcplr_init2a.F 23 MITCPLR_INIT2A 
      call MPI_COMM_SIZE( MPI_COMM_myglobal, numprocs, ierr )
./pkg/compon_communic/mitcplr_init2a.F 25 MITCPLR_INIT2A 
     &     ' Size = ',numprocs,' MPI_COMM_RANK ierr=',ierr
./pkg/compon_communic/mitcplr_init2a.F 27 MITCPLR_INIT2A 
     &     ' Rank/Size = ',myid,' /',numprocs
./pkg/compon_communic/mitcplr_init2a.F 35 MITCPLR_INIT2A 
      do n=0,numprocs-1
./pkg/compon_communic/mitcplr_init2a.F 93 MITCPLR_INIT2A 
     &     ' my_coupler_rank =',my_coupler_rank,' /',numprocs
./pkg/compon_communic/mitcplr_init2b.F 13 MITCPLR_INIT2B 
      integer myid, numprocs, ierr
./pkg/compon_communic/mitcplr_init2b.F 29 MITCPLR_INIT2B 
       call MPI_COMM_SIZE( MPI_COMM_temp, numprocs, ierr )
./pkg/compon_communic/mitcplr_init2b.F 31 MITCPLR_INIT2B 
     &     ' Size = ',numprocs,' MPI_COMM_RANK ierr=',ierr
./pkg/compon_communic/mitcplr_init2b.F 33 MITCPLR_INIT2B 
     &     ' Rank/Size = ',myid,' /',numprocs
./pkg/compon_communic/mitcplr_init2b.F 43 MITCPLR_INIT2B 
       do n=0,numprocs-1