nesting_sannino/nest_child/nest_child_recv.F

C $Header: /u/gcmpack/MITgcm_contrib/nesting_sannino/nest_child/nest_child_recv.F,v 1.2 2009/10/23 19:44:02 sannino 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
1	jmc	1.3	C $Header: /u/gcmpack/MITgcm_contrib/nesting_sannino/nest_child/nest_child_recv.F,v 1.2 2009/10/23 19:44:02 sannino Exp $
2	heimbach	1.1	C $Name: $
3
4	jmc	1.3	#include "NEST_CHILD_OPTIONS.h"
5	heimbach	1.1
6			C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
7			CBOP
8	jmc	1.3	C !ROUTINE: NEST_CHILD_RECV
9	heimbach	1.1
10			C !INTERFACE:
11			SUBROUTINE NEST_CHILD_RECV ( myThid )
12
13	jmc	1.3	C !DESCRIPTION:
14
15	heimbach	1.1	C !USES:
16			IMPLICIT NONE
17			#include "SIZE.h"
18			#include "EEPARAMS.h"
19			#include "PARAMS.h"
20			#include "EESUPPORT.h"
21			#include "NEST_CHILD_PARAMS.h"
22			#include "NEST_CHILD.h"
23
24			C !INPUT/OUTPUT PARAMETERS:
25	jmc	1.3	C myThid :: my Thread Id number
26	heimbach	1.1	INTEGER myThid
27	jmc	1.3	CEOP
28	heimbach	1.1
29	jmc	1.3	C !LOCAL VARIABLES:
30			INTEGER mpirc, istatus(MPI_STATUS_SIZE)
31			INTEGER indF
32			PARAMETER( indF = (sNy+OLy+OLy)Nr2*5 )
33	heimbach	1.1	_RL VAR_F1(1-OLy:sNy+OLy,Nr,2,5)
34
35	jmc	1.3	#ifdef ALLOW_DEBUG
36			IF (debugMode) CALL DEBUG_ENTER('NEST_CHILD_RECV',myThid)
37			#endif
38
39			_BEGIN_MASTER( mythid )
40	sannino	1.2
41	jmc	1.3	CALL MPI_RECV ( VAR_F1, indF, MPI_REAL8,
42	sannino	1.2	& MSTR_DRV_C(NST_LEV_C), 3000,
43	heimbach	1.1	& MPI_COMM_World, istatus,mpiRC)
44
45	sannino	1.2	U_F1(:,:,:) = VAR_F1(:,:,:,1)
46			V_F1(:,:,:) = VAR_F1(:,:,:,2)
47			T_F1(:,:,:) = VAR_F1(:,:,:,3)
48			S_F1(:,:,:) = VAR_F1(:,:,:,4)
49	heimbach	1.1	ETA_F1(:,:,:) = VAR_F1(:,:,:,5)
50
51			_END_MASTER(myThid)
52	jmc	1.3
53	heimbach	1.1	CALL MPI_BARRIER( MPI_COMM_MODEL, mpiRC )
54	jmc	1.3
55			#ifdef ALLOW_DEBUG
56			IF (debugMode) CALL DEBUG_LEAVE('NEST_CHILD_RECV',myThid)
57			#endif
58
59	heimbach	1.1	RETURN
60			END