yoewcou.F90

Go to the documentation of this file.

MODULE yoewcou

USE parkind1  ,ONLY : jpim     ,jprb

IMPLICIT NONE

SAVE

!*    ** *YOEWCOU* - VARIABLES FOR COUPLING WITH THE WAVE MODEL

!     P. VITERBO     E.C.M.W.F.       07/10/88
!     P. VITERBO     E.C.M.W.F.       03/02/92
!     J. DOYLE       E.C.M.W.F.       21/11/96 
!     J. BIDLOT      E.C.M.W.F.       13/06/97 
!     J. BIDLOT      E.C.M.W.F.       11/08/98 
!     G. MOZDZYNSKI  E.C.M.W.F.       14/01/05

!      NAME      TYPE       PURPOSE
!      ----      ----       -------

!     *NLONW*    INTEGER    NUMBER OF POINTS IN A LATITUDE LINE IN
!                           THE WAVE MODEL
!     *NLATW*    INTEGER    NUMBER OF LATITUDES IN THE WAVE MODEL.
!     *NLON1W*   INTEGER    *NLONW*
!     *NLAT1W*   INTEGER    TOTAL NUMBER OF LATITUDES WITH THE WAVE
!                           MODEL RESOLUTION.
!     *NNORXW*   INTEGER    NUMBER OF EXTRA POINTS NORTHWARDS OF THE
!                           NORTHERN BOUNDARY OF THE WAVE MODEL.
!     *CBEGDAT*  CHARACTER  INITIAL DATE OF FORECAST (YYYYMMDDHHmm)
!     *NDURAT*   INTEGER    DURATION (IN MINUTES) OF TOTAL WAVE INTEGRATION
!                              (OR FORECAST TIME IN MINUTES).
!     *NSTPW*    INTEGER    FREQUENCY OF CALL TO THE WAVE MODEL.
!     *NRESUM*   INTEGER    TIME STEP OF A RESTART EVENT
!     *LWCOU*    LOGICAL    TRUE IF THE WAVE MODEL IS TO BE RUN.
!     *LWCOU2W*  LOGICAL    TRUE IF TWO-WAY INTERACTION WITH THE WAVE MODEL.
!                           FALSE IF ONE-WAY INTERACTION WITH THE WAVE MODEL
!     *LWCOUNORMS* LOGICAL  TRUE IF NORMS OF COUPLED FIELDS ARE REQUIRED
!     *RSOUTW*   REAL       SOUTH BOUNDARY OF THE WAVE MODEL.
!     *RNORTW*   REAL       NORTH BOUNDARY OF THE WAVE MODEL.
!     *RDEGREW*  REAL       RESOLUTION OF THE WAVE MODEL (DEGREES).
!
!     *MASK_WAVE_IN*  INTEGER  COMMS MASK FOR INPUT TO WAVE MODEL
!     *MASK_WAVE_OUT* INTEGER  COMMS MASK FOR OUTPUT FROM WAVE MODEL
!
!     *LWVIN_MASK_NOT_SET* LOGICAL indicates whether mask_wave_in
!                           has been updated on the first call to the 
!                           wave model
!     *LWVIN_UNINITIALISED* LOGICAL indicates whether the mwvin_* data
!                           structures are initialised
!     *MWVIN_SENDCNT* INTEGER nproc sized array describing how many grid 
!                           points need to be sent (or copied) by the 
!                           local task to remote tasks (or this task)
!     *MWVIN_RECVCNT* INTEGER nproc sized array describing how many grid 
!                           points need to be received by the local task 
!                           from a remote task
!     *MWVIN_SENDTOT* INTEGER total number of grid points to be sent to 
!                           remote tasks
!     *MWVIN_RECVTOT* INTEGER total number of grid points to be received 
!                           from remote tasks
!     *MWVIN_SENDOFF* INTEGER nproc sized array containing offsets into 
!                           the MWVIN_SENDBUF and MWVIN_SENDIND arrays
!     *MWVIN_SENDBUF* INTEGER local indexes of data on remote tasks that
!                           the local task needs
!     *MWVIN_SENDIND* INTEGER global indexes of data on remote tasks that
!                           the local task needs
!
!     *MWVIN_RECVOFF* INTEGER nproc sized array containing offsets into 
!                           the MWVIN_RECVBUF array
!     *MWVIN_RECVBUF* INTEGER local indexes of data on the local task that
!                           remote tasks need
!


INTEGER(KIND=JPIM) :: nlonw
INTEGER(KIND=JPIM) :: nlatw
INTEGER(KIND=JPIM) :: nlon1w
INTEGER(KIND=JPIM) :: nlat1w
INTEGER(KIND=JPIM) :: nnorxw
INTEGER(KIND=JPIM) :: ndurat
INTEGER(KIND=JPIM) :: nstpw
INTEGER(KIND=JPIM) :: nresum

REAL(KIND=JPRB) :: rsoutw
REAL(KIND=JPRB) :: rnortw
REAL(KIND=JPRB) :: rdegrew

LOGICAL :: lwcou
LOGICAL :: lwcou2w
LOGICAL :: lwcounorms
CHARACTER :: cbegdat*12

INTEGER(KIND=JPIM), ALLOCATABLE :: mask_wave_in(:)
INTEGER(KIND=JPIM), ALLOCATABLE :: mask_wave_out(:,:)

LOGICAL :: lwvin_mask_not_set
LOGICAL :: lwvin_uninitialised

INTEGER(KIND=JPIM) :: mwvin_sendtot
INTEGER(KIND=JPIM) :: mwvin_recvtot

INTEGER(KIND=JPIM),ALLOCATABLE :: mwvin_sendcnt(:)
INTEGER(KIND=JPIM),ALLOCATABLE :: mwvin_recvcnt(:)

INTEGER(KIND=JPIM),ALLOCATABLE :: mwvin_sendoff(:)
INTEGER(KIND=JPIM),ALLOCATABLE :: mwvin_recvoff(:)

INTEGER(KIND=JPIM),ALLOCATABLE :: mwvin_sendbuf(:)
INTEGER(KIND=JPIM),ALLOCATABLE :: mwvin_recvbuf(:)

INTEGER(KIND=JPIM),ALLOCATABLE :: mwvin_sendind(:)


!     ------------------------------------------------------------------
!$OMP THREADPRIVATE(cbegdat,lwcou,lwcou2w,lwcounorms,lwvin_mask_not_set,lwvin_uninitialised,mwvin_recvtot)
!$OMP THREADPRIVATE(mwvin_sendtot,ndurat,nlat1w,nlatw,nlon1w,nlonw,nnorxw,nresum,nstpw,rdegrew,rnortw,rsoutw)
END MODULE yoewcou