!=======================================================================
! RCS Header:
!   Revision     [$Revision: 1.4.2.1 $]     Named [$Name: release#2_9_b5 $]
!   Last checkin [$Date: 2001/12/06 10:14:04 $]
!   Author       [$Author: frpb $]
!=======================================================================

! *****************************COPYRIGHT*******************************
! (c) CROWN COPYRIGHT 2001, Met Office, All Rights Reserved.           
! Please refer to Copyright file in top level GCOM directory
!                 for further details
! *****************************COPYRIGHT*******************************

      INTEGER FUNCTION GC_ME ()
!     ******************************************************************
!     * Purpose:
!     *  
!     *  Return my node id, in the range 0...nprocs-1.
!     *
!     * Input:
!     *
!     * Output:
!     *
!     * NOTES:       
!     * 
!     ******************************************************************

      IMPLICIT NONE
#include "gc__init_common.h"


      GC_ME = GC__ME
      
      RETURN
      END