Skip to content
Snippets Groups Projects
Commit 29ad66ff authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 26/09/2016: OpenACC: added aborts for parts not yet implemented,...

Philippe 26/09/2016: OpenACC: added aborts for parts not yet implemented, removed warning for parts to be tested
parent 93b84ecc
No related branches found
No related tags found
No related merge requests found
......@@ -467,7 +467,6 @@ PRINT *,'OPENACC: prandtl::1DIM not yet tested'
ELSE IF (L2D) THEN ! 3D case in a 2D model
!
IF (KRR /= 0) THEN ! moist 3D case
PRINT *,'OPENACC: prandtl::L2D=.T. and KRR/=0 not yet tested'
#ifndef _OPENACC
PRED2TH3(:,:,:)= PREDTH1(:,:,:)**2+(XCTV*PBLL_O_E(:,:,:)*PETHETA(:,:,:) )**2 * &
MZM(KKA,KKU,KKL, GX_M_M(KKA,KKU,KKL,PTHLM,PDXX,PDZZ,PDZX)**2 )
......@@ -555,7 +554,6 @@ PRINT *,'OPENACC: prandtl::L2D=.T. and KRR=0 not yet tested'
ELSE ! 3D case in a 3D model
!
IF (KRR /= 0) THEN ! moist 3D case
PRINT *,'OPENACC: prandtl::L2D=.F. and KRR/=0 not yet tested'
#ifndef _OPENACC
PRED2TH3(:,:,:)= PREDTH1(:,:,:)**2 + ( XCTV*PBLL_O_E(:,:,:)*PETHETA(:,:,:) )**2 * &
MZM(KKA,KKU,KKL, GX_M_M(KKA,KKU,KKL,PTHLM,PDXX,PDZZ,PDZX)**2 &
......
......@@ -99,6 +99,10 @@ REAL, DIMENSION(SIZE(PFLXU,1),SIZE(PFLXU,2),SIZE(PFLXU,3)) :: ZWIND
! intermediate wind for SBL calculation
REAL, DIMENSION(SIZE(PZZ,1),SIZE(PZZ,2)) :: ZSBL_THER! SBL wih thermal criteria
REAL, DIMENSION(SIZE(PZZ,1),SIZE(PZZ,2)) :: ZA ! ponderation coefficient
#ifdef _OPENACC
PRINT *,'OPENACC: SBL_DEPTH:: not yet implemented'
CALL ABORT
#endif
!----------------------------------------------------------------------------
!
!* initialisations
......
......@@ -150,6 +150,10 @@ REAL :: ZCTSVD = 2.4 ! constant for temperature - scalar covariance dissipation
REAL :: ZCQSVD = 2.4 ! constant for humidity - scalar covariance dissipation
! ---------------------------------------------------------------------------
!
#ifdef _OPENACC
PRINT *,'OPENACC: TURB_HOR_SV_CORR:: not yet implemented'
CALL ABORT
#endif
IKU=SIZE(PTKEM,3)
CALL SECOND_MNH(ZTIME1)
!
......
......@@ -169,6 +169,10 @@ REAL :: ZCTSVD = 2.4 ! constant for temperature - scalar covariance dissipation
REAL :: ZCQSVD = 2.4 ! constant for humidity - scalar covariance dissipation
!----------------------------------------------------------------------------
!
#ifdef _OPENACC
PRINT *,'OPENACC: TURB_VER_SV_CORR:: not yet implemented'
CALL ABORT
#endif
CALL SECOND_MNH(ZTIME1)
!
DO JSV=1,NSV
......
......@@ -186,9 +186,6 @@ END MODULE MODI_TURB_VER_SV_FLUX
!! SUBROUTINE TRIDIAG : to compute the splitted implicit evolution
!! of a variable located at a mass point
!!
!! SUBROUTINE TRIDIAG_WIND: to compute the splitted implicit evolution
!! of a variable located at a wind point
!!
!! FUNCTIONs ETHETA and EMOIST :
!! allows to compute:
!! - the coefficients for the turbulent correlation between
......@@ -285,9 +282,6 @@ USE MODI_GRADIENT_W
USE MODI_GRADIENT_M
USE MODI_SHUMAN
USE MODI_TRIDIAG
USE MODI_TRIDIAG_WIND
USE MODI_EMOIST
USE MODI_ETHETA
USE MODE_FMWRIT
USE MODI_LES_MEAN_SUBGRID
!
......@@ -373,7 +367,10 @@ REAL :: ZCSVP = 4.0 ! constant for scalar flux presso-correlation (RS81)
!* 1. PRELIMINARIES
! -------------
!
#ifdef _OPENACC
PRINT *,'OPENACC: TURB_VER_SV_FLUX:: not yet implemented'
CALL ABORT
#endif
IKB=KKA+JPVEXT_TURB*KKL
IKE=KKU-JPVEXT_TURB*KKL
IKT=SIZE(PSVM,3)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment