yomsc2.F90

Go to the documentation of this file.

MODULE yomsc2

USE parkind1  ,ONLY : jpim

IMPLICIT NONE

SAVE

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

! NSLWIDE    : NUMBER OF "ROWS" THE MODEL LAGGED PART RUNS BEHIND
! NOBWIDE    : NUMBER OF "ROWS" FOR OBSERVATION HALO
! NRIWIDEN   : NUMBER OF "ROWS" FOR RADIATION INPUT NORTH (MODEL GRID)
! NRIWIDES   : NUMBER OF "ROWS" FOR RADIATION INPUT SOUTH (MODEL GRID)
! NRIWIDEW   : NUMBER OF "ROWS" FOR RADIATION INPUT WEST  (MODEL GRID)
! NRIWIDEE   : NUMBER OF "ROWS" FOR RADIATION INPUT EAST  (MODEL GRID)
! NROWIDEN   : NUMBER OF "ROWS" FOR RADIATION OUTPUT NORTH (RADIATION GRID)
! NROWIDES   : NUMBER OF "ROWS" FOR RADIATION OUTPUT SOUTH (RADIATION GRID)
! NROWIDEW   : NUMBER OF "ROWS" FOR RADIATION OUTPUT WEST  (RADIATION GRID)
! NROWIDEE   : NUMBER OF "ROWS" FOR RADIATION OUTPUT EAST  (RADIATION GRID)
! NFLDSLB1   : NUMBER OF FIELDS IN SEMI-LAGRANGIAN BUFFER 1
! NFLDSLB2   : NUMBER OF FIELDS IN SEMI-LAGRANGIAN BUFFER 2
! NFLDOBB1   : NUMBER OF FIELDS IN OBSERVATION BUFFER 1
! NFLDSLB15  : NUMBER OF FIELDS IN SEMI-LAGRANGIAN BUFFER 15 (TL and adjoint)
! NDIST      : START ADRESS FOR EACH ROW IN GRID-POINT CALCULATIONS
! NDIEND     : END   ADRESS FOR EACH ROW IN GRID-POINT CALCULATIONS
! NCIST      : START ADRESS FOR EACH ROW OF GRID-POINT FIELD IN BUFFER
! NCIEND     : END   ADRESS FOR EACH ROW OF GRID-POINT FIELD IN BUFFER

INTEGER(KIND=JPIM),ALLOCATABLE:: ndist(:)
INTEGER(KIND=JPIM),ALLOCATABLE:: ndiend(:)
INTEGER(KIND=JPIM),ALLOCATABLE:: ncist(:)
INTEGER(KIND=JPIM),ALLOCATABLE:: nciend(:)

INTEGER(KIND=JPIM) :: nslwide
INTEGER(KIND=JPIM) :: nfldslb1
INTEGER(KIND=JPIM) :: nfldslb2
INTEGER(KIND=JPIM) :: nfldobb1
INTEGER(KIND=JPIM) :: nfldslb15
INTEGER(KIND=JPIM) :: nobwide
INTEGER(KIND=JPIM) :: nriwiden
INTEGER(KIND=JPIM) :: nriwides
INTEGER(KIND=JPIM) :: nriwidew
INTEGER(KIND=JPIM) :: nriwidee
INTEGER(KIND=JPIM) :: nrowiden
INTEGER(KIND=JPIM) :: nrowides
INTEGER(KIND=JPIM) :: nrowidew
INTEGER(KIND=JPIM) :: nrowidee

!-----------------------------------------------------------------------
!$OMP THREADPRIVATE(nfldobb1,nfldslb1,nfldslb15,nfldslb2,nobwide,nriwidee,nriwiden,nriwides)
!$OMP THREADPRIVATE(nriwidew,nrowidee,nrowiden,nrowides,nrowidew,nslwide)
!$OMP THREADPRIVATE(nciend,ncist,ndiend,ndist)
END MODULE yomsc2