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

src/MNH/prandtl.f90

@@ -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 &

src/MNH/sbl_depth.f90

@@ -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

src/MNH/turb_hor_sv_corr.f90

@@ -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)
 !

src/MNH/turb_ver_sv_corr.f90

@@ -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

src/MNH/turb_ver_sv_flux.f90

@@ -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)