myrecvset_mod.F90

Go to the documentation of this file.

MODULE myrecvset_mod
CONTAINS
FUNCTION myrecvset(KSETS,KMYSET,KSET)

#ifdef DOC

!**** *MYRECVSET* RETURNS SET NUMBER TO SEND TO

!     Purpose.
!     --------
!       

!**   Interface.
!     ----------
!        ISENDSET = MYRECVSET(KSETS,KMYSET,KSET)

!        Explicit arguments :  
!        --------------------
!                  input:   KSETS

!        Implicit arguments :  NONE
!        --------------------
!     Method.
!     -------

!        

!     Externals.
!     ----------
!         NONE

!     Reference.
!     ----------
!        ECMWF Research Department documentation of the IFS

!     Author.
!     -------
!        Mats Hamrud *ECMWF*

!     Modifications.
!     --------------
!        Original : 00-02-03

!     ------------------------------------------------------------------
#endif

USE parkind1  ,ONLY : jpim     ,jprb
USE abort_trans_mod

IMPLICIT NONE
INTEGER(KIND=JPIM) :: MYRECVSET
INTEGER(KIND=JPIM),INTENT(IN)  :: KSETS,KMYSET,KSET


!     ------------------------------------------------------------------

!*       1.    Check input argument for validity 
!              ---------------------------------

IF(ksets < 1 .OR. kmyset > ksets .OR. kset > ksets-1) THEN

  CALL abort_trans(' MYRECVSET: INVALID ARGUMENT ')

ELSE

!*       2.    Compute output parameters
!              -------------------------

  myrecvset = mod(-kset-1+kmyset+ksets,ksets)+1

ENDIF

END FUNCTION myrecvset
END MODULE myrecvset_mod