C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/nesting_sannino/nest_child/nest_child_recv.F,v 1.3 2010/11/28 02:10:05 jmc Exp $
C $Name:  $

#include "NEST_CHILD_OPTIONS.h"

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
CBOP
C     !ROUTINE: NEST_CHILD_RECV

C     !INTERFACE:
      SUBROUTINE NEST_CHILD_RECV ( myThid )

C     !DESCRIPTION:

C     !USES:
      IMPLICIT NONE
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "EESUPPORT.h"
#include "NEST_CHILD_PARAMS.h"
#include "NEST_CHILD.h"

C     !INPUT/OUTPUT PARAMETERS:
C     myThid :: my Thread Id number
      INTEGER myThid
CEOP

C     !LOCAL VARIABLES:
      INTEGER mpirc, istatus(MPI_STATUS_SIZE)
      INTEGER indF
      PARAMETER( indF = (sNy+OLy+OLy)*Nr*2*5 )
      _RL  VAR_F1(1-OLy:sNy+OLy,Nr,2,5)

#ifdef ALLOW_DEBUG
      IF (debugMode) CALL DEBUG_ENTER('NEST_CHILD_RECV',myThid)
#endif

      _BEGIN_MASTER( mythid )

      CALL MPI_RECV ( VAR_F1, indF, MPI_REAL8,
     &                  MSTR_DRV_C(NST_LEV_C), 3000,
     &                  MPI_COMM_World, istatus,mpiRC)

      U_F1(:,:,:) = VAR_F1(:,:,:,1)
      V_F1(:,:,:) = VAR_F1(:,:,:,2)
      T_F1(:,:,:) = VAR_F1(:,:,:,3)
      S_F1(:,:,:) = VAR_F1(:,:,:,4)
      ETA_F1(:,:,:) = VAR_F1(:,:,:,5)

      _END_MASTER(myThid)

      CALL MPI_BARRIER( MPI_COMM_MODEL, mpiRC )

#ifdef ALLOW_DEBUG
      IF (debugMode) CALL DEBUG_LEAVE('NEST_CHILD_RECV',myThid)
#endif

      RETURN
      END