Symbol Description Uses
ierr 354


File Line number Procedure Code
./pkg/admtlm/admtlm_dsvd.F 181 ADMTLM_DSVD 
      integer          ido, m, n, nev, ncv, lworkl, info, ierr,
./pkg/admtlm/admtlm_dsvd.F 506 ADMTLM_DSVD 
         print *, 'ph-continue ', info, ierr
./pkg/admtlm/admtlm_dsvd.F 545 ADMTLM_DSVD 
     &        iparam, ipntr, workd, workl, lworkl, ierr )
./pkg/admtlm/admtlm_dsvd.F 555 ADMTLM_DSVD 
         if ( ierr .ne. 0) then
./pkg/admtlm/admtlm_dsvd.F 563 ADMTLM_DSVD 
            print *, ' Error with _seupd, info = ', ierr
./pkg/exf/exf_interp_read.F 44 EXF_INTERP_READ 
      integer  ierr, length_of_rec
./pkg/exf/exf_interp_read.F 90 EXF_INTERP_READ 
     &       0,MPI_COMM_MODEL,ierr)
./pkg/mnc/mnc_file.F 620 MNC_FILE_READALL 
      integer ierr, nff,nlf, indf
./pkg/mnc/mnc_file.F 625 MNC_FILE_READALL 
      CALL MNC_FILE_TRY_READ(fname, ierr, indf, myThid)
./pkg/mnc/mnc_file.F 628 MNC_FILE_READALL 
      CALL MNC_HANDLE_ERR(ierr, msgbuf, myThid)
./pkg/mnc/mnc_file.F 640 MNC_FILE_TRY_READ 
     O     ierr,
./pkg/mnc/mnc_file.F 654 MNC_FILE_TRY_READ 
      integer myThid, ierr, indf
./pkg/mnc/mnc_file.F 673 MNC_FILE_TRY_READ 
      ierr = NF_NOERR
./pkg/mnc/mnc_file.F 675 MNC_FILE_TRY_READ 
        ierr = err
./pkg/mnc/mnc_cwrapper.F 747 MNC_CW_FILE_AORC 
      integer ierr
./pkg/mnc/mnc_cwrapper.F 756 MNC_CW_FILE_AORC 
      CALL MNC_FILE_TRY_READ(fname, ierr, indf, myThid)
./pkg/mnc/mnc_cwrapper.F 757 MNC_CW_FILE_AORC 
      IF (ierr .NE. NF_NOERR) THEN
./pkg/exch2/w2_eeboot.F 156 W2_EEBOOT 
     &        npe, mpiMyId, MPI_COMM_MODEL, mpiRequest, ierr)
./pkg/exch2/w2_eeboot.F 160 W2_EEBOOT 
     &        npe, npe, MPI_COMM_MODEL, istatus, ierr)
./eesupp/src/scatter_xz.F 20 SCATTER_XZ 
      INTEGER istatus(MPI_STATUS_SIZE), ierr
./eesupp/src/scatter_xz.F 70 SCATTER_XZ 
     &           npe, itag, MPI_COMM_MODEL, ierr)
./eesupp/src/scatter_xz.F 77 SCATTER_XZ 
     &        isource, itag, MPI_COMM_MODEL, istatus, ierr)
./pkg/compon_communic/mitcoupler_init.F 11 MITCOUPLER_INIT 
      integer myid, numprocs, ierr, rc
./pkg/compon_communic/coupsend_r8tiles.F 13 COUPSEND_R8TILES 
      integer count,dtype,dest,tag,comm,ierr
./pkg/compon_communic/coupsend_r8tiles.F 73 COUPSEND_R8TILES 
        call MPI_SEND( r8buf, count, dtype, dest, tag, comm, ierr )
./pkg/compon_communic/coupsend_r8tiles.F 75 COUPSEND_R8TILES 
         write(LogUnit,*) 'coupsend_r8tiles: returned ierr=',ierr
./pkg/compon_communic/coupsend_r8tiles.F 79 COUPSEND_R8TILES 
        if (ierr.ne.0) then
./pkg/compon_communic/coupsend_r8tiles.F 82 COUPSEND_R8TILES 
     &            ' ierr=',ierr
./pkg/compon_communic/mitcplr_init1.F 11 MITCPLR_INIT1 
      integer myid, numprocs, ierr, rc
./pkg/compon_communic/mitcplr_init1.F 120 MITCPLR_INIT1 
      call MPI_COMM_GROUP( MPI_COMM_WORLD, MPI_GROUP_World, ierr )
./pkg/compon_communic/mitcplr_init1.F 123 MITCPLR_INIT1 
     &    ' ierr=',ierr
./pkg/compon_communic/mitcplr_init1.F 133 MITCPLR_INIT1 
     &   ierr )
./pkg/compon_communic/mitcplr_init1.F 136 MITCPLR_INIT1 
     &   MPI_GROUP_Tmp,' ierr=',ierr
./pkg/compon_communic/mitcplr_init1.F 143 MITCPLR_INIT1 
     &   ierr )
./pkg/compon_communic/mitcplr_init1.F 146 MITCPLR_INIT1 
     &   ' ierr=',ierr
./pkg/compon_communic/mitcplr_init1.F 154 MITCPLR_INIT1 
     &   ierr )
./pkg/compon_communic/mitcplr_init1.F 157 MITCPLR_INIT1 
     &   MPI_GROUP_Tmp,' ierr=',ierr
./pkg/compon_communic/mitcplr_init1.F 164 MITCPLR_INIT1 
     &   ierr )
./pkg/compon_communic/mitcplr_init1.F 167 MITCPLR_INIT1 
     &   ' ierr=',ierr
./pkg/compon_communic/mitcplr_init1.F 193 MITCPLR_INIT1 
        call MPI_COMM_RANK( MPI_COMM_compcplr(n), j, ierr )
./pkg/compon_communic/mitcplr_init1.F 194 MITCPLR_INIT1 
        if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init1.F 195 MITCPLR_INIT1 
     &     ' Rank = ',j,' MPI_COMM_RANK ierr=',ierr
./pkg/compon_communic/mitcplr_init1.F 197 MITCPLR_INIT1 
        call MPI_COMM_SIZE( MPI_COMM_compcplr(n), numprocs, ierr )
./pkg/compon_communic/mitcplr_init1.F 198 MITCPLR_INIT1 
        if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init1.F 199 MITCPLR_INIT1 
     &     ' Size = ',numprocs,' MPI_COMM_SIZE ierr=',ierr
./pkg/compon_communic/mitcplr_init1.F 206 MITCPLR_INIT1 
       call MPI_COMM_RANK( MPI_COMM_myglobal, j, ierr )
./pkg/compon_communic/mitcplr_init1.F 207 MITCPLR_INIT1 
       if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init1.F 208 MITCPLR_INIT1 
     &     ' Rank = ',j,' MPI_COMM_RANK ierr=',ierr
./pkg/compon_communic/mitcplr_init1.F 210 MITCPLR_INIT1 
       call MPI_COMM_SIZE( MPI_COMM_myglobal, numprocs, ierr )
./pkg/compon_communic/mitcplr_init1.F 211 MITCPLR_INIT1 
       if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init1.F 212 MITCPLR_INIT1 
     &     ' Size = ',numprocs,' MPI_COMM_SIZE ierr=',ierr
./pkg/compon_communic/mitcplr_init1.F 31 MITCPLR_INIT1 
      call MPI_COMM_RANK( MPI_COMM_WORLD, myid, ierr )
./pkg/compon_communic/mitcplr_init1.F 32 MITCPLR_INIT1 
      if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init1.F 33 MITCPLR_INIT1 
     &     ' Rank = ',myid,' MPI_COMM_RANK ierr=',ierr
./pkg/compon_communic/mitcplr_init1.F 35 MITCPLR_INIT1 
      call MPI_COMM_SIZE( MPI_COMM_WORLD, numprocs, ierr )
./pkg/compon_communic/mitcplr_init1.F 36 MITCPLR_INIT1 
      if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init1.F 37 MITCPLR_INIT1 
     &     ' Size = ',numprocs,' MPI_COMM_RANK ierr=',ierr
./pkg/compon_communic/mitcplr_init1.F 64 MITCPLR_INIT1 
     &               MPI_COMM_WORLD, ierr )
./pkg/compon_communic/mitcplr_init1.F 66 MITCPLR_INIT1 
     &    ' MPI_Bcast from ',ibuf(1),ibuf(2),' ierr=',ierr
./eesupp/src/gather_vector.F 23 GATHER_VECTOR 
      INTEGER istatus(MPI_STATUS_SIZE), ierr
./eesupp/src/gather_vector.F 61 GATHER_VECTOR 
     &           npe, itag, MPI_COMM_MODEL, ierr)
./eesupp/src/gather_vector.F 63 GATHER_VECTOR 
     &           npe, itag, MPI_COMM_MODEL, istatus, ierr)
./eesupp/src/gather_vector.F 87 GATHER_VECTOR 
     &        idest, itag, MPI_COMM_MODEL, istatus, ierr)
./eesupp/src/gather_vector.F 89 GATHER_VECTOR 
     &        idest, itag, MPI_COMM_MODEL, ierr)
./pkg/compon_communic/couprecv_r8tiles.F 13 COUPRECV_R8TILES 
      integer count,dtype,rank,tag,comm,ierr
./pkg/compon_communic/couprecv_r8tiles.F 57 COUPRECV_R8TILES 
       call MPI_RECV(r8buf, count, dtype, rank, tag, comm, stat, ierr)
./pkg/compon_communic/couprecv_r8tiles.F 59 COUPRECV_R8TILES 
        write(LogUnit,*) 'couprecv_r8tiles: returned ierr=',ierr
./pkg/compon_communic/couprecv_r8tiles.F 63 COUPRECV_R8TILES 
       if (ierr.ne.0) then
./pkg/compon_communic/couprecv_r8tiles.F 66 COUPRECV_R8TILES 
     &            ' ierr=',ierr
./pkg/compon_communic/couprecv_r8.F 13 COUPRECV_R8 
      integer count,dtype,rank,tag,comm,ierr
./pkg/compon_communic/couprecv_r8.F 52 COUPRECV_R8 
       call MPI_RECV(r8buf, count, dtype, rank, tag, comm, stat, ierr)
./pkg/compon_communic/couprecv_r8.F 54 COUPRECV_R8 
        write(LogUnit,*) 'couprecv_r8: returned ierr=',ierr
./pkg/compon_communic/couprecv_r8.F 58 COUPRECV_R8 
       if (ierr.ne.0) then
./pkg/compon_communic/couprecv_r8.F 61 COUPRECV_R8 
     &            ' ierr=',ierr
./pkg/compon_communic/mitcomponent_init.F 11 MITCOMPONENT_INIT 
      integer myid, numprocs, ierr, rc
./pkg/compon_communic/mitcplr_init2b.F 10 MITCPLR_INIT2B 
      integer myid, numprocs, ierr
./pkg/compon_communic/mitcplr_init2b.F 22 MITCPLR_INIT2B 
       call MPI_COMM_RANK( MPI_COMM_temp, myid, ierr )
./pkg/compon_communic/mitcplr_init2b.F 23 MITCPLR_INIT2B 
       if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2b: ',
./pkg/compon_communic/mitcplr_init2b.F 24 MITCPLR_INIT2B 
     &     ' Rank = ',myid,' MPI_COMM_RANK ierr=',ierr
./pkg/compon_communic/mitcplr_init2b.F 26 MITCPLR_INIT2B 
       call MPI_COMM_SIZE( MPI_COMM_temp, numprocs, ierr )
./pkg/compon_communic/mitcplr_init2b.F 27 MITCPLR_INIT2B 
       if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2b: ',
./pkg/compon_communic/mitcplr_init2b.F 28 MITCPLR_INIT2B 
     &     ' Size = ',numprocs,' MPI_COMM_RANK ierr=',ierr
./pkg/compon_communic/mitcplr_init2b.F 57 MITCPLR_INIT2B 
     &               MPI_COMM_temp, ierr )
./pkg/compon_communic/mitcplr_init2b.F 58 MITCPLR_INIT2B 
        if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2b: ',
./pkg/compon_communic/mitcplr_init2b.F 59 MITCPLR_INIT2B 
     &    ' MPI_Bcast from ',ibuf(1),ibuf(2),' ierr=',ierr
./pkg/compon_communic/mitcoupler_tile_register.F 23 MITCOUPLER_TILE_REGISTER 
      integer ierr, rc
./pkg/compon_communic/mitcoupler_tile_register.F 48 MITCOUPLER_TILE_REGISTER 
       call MPI_RECV(ibuf, count, dtype, rank, tag, comm, stat, ierr)
./pkg/compon_communic/mitcoupler_tile_register.F 50 MITCOUPLER_TILE_REGISTER 
       if (ierr.ne.0) then
./pkg/compon_communic/mitcoupler_tile_register.F 53 MITCOUPLER_TILE_REGISTER 
     &            ' ierr=',ierr
./pkg/compon_communic/mitcoupler_tile_register.F 72 MITCOUPLER_TILE_REGISTER 
        call MPI_RECV(ibuf, count, dtype, rank, tag, comm, stat, ierr)
./pkg/compon_communic/mitcoupler_tile_register.F 74 MITCOUPLER_TILE_REGISTER 
        if (ierr.ne.0) then
./pkg/compon_communic/mitcoupler_tile_register.F 77 MITCOUPLER_TILE_REGISTER 
     &            ' ierr=',ierr
./pkg/compon_communic/mitcomponent_tile_register.F 12 MITCOMPONENT_TILE_REGISTER 
      integer myid, numprocs, ierr, rc
./pkg/compon_communic/mitcomponent_tile_register.F 66 MITCOMPONENT_TILE_REGISTER 
      call MPI_SEND( ibuf, count, datatype, dest, tag, comm, ierr )
./pkg/compon_communic/mitcomponent_tile_register.F 68 MITCOMPONENT_TILE_REGISTER 
      if (ierr.ne.0) then
./pkg/compon_communic/mitcomponent_tile_register.F 71 MITCOMPONENT_TILE_REGISTER 
     &            ' ierr=',ierr
./pkg/compon_communic/mitcomponent_tile_register.F 92 MITCOMPONENT_TILE_REGISTER 
       call MPI_SEND( ibuf, count, datatype, dest, tag, comm, ierr )
./pkg/compon_communic/mitcomponent_tile_register.F 94 MITCOMPONENT_TILE_REGISTER 
       if (ierr.ne.0) then
./pkg/compon_communic/mitcomponent_tile_register.F 97 MITCOMPONENT_TILE_REGISTER 
     &           ' ierr=',ierr
./pkg/compon_communic/coupsend_r4.F 13 COUPSEND_R4 
      integer count,dtype,dest,tag,comm,ierr
./pkg/compon_communic/coupsend_r4.F 70 COUPSEND_R4 
       call MPI_SEND( r4buf, count, dtype, dest, tag, comm, ierr )
./pkg/compon_communic/coupsend_r4.F 72 COUPSEND_R4 
        write(LogUnit,*) 'coupsend_r4: returned ierr=',ierr
./pkg/compon_communic/coupsend_r4.F 76 COUPSEND_R4 
       if (ierr.ne.0) then
./pkg/compon_communic/coupsend_r4.F 79 COUPSEND_R4 
     &            ' ierr=',ierr
./pkg/compon_communic/comprecv_r8.F 12 COMPRECV_R8 
      integer count,dtype,rank,tag,comm,ierr
./pkg/compon_communic/comprecv_r8.F 36 COMPRECV_R8 
      call MPI_RECV(r8buf, count, dtype, rank, tag, comm, stat, ierr)
./pkg/compon_communic/comprecv_r8.F 38 COMPRECV_R8 
       write(LogUnit,*) 'comprecv_r8: returned ierr=',ierr
./pkg/compon_communic/comprecv_r8.F 42 COMPRECV_R8 
      if (ierr.ne.0) then
./pkg/compon_communic/comprecv_r8.F 45 COMPRECV_R8 
     &            ' ierr=',ierr
./pkg/compon_communic/couprecv_r4.F 13 COUPRECV_R4 
      integer count,dtype,rank,tag,comm,ierr
./pkg/compon_communic/couprecv_r4.F 52 COUPRECV_R4 
       call MPI_RECV(r4buf, count, dtype, rank, tag, comm, stat, ierr)
./pkg/compon_communic/couprecv_r4.F 54 COUPRECV_R4 
        write(LogUnit,*) 'couprecv_r4: returned ierr=',ierr
./pkg/compon_communic/couprecv_r4.F 58 COUPRECV_R4 
       if (ierr.ne.0) then
./pkg/compon_communic/couprecv_r4.F 61 COUPRECV_R4 
     &            ' ierr=',ierr
./pkg/compon_communic/mitcplr_init2a.F 10 MITCPLR_INIT2A 
      integer myid, numprocs, ierr
./pkg/compon_communic/mitcplr_init2a.F 16 MITCPLR_INIT2A 
      call MPI_COMM_RANK( MPI_COMM_myglobal, myid, ierr )
./pkg/compon_communic/mitcplr_init2a.F 17 MITCPLR_INIT2A 
      if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2a: ',
./pkg/compon_communic/mitcplr_init2a.F 18 MITCPLR_INIT2A 
     &     ' Rank = ',myid,' MPI_COMM_RANK ierr=',ierr
./pkg/compon_communic/mitcplr_init2a.F 20 MITCPLR_INIT2A 
      call MPI_COMM_SIZE( MPI_COMM_myglobal, numprocs, ierr )
./pkg/compon_communic/mitcplr_init2a.F 21 MITCPLR_INIT2A 
      if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2a: ',
./pkg/compon_communic/mitcplr_init2a.F 22 MITCPLR_INIT2A 
     &     ' Size = ',numprocs,' MPI_COMM_RANK ierr=',ierr
./pkg/compon_communic/mitcplr_init2a.F 49 MITCPLR_INIT2A 
     &               MPI_COMM_myglobal, ierr )
./pkg/compon_communic/mitcplr_init2a.F 50 MITCPLR_INIT2A 
       if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2a: ',
./pkg/compon_communic/mitcplr_init2a.F 51 MITCPLR_INIT2A 
     &    ' MPI_Bcast from ',ibuf(1),ibuf(2),' ierr=',ierr
./pkg/compon_communic/mitcplr_init2a.F 73 MITCPLR_INIT2A 
      call MPI_COMM_RANK( MPI_COMM_World, n, ierr )
./pkg/compon_communic/mitcplr_init2a.F 74 MITCPLR_INIT2A 
      if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2a: ',
./pkg/compon_communic/mitcplr_init2a.F 75 MITCPLR_INIT2A 
     &     ' Rank = ',myid,' MPI_COMM_RANK ierr=',ierr
./pkg/compon_communic/mitcplr_init2a.F 77 MITCPLR_INIT2A 
      call MPI_COMM_RANK( MPI_COMM_myglobal, j, ierr )
./pkg/compon_communic/mitcplr_init2a.F 78 MITCPLR_INIT2A 
      if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2a: ',
./pkg/compon_communic/mitcplr_init2a.F 79 MITCPLR_INIT2A 
     &     ' Rank = ',myid,' MPI_COMM_RANK ierr=',ierr
./pkg/compon_communic/comprecv_r4.F 12 COMPRECV_R4 
      integer count,dtype,rank,tag,comm,ierr
./pkg/compon_communic/comprecv_r4.F 36 COMPRECV_R4 
      call MPI_RECV(r4buf, count, dtype, rank, tag, comm, stat, ierr)
./pkg/compon_communic/comprecv_r4.F 38 COMPRECV_R4 
       write(LogUnit,*) 'comprecv_r4: returned ierr=',ierr
./pkg/compon_communic/comprecv_r4.F 42 COMPRECV_R4 
      if (ierr.ne.0) then
./pkg/compon_communic/comprecv_r4.F 45 COMPRECV_R4 
     &            ' ierr=',ierr
./pkg/compon_communic/comprecv_r8tiles.F 12 COMPRECV_R8TILES 
      integer count,dtype,rank,tag,comm,ierr
./pkg/compon_communic/comprecv_r8tiles.F 42 COMPRECV_R8TILES 
       call MPI_RECV(r8buf, count, dtype, rank, tag, comm, stat, ierr)
./pkg/compon_communic/comprecv_r8tiles.F 44 COMPRECV_R8TILES 
        write(LogUnit,*) 'comprecv_r8tiles: returned ierr=',ierr
./pkg/compon_communic/comprecv_r8tiles.F 48 COMPRECV_R8TILES 
       if (ierr.ne.0) then
./pkg/compon_communic/comprecv_r8tiles.F 51 COMPRECV_R8TILES 
     &            ' ierr=',ierr
./pkg/compon_communic/comprecv_r4tiles.F 12 COMPRECV_R4TILES 
      integer count,dtype,rank,tag,comm,ierr
./pkg/compon_communic/comprecv_r4tiles.F 42 COMPRECV_R4TILES 
       call MPI_RECV(r4buf, count, dtype, rank, tag, comm, stat, ierr)
./pkg/compon_communic/comprecv_r4tiles.F 44 COMPRECV_R4TILES 
        write(LogUnit,*) 'comprecv_r4tiles: returned ierr=',ierr
./pkg/compon_communic/comprecv_r4tiles.F 48 COMPRECV_R4TILES 
       if (ierr.ne.0) then
./pkg/compon_communic/comprecv_r4tiles.F 51 COMPRECV_R4TILES 
     &            ' ierr=',ierr
./pkg/compon_communic/mitcoupler_register.F 23 MITCOUPLER_REGISTER 
      integer ierr, rc
./pkg/compon_communic/mitcoupler_register.F 48 MITCOUPLER_REGISTER 
       call MPI_RECV(ibuf, count, dtype, rank, tag, comm, stat, ierr)
./pkg/compon_communic/mitcoupler_register.F 50 MITCOUPLER_REGISTER 
       if (ierr.ne.0) then
./pkg/compon_communic/mitcoupler_register.F 53 MITCOUPLER_REGISTER 
     &            ' ierr=',ierr
./pkg/compon_communic/coupsend_r8.F 13 COUPSEND_R8 
      integer count,dtype,dest,tag,comm,ierr
./pkg/compon_communic/coupsend_r8.F 70 COUPSEND_R8 
       call MPI_SEND( r8buf, count, dtype, dest, tag, comm, ierr )
./pkg/compon_communic/coupsend_r8.F 72 COUPSEND_R8 
        write(LogUnit,*) 'coupsend_r8: returned ierr=',ierr
./pkg/compon_communic/coupsend_r8.F 76 COUPSEND_R8 
       if (ierr.ne.0) then
./pkg/compon_communic/coupsend_r8.F 79 COUPSEND_R8 
     &            ' ierr=',ierr
./pkg/compon_communic/mitcomponent_register.F 10 MITCOMPONENT_REGISTER 
      integer myid, numprocs, ierr, rc
./pkg/compon_communic/mitcomponent_register.F 45 MITCOMPONENT_REGISTER 
      call MPI_SEND( ibuf, count, datatype, dest, tag, comm, ierr )
./pkg/compon_communic/mitcomponent_register.F 47 MITCOMPONENT_REGISTER 
      if (ierr.ne.0) then
./pkg/compon_communic/mitcomponent_register.F 50 MITCOMPONENT_REGISTER 
     &            ' ierr=',ierr
./pkg/compon_communic/compsend_r4tiles.F 12 COMPSEND_R4TILES 
      integer count,datatype,dest,tag,comm,ierr
./pkg/compon_communic/compsend_r4tiles.F 62 COMPSEND_R4TILES 
       call MPI_SEND( r4buf, count, datatype, dest, tag, comm, ierr )
./pkg/compon_communic/compsend_r4tiles.F 64 COMPSEND_R4TILES 
        write(LogUnit,*) 'compsend_r4tiles: returned ierr=',ierr
./pkg/compon_communic/compsend_r4tiles.F 68 COMPSEND_R4TILES 
       if (ierr.ne.0) then
./pkg/compon_communic/compsend_r4tiles.F 71 COMPSEND_R4TILES 
     &            ' ierr=',ierr
./pkg/compon_communic/compsend_r4.F 12 COMPSEND_R4 
      integer count,datatype,dest,tag,comm,ierr
./pkg/compon_communic/compsend_r4.F 51 COMPSEND_R4 
      call MPI_SEND( r4buf, count, datatype, dest, tag, comm, ierr )
./pkg/compon_communic/compsend_r4.F 53 COMPSEND_R4 
       write(LogUnit,*) 'compsend_r4: returned ierr=',ierr
./pkg/compon_communic/compsend_r4.F 57 COMPSEND_R4 
      if (ierr.ne.0) then
./pkg/compon_communic/compsend_r4.F 60 COMPSEND_R4 
     &            ' ierr=',ierr
./pkg/compon_communic/couprecv_r4tiles.F 13 COUPRECV_R4TILES 
      integer count,dtype,rank,tag,comm,ierr
./pkg/compon_communic/couprecv_r4tiles.F 57 COUPRECV_R4TILES 
       call MPI_RECV(r4buf, count, dtype, rank, tag, comm, stat, ierr)
./pkg/compon_communic/couprecv_r4tiles.F 59 COUPRECV_R4TILES 
        write(LogUnit,*) 'couprecv_r4tiles: returned ierr=',ierr
./pkg/compon_communic/couprecv_r4tiles.F 63 COUPRECV_R4TILES 
       if (ierr.ne.0) then
./pkg/compon_communic/couprecv_r4tiles.F 66 COUPRECV_R4TILES 
     &            ' ierr=',ierr
./pkg/compon_communic/compsend_r8tiles.F 12 COMPSEND_R8TILES 
      integer count,datatype,dest,tag,comm,ierr
./pkg/compon_communic/compsend_r8tiles.F 62 COMPSEND_R8TILES 
       call MPI_SEND( r8buf, count, datatype, dest, tag, comm, ierr )
./pkg/compon_communic/compsend_r8tiles.F 64 COMPSEND_R8TILES 
        write(LogUnit,*) 'compsend_r8tiles: returned ierr=',ierr
./pkg/compon_communic/compsend_r8tiles.F 68 COMPSEND_R8TILES 
       if (ierr.ne.0) then
./pkg/compon_communic/compsend_r8tiles.F 71 COMPSEND_R8TILES 
     &            ' ierr=',ierr
./pkg/compon_communic/coupsend_r4tiles.F 13 COUPSEND_R4TILES 
      integer count,dtype,dest,tag,comm,ierr
./pkg/compon_communic/coupsend_r4tiles.F 73 COUPSEND_R4TILES 
        call MPI_SEND( r4buf, count, dtype, dest, tag, comm, ierr )
./pkg/compon_communic/coupsend_r4tiles.F 75 COUPSEND_R4TILES 
         write(LogUnit,*) 'coupsend_r4tiles: returned ierr=',ierr
./pkg/compon_communic/coupsend_r4tiles.F 79 COUPSEND_R4TILES 
        if (ierr.ne.0) then
./pkg/compon_communic/coupsend_r4tiles.F 82 COUPSEND_R4TILES 
     &            ' ierr=',ierr
./pkg/compon_communic/compsend_r8.F 12 COMPSEND_R8 
      integer count,datatype,dest,tag,comm,ierr
./pkg/compon_communic/compsend_r8.F 51 COMPSEND_R8 
      call MPI_SEND( r8buf, count, datatype, dest, tag, comm, ierr )
./pkg/compon_communic/compsend_r8.F 53 COMPSEND_R8 
       write(LogUnit,*) 'compsend_r8: returned ierr=',ierr
./pkg/compon_communic/compsend_r8.F 57 COMPSEND_R8 
      if (ierr.ne.0) then
./pkg/compon_communic/compsend_r8.F 60 COMPSEND_R8 
     &            ' ierr=',ierr
./pkg/sphere/sphere.F 622 SHCERROR 
      subroutine SHCERROR( errstring, ierr )
./pkg/sphere/sphere.F 630 SHCERROR 
      integer       ierr
./pkg/sphere/sphere.F 633 SHCERROR 
      if ( ierr .ne. 0 ) then
./eesupp/src/scatter_yz.F 20 SCATTER_YZ 
      INTEGER istatus(MPI_STATUS_SIZE), ierr
./eesupp/src/scatter_yz.F 70 SCATTER_YZ 
     &           npe, itag, MPI_COMM_MODEL, ierr)
./eesupp/src/scatter_yz.F 77 SCATTER_YZ 
     &        isource, itag, MPI_COMM_MODEL, istatus, ierr)
./eesupp/src/scatter_2d.F 21 SCATTER_2D 
      INTEGER istatus(MPI_STATUS_SIZE), ierr
./eesupp/src/scatter_2d.F 80 SCATTER_2D 
     &           npe, itag, MPI_COMM_MODEL, ierr)
./eesupp/src/scatter_2d.F 87 SCATTER_2D 
     &        isource, itag, MPI_COMM_MODEL, istatus, ierr)
./pkg/grdchk/grdchk_get_position.F 121 GRDCHK_GET_POSITION 
             if ( ierr .ne. 0 ) then
./pkg/grdchk/grdchk_get_position.F 128 GRDCHK_GET_POSITION 
                 if (ierr .ne. 0) then
./pkg/grdchk/grdchk_get_position.F 185 GRDCHK_GET_POSITION 
                        ierr     = 0
./pkg/grdchk/grdchk_get_position.F 197 GRDCHK_GET_POSITION 
                     ierr     = 0
./pkg/grdchk/grdchk_get_position.F 211 GRDCHK_GET_POSITION 
             else if (ierr .NE. 0) then
./pkg/grdchk/grdchk_get_position.F 41 GRDCHK_GET_POSITION 
      integer       ierr
./pkg/grdchk/grdchk_get_position.F 93 GRDCHK_GET_POSITION 
      ierr      = -5
./pkg/grdchk/grdchk_loc.F 137 GRDCHK_LOC 
             if ( (ierr .ne. 0) .and.
./pkg/grdchk/grdchk_loc.F 146 GRDCHK_LOC 
                 if (ierr .ne. 0) then
./pkg/grdchk/grdchk_loc.F 17 GRDCHK_LOC 
     O                     ierr,
./pkg/grdchk/grdchk_loc.F 191 GRDCHK_LOC 
                     ierr     = 0
./pkg/grdchk/grdchk_loc.F 199 GRDCHK_LOC 
             else if (ierr .NE. 0) then
./pkg/grdchk/grdchk_loc.F 224 GRDCHK_LOC 
              ierr     = -4
./pkg/grdchk/grdchk_loc.F 234 GRDCHK_LOC 
              ierr     = -3
./pkg/grdchk/grdchk_loc.F 247 GRDCHK_LOC 
            ierr     = -2
./pkg/grdchk/grdchk_loc.F 257 GRDCHK_LOC 
            ierr     = -1
./pkg/grdchk/grdchk_loc.F 58 GRDCHK_LOC 
      integer       ierr
./pkg/grdchk/grdchk_loc.F 92 GRDCHK_LOC 
      ierr = -5
./pkg/grdchk/grdchk_main.F 113 GRDCHK_MAIN 
      integer ierr
./pkg/grdchk/grdchk_main.F 216 GRDCHK_MAIN 
     &              itilepos, jtilepos, itest, ierr,
./pkg/grdchk/grdchk_main.F 227 GRDCHK_MAIN 
     &           ierr .EQ. 0 ) then
./pkg/grdchk/grdchk_main.F 243 GRDCHK_MAIN 
     &           ierr .EQ. 0 ) then
./pkg/grdchk/grdchk_main.F 275 GRDCHK_MAIN 
     &           ierr .EQ. 0 ) then
./pkg/grdchk/grdchk_main.F 295 GRDCHK_MAIN 
     &           ierr .EQ. 0 ) then
./pkg/grdchk/grdchk_main.F 317 GRDCHK_MAIN 
     &           ierr .EQ. 0 ) then
./pkg/grdchk/grdchk_main.F 334 GRDCHK_MAIN 
     &           ierr .EQ. 0 ) then
./pkg/grdchk/grdchk_main.F 353 GRDCHK_MAIN 
     &           ierr .EQ. 0 ) then
./pkg/grdchk/grdchk_main.F 369 GRDCHK_MAIN 
     &           ierr .EQ. 0 ) then
./pkg/grdchk/grdchk_main.F 418 GRDCHK_MAIN 
               ierrmem   ( ichknum ) = ierr
./pkg/grdchk/grdchk_main.F 447 GRDCHK_MAIN 
            print *, 'ph-grd  ierr = ', ierr, ', icomp = ', icomp,
./pkg/grdchk/grdchk_print.F 143 GRDCHK_PRINT 
        ierr         = ierrmem (i)
./pkg/grdchk/grdchk_print.F 151 GRDCHK_PRINT 
        if ( ierr .eq. 0 ) then
./pkg/grdchk/grdchk_print.F 166 GRDCHK_PRINT 
          if ( ierr .eq. -1 ) then
./pkg/grdchk/grdchk_print.F 169 GRDCHK_PRINT 
          else if ( ierr .eq. -2 ) then
./pkg/grdchk/grdchk_print.F 172 GRDCHK_PRINT 
          else if ( ierr .eq. -3 ) then
./pkg/grdchk/grdchk_print.F 175 GRDCHK_PRINT 
          else if ( ierr .eq. -4 ) then
./pkg/grdchk/grdchk_print.F 63 GRDCHK_PRINT 
      integer ierr
./eesupp/src/ini_procs.F 189 INI_PROCS 
     &         npe, mpiMyId, MPI_COMM_MODEL, mpiRequest, ierr)
./eesupp/src/ini_procs.F 193 INI_PROCS 
     &         npe, npe, MPI_COMM_MODEL, istatus, ierr)
./eesupp/src/ini_procs.F 198 INI_PROCS 
     &         npe, mpiMyId, MPI_COMM_MODEL, mpiRequest, ierr)
./eesupp/src/ini_procs.F 202 INI_PROCS 
     &         npe, npe, MPI_COMM_MODEL, istatus, ierr)
./eesupp/src/ini_procs.F 63 INI_PROCS 
      INTEGER npe,itemp,ierr,istatus(MPI_STATUS_SIZE)
./eesupp/src/scatter_vector.F 19 SCATTER_VECTOR 
      INTEGER istatus(MPI_STATUS_SIZE), ierr
./eesupp/src/scatter_vector.F 63 SCATTER_VECTOR 
     &           npe, itag, MPI_COMM_MODEL, ierr)
./eesupp/src/scatter_vector.F 70 SCATTER_VECTOR 
     &        isource, itag, MPI_COMM_MODEL, istatus, ierr)
./eesupp/src/gather_yz.F 23 GATHER_YZ 
      INTEGER istatus(MPI_STATUS_SIZE), ierr
./eesupp/src/gather_yz.F 65 GATHER_YZ 
     &           npe, itag, MPI_COMM_MODEL, ierr)
./eesupp/src/gather_yz.F 67 GATHER_YZ 
     &           npe, itag, MPI_COMM_MODEL, istatus, ierr)
./eesupp/src/gather_yz.F 84 GATHER_YZ 
     &        idest, itag, MPI_COMM_MODEL, istatus, ierr)
./eesupp/src/gather_yz.F 86 GATHER_YZ 
     &        idest, itag, MPI_COMM_MODEL, ierr)
./eesupp/src/gather_2d.F 21 GATHER_2D 
      INTEGER istatus(MPI_STATUS_SIZE), ierr
./eesupp/src/gather_2d.F 69 GATHER_2D 
     &           npe, itag, MPI_COMM_MODEL, ierr)
./eesupp/src/gather_2d.F 71 GATHER_2D 
     &           npe, itag, MPI_COMM_MODEL, istatus, ierr)
./eesupp/src/gather_2d.F 91 GATHER_2D 
     &        idest, itag, MPI_COMM_MODEL, istatus, ierr)
./eesupp/src/gather_2d.F 93 GATHER_2D 
     &        idest, itag, MPI_COMM_MODEL, ierr)
./eesupp/src/gather_xz.F 23 GATHER_XZ 
      INTEGER istatus(MPI_STATUS_SIZE), ierr
./eesupp/src/gather_xz.F 65 GATHER_XZ 
     &           npe, itag, MPI_COMM_MODEL, ierr)
./eesupp/src/gather_xz.F 67 GATHER_XZ 
     &           npe, itag, MPI_COMM_MODEL, istatus, ierr)
./eesupp/src/gather_xz.F 84 GATHER_XZ 
     &        idest, itag, MPI_COMM_MODEL, istatus, ierr)
./eesupp/src/gather_xz.F 86 GATHER_XZ 
     &        idest, itag, MPI_COMM_MODEL, ierr)
./pkg/cal/cal_stepsforday.F 109 CAL_STEPSFORDAY 
              ierr = 2604
./pkg/cal/cal_stepsforday.F 110 CAL_STEPSFORDAY 
              call CAL_PRINTERROR( ierr, mythid )
./pkg/cal/cal_stepsforday.F 115 CAL_STEPSFORDAY 
            ierr = 2603
./pkg/cal/cal_stepsforday.F 116 CAL_STEPSFORDAY 
            call CAL_PRINTERROR( ierr, mythid )
./pkg/cal/cal_stepsforday.F 122 CAL_STEPSFORDAY 
          ierr = 2602
./pkg/cal/cal_stepsforday.F 123 CAL_STEPSFORDAY 
          call CAL_PRINTERROR( ierr, mythid )
./pkg/cal/cal_stepsforday.F 184 CAL_STEPSFORDAY 
          ierr = 2605
./pkg/cal/cal_stepsforday.F 185 CAL_STEPSFORDAY 
          call CAL_PRINTERROR( ierr, mythid )
./pkg/cal/cal_stepsforday.F 190 CAL_STEPSFORDAY 
        ierr = 2601
./pkg/cal/cal_stepsforday.F 191 CAL_STEPSFORDAY 
        call CAL_PRINTERROR( ierr, mythid )
./pkg/cal/cal_stepsforday.F 49 CAL_STEPSFORDAY 
      integer ierr
./pkg/cal/cal_dayspermonth.F 60 CAL_DAYSPERMONTH 
      integer ierr
./pkg/cal/cal_dayspermonth.F 84 CAL_DAYSPERMONTH 
        ierr = 1201
./pkg/cal/cal_dayspermonth.F 85 CAL_DAYSPERMONTH 
        call CAL_PRINTERROR( ierr, mythid )
./pkg/cal/cal_convdate.F 60 CAL_CONVDATE 
      integer ierr
./pkg/cal/cal_convdate.F 95 CAL_CONVDATE 
        ierr = 901
./pkg/cal/cal_convdate.F 96 CAL_CONVDATE 
        call CAL_PRINTERROR( ierr, mythid )
./pkg/cal/cal_readparms.F 80 CAL_READPARMS 
      integer ierr
./pkg/cal/cal_daysformonth.F 111 CAL_DAYSFORMONTH 
              ierr = 2704
./pkg/cal/cal_daysformonth.F 112 CAL_DAYSFORMONTH 
              call CAL_PRINTERROR( ierr, mythid )
./pkg/cal/cal_daysformonth.F 117 CAL_DAYSFORMONTH 
            ierr = 2703
./pkg/cal/cal_daysformonth.F 118 CAL_DAYSFORMONTH 
            call CAL_PRINTERROR( ierr, mythid )
./pkg/cal/cal_daysformonth.F 124 CAL_DAYSFORMONTH 
          ierr = 2702
./pkg/cal/cal_daysformonth.F 125 CAL_DAYSFORMONTH 
          call CAL_PRINTERROR( ierr, mythid )
./pkg/cal/cal_daysformonth.F 194 CAL_DAYSFORMONTH 
          ierr = 2705
./pkg/cal/cal_daysformonth.F 195 CAL_DAYSFORMONTH 
          call CAL_PRINTERROR( ierr, mythid )
./pkg/cal/cal_daysformonth.F 200 CAL_DAYSFORMONTH 
        ierr = 2701
./pkg/cal/cal_daysformonth.F 201 CAL_DAYSFORMONTH 
        call CAL_PRINTERROR( ierr, mythid )
./pkg/cal/cal_daysformonth.F 50 CAL_DAYSFORMONTH 
      integer ierr
./pkg/cal/cal_timeinterval.F 59 CAL_TIMEINTERVAL 
      integer ierr
./pkg/cal/cal_timeinterval.F 84 CAL_TIMEINTERVAL 
        ierr = 701
./pkg/cal/cal_timeinterval.F 85 CAL_TIMEINTERVAL 
        call CAL_PRINTERROR( ierr, mythid )
./pkg/cal/cal_addtime.F 69 CAL_ADDTIME 
      integer ierr
./pkg/cal/cal_addtime.F 79 CAL_ADDTIME 
        ierr = 601
./pkg/cal/cal_addtime.F 80 CAL_ADDTIME 
        call CAL_PRINTERROR( ierr, mythid)
./pkg/cal/cal_stepsperday.F 57 CAL_STEPSPERDAY 
      integer ierr
./pkg/cal/cal_stepsperday.F 79 CAL_STEPSPERDAY 
        ierr = 1101
./pkg/cal/cal_stepsperday.F 80 CAL_STEPSPERDAY 
        call CAL_PRINTERROR( ierr, mythid )
./pkg/cal/cal_numints.F 52 NO PROCEDURE 
      integer ierr
./pkg/cal/cal_numints.F 64 NO PROCEDURE 
        ierr = 2501
./pkg/cal/cal_numints.F 65 NO PROCEDURE 
        call CAL_PRINTERROR( ierr, mythid )
./pkg/cal/cal_set.F 107 CAL_SET 
      integer ierr
./pkg/cal/cal_set.F 150 CAL_SET 
        ierr = 102
./pkg/cal/cal_set.F 151 CAL_SET 
        call CAL_PRINTERROR( ierr, mythid )
./pkg/cal/cal_set.F 155 CAL_SET 
        ierr = 103
./pkg/cal/cal_set.F 156 CAL_SET 
        call CAL_PRINTERROR( ierr, mythid )
./pkg/cal/cal_set.F 160 CAL_SET 
        ierr = 104
./pkg/cal/cal_set.F 161 CAL_SET 
        call CAL_PRINTERROR( ierr, mythid )
./pkg/cal/cal_set.F 293 CAL_SET 
        ierr = 110
./pkg/cal/cal_set.F 294 CAL_SET 
        call CAL_PRINTERROR( ierr, mythid )
./pkg/cal/cal_set.F 320 CAL_SET 
        ierr = 111
./pkg/cal/cal_set.F 321 CAL_SET 
        call CAL_PRINTERROR( ierr, mythid )
./pkg/cal/cal_set.F 348 CAL_SET 
        ierr = 101
./pkg/cal/cal_set.F 349 CAL_SET 
        call CAL_PRINTERROR( ierr, mythid )
./pkg/cal/cal_set.F 396 CAL_SET 
          ierr = 107
./pkg/cal/cal_set.F 397 CAL_SET 
          call CAL_PRINTERROR( ierr, mythid )
./pkg/cal/cal_set.F 406 CAL_SET 
        ierr = 106
./pkg/cal/cal_set.F 407 CAL_SET 
        call CAL_PRINTERROR( ierr, mythid )
./pkg/cal/cal_set.F 428 CAL_SET 
        ierr = 112
./pkg/cal/cal_set.F 429 CAL_SET 
        call CAL_PRINTERROR( ierr, mythid )
./pkg/cal/cal_set.F 432 CAL_SET 
        ierr = 113
./pkg/cal/cal_set.F 433 CAL_SET 
        call CAL_PRINTERROR( ierr, mythid )
./pkg/cal/cal_set.F 436 CAL_SET 
        ierr = 114
./pkg/cal/cal_set.F 437 CAL_SET 
        call CAL_PRINTERROR( ierr, mythid )
./pkg/cal/cal_set.F 440 CAL_SET 
        ierr = 115
./pkg/cal/cal_set.F 441 CAL_SET 
        call CAL_PRINTERROR( ierr, mythid )
./pkg/cal/cal_s