diff --git a/src/MNH/advec_4th_order_aux.f90 b/src/MNH/advec_4th_order_aux.f90
index a02a9bbbe3d0fe31f3e4210805e0ced089aaca55..5f2092ff03fccb69ff197db9b0b3ac9e23f1cf4f 100644
--- a/src/MNH/advec_4th_order_aux.f90
+++ b/src/MNH/advec_4th_order_aux.f90
@@ -112,6 +112,9 @@ USE MODD_CONF
USE MODE_DEVICE
#endif
use mode_ll, only: GET_INDICE_ll, LWEST_ll, LEAST_ll, LNORTH_ll, LSOUTH_ll
+#ifdef _OPENACC
+use mode_msg
+#endif
!
IMPLICIT NONE
!
@@ -150,7 +153,7 @@ REAL, DIMENSION(SIZE(PFIELDT,1),SIZE(PFIELDT,3)) :: ZHALO2_SOUTH,ZHALO2_NOR
! ------------------------------
!
#ifdef _OPENACC
-PRINT *,'OPENACC: ADVEC_4TH_ORDER_ALGO not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'ADVEC_4TH_ORDER_ALGO', 'OpenACC: not yet tested' )
CALL INIT_ON_HOST_AND_DEVICE(ZHALO2_WEST,-1e99,'ADVEC_4TH_ORDER_ALGO::ZHALO2_WEST')
CALL INIT_ON_HOST_AND_DEVICE(ZHALO2_EAST,-1e99,'ADVEC_4TH_ORDER_ALGO::ZHALO2_EAST')
CALL INIT_ON_HOST_AND_DEVICE(ZHALO2_SOUTH,-1e99,'ADVEC_4TH_ORDER_ALGO::ZHALO2_SOUTH')
@@ -187,7 +190,7 @@ SELECT CASE ( HLBCX(1) ) ! X direction LBC type: (1) for left side
CASE ('CYCL') ! In that case one must have HLBCX(1) == HLBCX(2)
!
#ifdef _OPENACC
-PRINT *,'OPENACC: ADVEC_4TH_ORDER_ALGO::HLBCX(1) AND CYCL not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'ADVEC_4TH_ORDER_ALGO', 'OpenACC: HLBCX(1) AND CYCL not yet tested' )
#endif
ZHALO2_WEST(:,:) = TPHALO2%WEST(:,:)
ZHALO2_EAST(:,:) = TPHALO2%EAST(:,:)
@@ -235,7 +238,7 @@ ZHALO2_EAST(:,:) = TPHALO2%EAST(:,:)
CASE ('OPEN','WALL','NEST')
!
#ifdef _OPENACC
-PRINT *,'OPENACC: ADVEC_4TH_ORDER_ALGO::HLBCX(1) AND OPEN/WALL/NEST not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'ADVEC_4TH_ORDER_ALGO', 'OpenACC: HLBCX(1) AND OPEN/WALL/NEST not yet tested' )
#endif
ZHALO2_WEST(:,:) = TPHALO2%WEST(:,:)
ZHALO2_EAST(:,:) = TPHALO2%EAST(:,:)
@@ -318,7 +321,7 @@ IF ( .NOT. L2D ) THEN
CASE ('CYCL') ! In that case one must have HLBCY(1) == HLBCY(2)
!
#ifdef _OPENACC
-PRINT *,'OPENACC: ADVEC_4TH_ORDER_ALGO::HLBCX(2) AND CYCL not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'ADVEC_4TH_ORDER_ALGO', 'OpenACC: HLBCX(2) AND CYCL not yet tested' )
#endif
ZHALO2_SOUTH(:,:) = TPHALO2%SOUTH(:,:)
ZHALO2_NORTH(:,:) = TPHALO2%NORTH(:,:)
@@ -366,7 +369,7 @@ ZHALO2_NORTH(:,:) = TPHALO2%NORTH(:,:)
CASE ('OPEN','WALL','NEST')
!
#ifdef _OPENACC
-PRINT *,'OPENACC: ADVEC_4TH_ORDER_ALGO::HLBCX(2) AND OPEN/WALL/NEST not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'ADVEC_4TH_ORDER_ALGO', 'OpenACC: HLBCX(2) AND OPEN/WALL/NEST not yet tested' )
#endif
ZHALO2_SOUTH(:,:) = TPHALO2%SOUTH(:,:)
ZHALO2_NORTH(:,:) = TPHALO2%NORTH(:,:)
diff --git a/src/MNH/advec_ppm_algo.f90 b/src/MNH/advec_ppm_algo.f90
index 7b1388e7e4affa4c8b1adb9725020282e9fc1d1e..6fc8e9945a301411b945cf56c5289aaed8e9915a 100644
--- a/src/MNH/advec_ppm_algo.f90
+++ b/src/MNH/advec_ppm_algo.f90
@@ -144,6 +144,9 @@ USE MODD_TYPE_DATE
USE MODE_DEVICE
#endif
use mode_mppdb
+#ifdef _OPENACC
+use mode_msg
+#endif
!
USE MODI_SHUMAN
USE MODI_PPM
@@ -221,7 +224,7 @@ SELECT CASE (HMET_ADV_SCHEME)
!
CASE('PPM_00')
#ifdef _OPENACC
-PRINT *,'OPENACC: advec_ppm_algo::PPM_00 not yet tested'
+ call Print_msg( NVERB_WARNING, 'GEN', 'ADVEC_PPM_ALGO', 'OpenACC: PPM_00 not yet tested' )
#endif
!
! IF (MODULO(KTCOUNT,2) .EQ. 0) THEN ! JUANTEST50
@@ -411,7 +414,7 @@ CASE('PPM_01')
!
CASE('PPM_02')
#ifdef _OPENACC
-PRINT *,'OPENACC: advec_ppm_algo::PPM_02 not yet tested'
+ call Print_msg( NVERB_WARNING, 'GEN', 'ADVEC_PPM_ALGO', 'OpenACC: PPM_02 not yet tested' )
#endif
!
IF (GFLAG ) THEN
diff --git a/src/MNH/advec_weno_k_2_aux.f90 b/src/MNH/advec_weno_k_2_aux.f90
index 61d549d605cf2c4d431fc6aa2e606cf99d0198c5..c09e52857528094effa1926cdea703fd0ee76dbd 100644
--- a/src/MNH/advec_weno_k_2_aux.f90
+++ b/src/MNH/advec_weno_k_2_aux.f90
@@ -300,6 +300,9 @@ USE MODD_CONF
USE MODD_ARGSLIST_ll, ONLY : HALO2LIST_ll
USE MODI_GET_HALO
USE MODE_MPPDB
+#ifdef _OPENACC
+use mode_msg
+#endif
!
#ifdef MNH_BITREP
USE MODI_BITREP
@@ -412,7 +415,7 @@ SELECT CASE ( HLBCX(1) ) ! X direction LBC type: (1) for left side
!
CASE ('CYCL') ! In that case one must have HLBCX(1) == HLBCX(2)
#ifdef _OPENACC
-PRINT *,'OPENACC: advec_weno_k_2_aux::ADVEC_WENO_K_2_UX::CYCL not yet tested'
+ call Print_msg( NVERB_WARNING, 'GEN', 'ADVEC_WENO_K_2_UX', 'OpenACC: CYCL not yet tested' )
#endif
!
IW=IIB
@@ -684,6 +687,9 @@ USE MODI_GET_HALO
USE MODI_BITREP
#endif
use mode_mppdb
+#ifdef _OPENACC
+use mode_msg
+#endif
!
IMPLICIT NONE
!
@@ -792,7 +798,7 @@ SELECT CASE ( HLBCX(1) ) ! X direction LBC type: (1) for left side
!
CASE ('CYCL') ! In that case one must have HLBCX(1) == HLBCX(2)
#ifdef _OPENACC
-PRINT *,'OPENACC: advec_weno_k_2_aux::ADVEC_WENO_K_2_MX::CYCL not yet tested'
+ call Print_msg( NVERB_WARNING, 'GEN', 'ADVEC_WENO_K_2_MX', 'OpenACC: CYCL not yet tested' )
#endif
!
IW=IIB
@@ -1065,6 +1071,9 @@ USE MODI_GET_HALO
USE MODI_BITREP
#endif
use mode_mppdb
+#ifdef _OPENACC
+use mode_msg
+#endif
!
IMPLICIT NONE
!
@@ -1175,7 +1184,7 @@ SELECT CASE ( HLBCY(1) ) !
!
CASE ('CYCL') ! In that case one must have HLBCY(1) == HLBCY(2)
#ifdef _OPENACC
-PRINT *,'OPENACC: advec_weno_k_2_aux::ADVEC_WENO_K_2_MY::CYCL not yet tested'
+ call Print_msg( NVERB_WARNING, 'GEN', 'ADVEC_WENO_K_2_MY', 'OpenACC: CYCL not yet tested' )
#endif
!
IS=IJB
@@ -1444,6 +1453,9 @@ USE MODI_GET_HALO
USE MODI_BITREP
#endif
use mode_mppdb
+#ifdef _OPENACC
+use mode_msg
+#endif
!
IMPLICIT NONE
!
@@ -1552,7 +1564,7 @@ SELECT CASE ( HLBCY(1) ) ! Y direction LBC type: (1) for left side
!
CASE ('CYCL') ! In that case one must have HLBCX(1) == HLBCX(2)
#ifdef _OPENACC
-PRINT *,'OPENACC: advec_weno_k_2_aux::ADVEC_WENO_K_2_VY::CYCL not yet tested'
+ call Print_msg( NVERB_WARNING, 'GEN', 'ADVEC_WENO_K_2_VY', 'OpenACC: CYCL not yet tested' )
#endif
!
IS=IJB
diff --git a/src/MNH/advection_uvw_cen.f90 b/src/MNH/advection_uvw_cen.f90
index 45885968129f284481c757b4ce862236b1fb9f5e..f0d4b1e81217abe056ec3dd2d2fed111c3f388c3 100644
--- a/src/MNH/advection_uvw_cen.f90
+++ b/src/MNH/advection_uvw_cen.f90
@@ -196,7 +196,7 @@ INTEGER :: IZ1, IZ2
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: ADVECTION_UVW_CEN not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'ADVECTION_UVW_CEN', 'OpenACC: not yet tested' )
#endif
!-------------------------------------------------------------------------------
!
diff --git a/src/MNH/advecuvw_4th.f90 b/src/MNH/advecuvw_4th.f90
index 99cc9d1c86098fa72934d39a014a39cfb1d75fbc..6b934947c2893c5a80c8ad8245f55c89ecdac978 100644
--- a/src/MNH/advecuvw_4th.f90
+++ b/src/MNH/advecuvw_4th.f90
@@ -178,16 +178,20 @@ CONTAINS
!* 0. DECLARATIONS
! ------------
!
-USE MODE_ll
-!
-USE MODD_PARAMETERS
+USE MODD_ARGSLIST_ll, ONLY : HALO2LIST_ll
USE MODD_CONF
USE MODD_GRID_n
-USE MODD_ARGSLIST_ll, ONLY : HALO2LIST_ll
-!
-USE MODI_SHUMAN
-!
+USE MODD_PARAMETERS
+
+USE MODE_ll
+#ifdef _OPENACC
+use mode_msg
+#endif
+
USE MODI_ADVEC_4TH_ORDER_AUX
+#ifndef _OPENACC
+USE MODI_SHUMAN
+#endif
!
IMPLICIT NONE
!
@@ -257,7 +261,7 @@ INTEGER :: II
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: ADVECUVW_4TH not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'ADVECUVW_4TH', 'OpenACC: not yet tested' )
#endif
!-------------------------------------------------------------------------------
!
diff --git a/src/MNH/fast_terms.f90 b/src/MNH/fast_terms.f90
index 2f0f9f00801ba9eb5b00c9f3d07069c939faf56a..357cfb3a2801d61a68b4868051568295babeaf33 100644
--- a/src/MNH/fast_terms.f90
+++ b/src/MNH/fast_terms.f90
@@ -157,11 +157,15 @@ END MODULE MODI_FAST_TERMS
! ------------
!
USE MODD_BUDGET
-USE MODD_CST
USE MODD_CONF
+USE MODD_CST
USE MODD_LUNIT_n, ONLY: TLUOUT
USE MODD_PARAMETERS
-!
+
+#ifdef _OPENACC
+use mode_msg
+#endif
+
USE MODI_BUDGET
USE MODI_CONDENS
USE MODI_GET_HALO
@@ -231,7 +235,7 @@ LOGICAL,DIMENSION(SIZE(PRCS,1),SIZE(PRCS,2),SIZE(PRCS,3))::GWORK
! -------------
!
#ifdef _OPENACC
-PRINT *,'OPENACC: FAST_TERMS being implemented'
+call Print_msg( NVERB_ERROR, 'GEN', 'FAST_TERMS', 'OpenACC: being implemented' )
#endif
ILUOUT = TLUOUT%NLU
!
diff --git a/src/MNH/gradient_m.f90 b/src/MNH/gradient_m.f90
index 09ca8193187dac734081aef45e8dda8b5be37818..7431b5121e0251de93177e13e8f64e2e1d125ea7 100644
--- a/src/MNH/gradient_m.f90
+++ b/src/MNH/gradient_m.f90
@@ -1,12 +1,8 @@
-!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2019 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
-!--------------- special set of characters for RCS information
-!-----------------------------------------------------------------
-! $Source$ $Revision$
-!-----------------------------------------------------------------
! ######################
MODULE MODI_GRADIENT_M
! ######################
@@ -624,6 +620,7 @@ END FUNCTION GZ_M_M
USE MODI_SHUMAN_DEVICE
!
USE MODE_MNH_ZWORK, ONLY : ZT3D, MNH_GET_ZT3D , MNH_REL_ZT3D
+use mode_msg
!
IMPLICIT NONE
!
@@ -643,7 +640,7 @@ REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)), INTENT(OUT) :: PGZ_M_M ! res
INTEGER :: IDX1,IDX2
!
!----------------------------------------------------------------------------
-PRINT *,'OPENACC: GZ_M_M_DEVICE not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'GZ_M_M_DEVICE', 'OpenACC: not yet tested' )
CALL MNH_GET_ZT3D(IDX1,IDX2)
!
!* 1. DEFINITION of GZ_M_M
diff --git a/src/MNH/ice_adjust.f90 b/src/MNH/ice_adjust.f90
index 2e0a107b6f707f3c82045e9b89fa41225ba132c4..7c6453580311aaaee2d2fa12aa366306e4e5d681 100644
--- a/src/MNH/ice_adjust.f90
+++ b/src/MNH/ice_adjust.f90
@@ -176,6 +176,9 @@ USE MODD_CST
USE MODD_PARAMETERS
USE MODE_MPPDB
+#ifdef _OPENACC
+use mode_msg
+#endif
use mode_tools_ll, only: GET_INDICE_ll
#ifdef MNH_BITREP
@@ -457,7 +460,7 @@ IF ( .NOT. OSUBG_COND ) THEN
END IF
ELSE
#ifdef _OPENACC
- PRINT *,'OPENACC: ICE_ADJUST::OSUBG_COND=.T. not yet tested'
+ call Print_msg( NVERB_WARNING, 'GEN', 'ICE_ADJUST', 'OpenACC: OSUBG_COND=.T. not yet tested' )
#endif
!We limit PRC_MF+PRI_MF to PRVS*PTSTEP to avoid negative humidity
ZW1(:,:,:)=PRC_MF(:,:,:)/PTSTEP
diff --git a/src/MNH/les_mean_1proc.f90 b/src/MNH/les_mean_1proc.f90
index 458f7500c461cf8dcecf6cf89ba3616e08166845..56d02cca46ef793240ec40b31abcff3029aa2c00 100644
--- a/src/MNH/les_mean_1proc.f90
+++ b/src/MNH/les_mean_1proc.f90
@@ -1,13 +1,8 @@
-!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2000-2019 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
-!--------------- special set of characters for RCS information
-!-----------------------------------------------------------------
-! $Source$ $Revision$
-! MASDEV4_7 les 2006/05/18 13:07:25
-!-----------------------------------------------------------------
! ###################
MODULE MODI_LES_MEAN_1PROC
! ###################
@@ -220,6 +215,9 @@ END SUBROUTINE LES_MEAN_1PROC_2D
! ------------
!
USE MODE_ll
+#ifdef _OPENACC
+use mode_msg
+#endif
!
USE MODD_PARAMETERS
!
@@ -243,7 +241,7 @@ INTEGER :: JI, JJ ! loop counters
!-------------------------------------------------------------------------------
!
#ifdef _OPENACC
-PRINT *,'OPENACC: LES_MEAN_1PROC_DEVICE_2D not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'LES_MEAN_1PROC_DEVICE_2D', 'OpenACC: not yet tested' )
#endif
CALL GET_PHYSICAL_ll(IIB,IJB,IIE,IJE)
!
@@ -405,6 +403,7 @@ END SUBROUTINE LES_MEAN_1PROC_3D
! ------------
!
USE MODE_ll
+use mode_msg
!
USE MODD_PARAMETERS
!
@@ -432,7 +431,7 @@ REAL :: PA_MEAN_JK
INTEGER :: KAVG_PTS_JK, KUND_PTS_JK
!-------------------------------------------------------------------------------
!
-PRINT *,'OPENACC: LES_MEAN_1PROC_DEVICE_3D not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'LES_MEAN_1PROC_DEVICE_3D', 'OpenACC: not yet tested' )
CALL GET_PHYSICAL_ll(IIB,IJB,IIE,IJE)
IK=SIZE(PA,3)
!
@@ -610,6 +609,7 @@ END SUBROUTINE LES_MEAN_1PROC_3DM
! ------------
!
USE MODE_ll
+use mode_msg
!
USE MODD_PARAMETERS
!
@@ -635,7 +635,7 @@ INTEGER :: IK ! number of vertical levels
INTEGER :: JK ! loop counter
!-------------------------------------------------------------------------------
!
-PRINT *,'OPENACC: LES_MEAN_1PROC_DEVICE_3DM not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'LES_MEAN_1PROC_DEVICE_3DM', 'OpenACC: not yet tested' )
CALL GET_PHYSICAL_ll(IIB,IJB,IIE,IJE)
IK=SIZE(PA,3)
!
diff --git a/src/MNH/les_mean_subgrid.f90 b/src/MNH/les_mean_subgrid.f90
index c4b70eb91635ae637eafbd70568b5e3133ca36c5..2c07a5c1e2c02edd3630470fb1665288ee138ab5 100644
--- a/src/MNH/les_mean_subgrid.f90
+++ b/src/MNH/les_mean_subgrid.f90
@@ -1,13 +1,8 @@
-!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2000-2019 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
-!--------------- special set of characters for RCS information
-!-----------------------------------------------------------------
-! $Source$ $Revision$
-! MASDEV4_7 les 2006/08/30 18:41:10
-!-----------------------------------------------------------------
! #####################
MODULE MODI_LES_MEAN_SUBGRID
! #####################
@@ -77,9 +72,13 @@ END MODULE MODI_LES_MEAN_SUBGRID
! ------------
!
USE MODD_LES
-!
-USE MODI_LES_VER_INT
+
+#ifdef _OPENACC
+use mode_msg
+#endif
+
USE MODI_LES_MEAN_1PROC
+USE MODI_LES_VER_INT
!
IMPLICIT NONE
!
@@ -111,7 +110,7 @@ INTEGER :: JI ! loop control
!
IF (.NOT. LLES_CALL) RETURN
#ifdef _OPENACC
-PRINT *,'OPENACC: LES_MEAN_SUBGRID_3D not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'LES_MEAN_SUBGRID_3D', 'OpenACC: not yet tested' )
#endif
!
!
@@ -401,7 +400,11 @@ END SUBROUTINE LES_MEAN_SUBGRID_3D
! ------------
!
USE MODD_LES
-!
+
+#ifdef _OPENACC
+use mode_msg
+#endif
+
USE MODI_LES_MEAN_1PROC
!
IMPLICIT NONE
@@ -429,7 +432,7 @@ INTEGER :: IUND_PTS
!
IF (.NOT. LLES_CALL) RETURN
#ifdef _OPENACC
-PRINT *,'OPENACC: LES_MEAN_SUBGRID_SURF not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'LES_MEAN_SUBGRID_SURF', 'OpenACC: not yet tested' )
#endif
!
ZA_MEAN_OLD = 0.
diff --git a/src/MNH/mode_prandtl.f90 b/src/MNH/mode_prandtl.f90
index ca584a12cd8e62513ab5b45af043bde23944409f..c5cb9042b43749983cf9fdc673e0bf86b4dd0bb6 100644
--- a/src/MNH/mode_prandtl.f90
+++ b/src/MNH/mode_prandtl.f90
@@ -1,13 +1,8 @@
-!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2019 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
-!--------------- special set of characters for RCS information
-!-----------------------------------------------------------------
-! $Source$ $Revision$
-! MASDEV4_7 mode 2006/05/18 13:07:25
-!-----------------------------------------------------------------
! ####################
MODULE MODE_PRANDTL
! ####################
@@ -17,6 +12,11 @@
!
USE MODD_CTURB, ONLY : XCTV, XCSHF, XCTD, XPHI_LIM, XCPR3, XCPR4, XCPR5
USE MODD_PARAMETERS, ONLY : JPVEXT_TURB
+
+#ifdef _OPENACC
+use mode_msg
+#endif
+
#ifdef MNH_BITREP
USE MODI_BITREP
#endif
@@ -459,7 +459,7 @@ SUBROUTINE M3_WTH_WTH2(PREDTH1,PREDR1,PD,PBLL_O_E,PETHETA,PM3_WTH_WTH2)
INTEGER :: IKB, IKE
!
#ifdef _OPENACC
-PRINT *,'OPENACC: M3_WTH_WTH2 not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'M3_WTH_WTH2', 'OpenACC: not yet tested' )
#endif
IKB = 1+JPVEXT_TURB
IKE = SIZE(PD,3)-JPVEXT_TURB
@@ -497,7 +497,7 @@ SUBROUTINE D_M3_WTH_WTH2_O_DDTDZ(PM3_WTH_WTH2,PREDTH1,PREDR1,PD,PBLL_O_E,PETHETA
INTEGER :: IKB, IKE
!
#ifdef _OPENACC
-PRINT *,'OPENACC: D_M3_WTH_WTH2_O_DDTDZ not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_WTH_WTH2_O_DDTDZ', 'OpenACC: not yet tested' )
#endif
IKB = 1+JPVEXT_TURB
IKE = SIZE(PD,3)-JPVEXT_TURB
@@ -543,7 +543,7 @@ SUBROUTINE M3_WTH_W2TH(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PKEFF,PTKE,PM3_WTH_W2TH)
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: M3_WTH_W2TH not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'M3_WTH_W2TH', 'OpenACC: not yet tested' )
#endif
IKB = 1+JPVEXT_TURB
IKE = SIZE(PD,3)-JPVEXT_TURB
@@ -596,7 +596,7 @@ SUBROUTINE D_M3_WTH_W2TH_O_DDTDZ(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PBLL_O_E,PETHETA,
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: D_M3_WTH_W2TH_O_DDTDZ not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_WTH_W2TH_O_DDTDZ', 'OpenACC: not yet tested' )
#endif
IKB = 1+JPVEXT_TURB
IKE = SIZE(PD,3)-JPVEXT_TURB
@@ -660,7 +660,7 @@ SUBROUTINE M3_WTH_W2R(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PKEFF,PTKE,PBLL_O_E,PEMOIST,
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: M3_WTH_W2R not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'M3_WTH_W2R', 'OpenACC: not yet tested' )
#endif
IKB = 1+JPVEXT_TURB
IKE = SIZE(PD,3)-JPVEXT_TURB
@@ -711,7 +711,7 @@ SUBROUTINE D_M3_WTH_W2R_O_DDTDZ(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PKEFF,PTKE,PBLL_O_
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: D_M3_WTH_W2R_O_DDTDZ not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_WTH_W2R_O_DDTDZ', 'OpenACC: not yet tested' )
#endif
IKB = 1+JPVEXT_TURB
IKE = SIZE(PD,3)-JPVEXT_TURB
@@ -768,7 +768,7 @@ SUBROUTINE M3_WTH_WR2(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PKEFF,PTKE,PSQRT_TKE,PBLL_O_
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: M3_WTH_WR2 not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'M3_WTH_WR2', 'OpenACC: not yet tested' )
#endif
IKB = 1+JPVEXT_TURB
IKE = SIZE(PD,3)-JPVEXT_TURB
@@ -837,7 +837,7 @@ SUBROUTINE D_M3_WTH_WR2_O_DDTDZ(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PKEFF,PTKE,PSQRT_T
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: D_M3_WTH_WR2_O_DDTDZ not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_WTH_WR2_O_DDTDZ', 'OpenACC: not yet tested' )
#endif
IKB = 1+JPVEXT_TURB
IKE = SIZE(PD,3)-JPVEXT_TURB
@@ -904,7 +904,7 @@ SUBROUTINE M3_WTH_WTHR(KKA,KKU,KKL,PREDR1,PD,PKEFF,PTKE,PSQRT_TKE,PBETA,PLEPS,PE
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: M3_WTH_WTHR not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'M3_WTH_WTHR', 'OpenACC: not yet tested' )
#endif
IKB = 1+JPVEXT_TURB
IKE = SIZE(PD,3)-JPVEXT_TURB
@@ -951,7 +951,7 @@ SUBROUTINE D_M3_WTH_WTHR_O_DDTDZ(PM3_WTH_WTHR,PREDTH1,PREDR1,PD,PBLL_O_E,PETHETA
INTEGER :: IKB, IKE
!
#ifdef _OPENACC
-PRINT *,'OPENACC: D_M3_WTH_WTHR_O_DDTDZ not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_WTH_WTHR_O_DDTDZ', 'OpenACC: not yet tested' )
#endif
IKB = 1+JPVEXT_TURB
IKE = SIZE(PD,3)-JPVEXT_TURB
@@ -997,7 +997,7 @@ SUBROUTINE M3_TH2_W2TH(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PDTDZ,PLM,PLEPS,PTKE,PM3_TH
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: M3_TH2_W2TH not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'M3_TH2_W2TH', 'OpenACC: not yet tested' )
#endif
IKB = 1+JPVEXT_TURB
IKE = SIZE(PD,3)-JPVEXT_TURB
@@ -1053,7 +1053,7 @@ SUBROUTINE D_M3_TH2_W2TH_O_DDTDZ(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PLM,PLEPS,PTKE,OU
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: D_M3_TH2_W2TH_O_DDTDZ not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_TH2_W2TH_O_DDTDZ', 'OpenACC: not yet tested' )
#endif
IKB = 1+JPVEXT_TURB
IKE = SIZE(PD,3)-JPVEXT_TURB
@@ -1142,7 +1142,7 @@ SUBROUTINE M3_TH2_WTH2(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PLEPS,PSQRT_TKE,PM3_TH2_WTH
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: M3_TH2_WTH2 not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'M3_TH2_WTH2', 'OpenACC: not yet tested' )
#endif
IKB = 1+JPVEXT_TURB
IKE = SIZE(PD,3)-JPVEXT_TURB
@@ -1205,7 +1205,7 @@ SUBROUTINE D_M3_TH2_WTH2_O_DDTDZ(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PLEPS,PSQRT_TKE,P
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: D_M3_TH2_WTH2_O_DDTDZ not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_TH2_WTH2_O_DDTDZ', 'OpenACC: not yet tested' )
#endif
IKB = 1+JPVEXT_TURB
IKE = SIZE(PD,3)-JPVEXT_TURB
@@ -1272,7 +1272,7 @@ SUBROUTINE M3_TH2_W2R(KKA,KKU,KKL,PD,PLM,PLEPS,PTKE,PBLL_O_E,PEMOIST,PDTDZ,PM3_T
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: M3_TH2_W2R not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'M3_TH2_W2R', 'OpenACC: not yet tested' )
#endif
IKB = 1+JPVEXT_TURB
IKE = SIZE(PD,3)-JPVEXT_TURB
@@ -1340,7 +1340,7 @@ SUBROUTINE D_M3_TH2_W2R_O_DDTDZ(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PLM,PLEPS,PTKE,PBL
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: D_M3_TH2_W2R_O_DDTDZ not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_TH2_W2R_O_DDTDZ', 'OpenACC: not yet tested' )
#endif
IKB = 1+JPVEXT_TURB
IKE = SIZE(PD,3)-JPVEXT_TURB
@@ -1403,7 +1403,7 @@ SUBROUTINE M3_TH2_WR2(KKA,KKU,KKL,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PEMOIST,PDTDZ,PM3_
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: M3_TH2_WR2 not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'M3_TH2_WR2', 'OpenACC: not yet tested' )
#endif
IKB = 1+JPVEXT_TURB
IKE = SIZE(PD,3)-JPVEXT_TURB
@@ -1470,7 +1470,7 @@ SUBROUTINE D_M3_TH2_WR2_O_DDTDZ(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PLEPS,PSQRT_TKE,PB
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: D_M3_TH2_WR2_O_DDTDZ not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_TH2_WR2_O_DDTDZ', 'OpenACC: not yet tested' )
#endif
IKB = 1+JPVEXT_TURB
IKE = SIZE(PD,3)-JPVEXT_TURB
@@ -1539,7 +1539,7 @@ SUBROUTINE M3_TH2_WTHR(KKA,KKU,KKL,PREDR1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PEMOIST,PD
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: M3_TH2_WTHR not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'M3_TH2_WTHR', 'OpenACC: not yet tested' )
#endif
IKB = 1+JPVEXT_TURB
IKE = SIZE(PD,3)-JPVEXT_TURB
@@ -1595,7 +1595,7 @@ SUBROUTINE D_M3_TH2_WTHR_O_DDTDZ(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PLEPS,PSQRT_TKE,P
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: D_M3_TH2_WTHR_O_DDTDZ not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_TH2_WTHR_O_DDTDZ', 'OpenACC: not yet tested' )
#endif
IKB = 1+JPVEXT_TURB
IKE = SIZE(PD,3)-JPVEXT_TURB
@@ -1649,7 +1649,7 @@ SUBROUTINE M3_THR_WTHR(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PLEPS,PSQRT_TKE,PM3_THR_WTH
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: M3_THR_WTHR not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'M3_THR_WTHR', 'OpenACC: not yet tested' )
#endif
IKB = 1+JPVEXT_TURB
IKE = SIZE(PD,3)-JPVEXT_TURB
@@ -1704,7 +1704,7 @@ SUBROUTINE D_M3_THR_WTHR_O_DDTDZ(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PLEPS,PSQRT_TKE,P
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: D_M3_THR_WTHR_O_DDTDZ not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_THR_WTHR_O_DDTDZ', 'OpenACC: not yet tested' )
#endif
IKB = 1+JPVEXT_TURB
IKE = SIZE(PD,3)-JPVEXT_TURB
@@ -1759,7 +1759,7 @@ SUBROUTINE M3_THR_WTH2(KKA,KKU,KKL,PREDR1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PETHETA,PD
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: M3_THR_WTH2 not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'M3_THR_WTH2', 'OpenACC: not yet tested' )
#endif
IKB = 1+JPVEXT_TURB
IKE = SIZE(PD,3)-JPVEXT_TURB
@@ -1815,7 +1815,7 @@ SUBROUTINE D_M3_THR_WTH2_O_DDTDZ(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PLEPS,PSQRT_TKE,P
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: D_M3_THR_WTH2_O_DDTDZ not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_THR_WTH2_O_DDTDZ', 'OpenACC: not yet tested' )
#endif
IKB = 1+JPVEXT_TURB
IKE = SIZE(PD,3)-JPVEXT_TURB
@@ -1883,7 +1883,7 @@ SUBROUTINE D_M3_THR_WTH2_O_DDRDZ(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PLEPS,PSQRT_TKE,P
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: D_M3_THR_WTH2_O_DDRDZ not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_THR_WTH2_O_DDRDZ', 'OpenACC: not yet tested' )
#endif
IKB = 1+JPVEXT_TURB
IKE = SIZE(PD,3)-JPVEXT_TURB
@@ -1940,7 +1940,7 @@ SUBROUTINE M3_THR_W2TH(KKA,KKU,KKL,PREDR1,PD,PLM,PLEPS,PTKE,PDRDZ,PM3_THR_W2TH)
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: M3_THR_W2TH not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'M3_THR_W2TH', 'OpenACC: not yet tested' )
#endif
IKB = 1+JPVEXT_TURB
IKE = SIZE(PD,3)-JPVEXT_TURB
@@ -1997,7 +1997,7 @@ SUBROUTINE D_M3_THR_W2TH_O_DDTDZ(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PLM,PLEPS,PTKE,PB
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: D_M3_THR_W2TH_O_DDTDZ not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_THR_W2TH_O_DDTDZ', 'OpenACC: not yet tested' )
#endif
IKB = 1+JPVEXT_TURB
IKE = SIZE(PD,3)-JPVEXT_TURB
@@ -2064,7 +2064,7 @@ SUBROUTINE D_M3_THR_W2TH_O_DDRDZ(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PLM,PLEPS,PTKE,PD
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: D_M3_THR_W2TH_O_DDRDZ not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_THR_W2TH_O_DDRDZ', 'OpenACC: not yet tested' )
#endif
IKB = 1+JPVEXT_TURB
IKE = SIZE(PD,3)-JPVEXT_TURB
@@ -2253,7 +2253,7 @@ SUBROUTINE M3_WR_WR2(PREDR1,PREDTH1,PD,PBLL_O_E,PEMOIST,PM3_WR_WR2)
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: M3_WR_WR2 not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'M3_WR_WR2', 'OpenACC: not yet tested' )
#endif
#ifndef _OPENACC
PM3_WR_WR2 = M3_WTH_WTH2(PREDR1,PREDTH1,PD,PBLL_O_E,PEMOIST)
@@ -2287,7 +2287,7 @@ SUBROUTINE D_M3_WR_WR2_O_DDRDZ(PM3_WR_WR2,PREDR1,PREDTH1,PD,PBLL_O_E,PEMOIST,PD_
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: D_M3_WR_WR2_O_DDRDZ not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_WR_WR2_O_DDRDZ', 'OpenACC: not yet tested' )
#endif
#ifndef _OPENACC
PD_M3_WR_WR2_O_DDRDZ = D_M3_WTH_WTH2_O_DDTDZ(PM3_WR_WR2,PREDR1,PREDTH1,PD,PBLL_O_E,PEMOIST)
@@ -2323,7 +2323,7 @@ SUBROUTINE M3_WR_W2R(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PKEFF,PTKE,PM3_WR_W2R)
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: M3_WR_W2R not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'M3_WR_W2R', 'OpenACC: not yet tested' )
#endif
#ifndef _OPENACC
PM3_WR_W2R = M3_WTH_W2TH(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PKEFF,PTKE)
@@ -2361,7 +2361,7 @@ SUBROUTINE D_M3_WR_W2R_O_DDRDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PBLL_O_E,PEMOIST,PK
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: D_M3_WR_W2R_O_DDRDZ not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_WR_W2R_O_DDRDZ', 'OpenACC: not yet tested' )
#endif
#ifndef _OPENACC
PD_M3_WR_W2R_O_DDRDZ = D_M3_WTH_W2TH_O_DDTDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PBLL_O_E,PEMOIST,PKEFF,PTKE)
@@ -2400,7 +2400,7 @@ SUBROUTINE M3_WR_W2TH(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PKEFF,PTKE,PBLL_O_E,PETHETA,
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: M3_WR_W2TH not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'M3_WR_W2TH', 'OpenACC: not yet tested' )
#endif
#ifndef _OPENACC
PM3_WR_W2TH = M3_WTH_W2R(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PKEFF,PTKE,PBLL_O_E,PETHETA,PDRDZ)
@@ -2438,7 +2438,7 @@ SUBROUTINE D_M3_WR_W2TH_O_DDRDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PKEFF,PTKE,PBLL_O_
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: D_M3_WR_W2TH_O_DDRDZ not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_WR_W2TH_O_DDRDZ', 'OpenACC: not yet tested' )
#endif
#ifndef _OPENACC
PD_M3_WR_W2TH_O_DDRDZ = D_M3_WTH_W2R_O_DDTDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PKEFF,PTKE,PBLL_O_E,PETHETA)
@@ -2480,7 +2480,7 @@ SUBROUTINE M3_WR_WTH2(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PKEFF,PTKE,PSQRT_TKE,PBLL_O_
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: M3_WR_WTH2 not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'M3_WR_WTH2', 'OpenACC: not yet tested' )
#endif
#ifndef _OPENACC
PM3_WR_WTH2 = M3_WTH_WR2(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PKEFF,PTKE,PSQRT_TKE,PBLL_O_E,PBETA,PLEPS,PETHETA,PDRDZ)
@@ -2523,7 +2523,7 @@ SUBROUTINE D_M3_WR_WTH2_O_DDRDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PKEFF,PTKE,PSQRT_T
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: D_M3_WR_WTH2_O_DDRDZ not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_WR_WTH2_O_DDRDZ', 'OpenACC: not yet tested' )
#endif
#ifndef _OPENACC
PD_M3_WR_WTH2_O_DDRDZ = D_M3_WTH_WR2_O_DDTDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PKEFF,PTKE,PSQRT_TKE,PBLL_O_E,PBETA,PLEPS,PETHETA)
@@ -2562,7 +2562,7 @@ SUBROUTINE M3_WR_WTHR(KKA,KKU,KKL,PREDTH1,PD,PKEFF,PTKE,PSQRT_TKE,PBETA,PLEPS,PE
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: M3_WR_WTHR not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'M3_WR_WTHR', 'OpenACC: not yet tested' )
#endif
#ifndef _OPENACC
PM3_WR_WTHR = M3_WTH_WTHR(KKA,KKU,KKL,PREDTH1,PD,PKEFF,PTKE,PSQRT_TKE,PBETA,PLEPS,PETHETA)
@@ -2599,7 +2599,7 @@ SUBROUTINE D_M3_WR_WTHR_O_DDRDZ(KKA,KKU,KKL,PM3_WR_WTHR,PREDR1,PREDTH1,PD,PBLL_O
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: D_M3_WR_WTHR_O_DDRDZ not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_WR_WTHR_O_DDRDZ', 'OpenACC: not yet tested' )
#endif
#ifndef _OPENACC
PD_M3_WR_WTHR_O_DDRDZ = D_M3_WTH_WTHR_O_DDTDZ(PM3_WR_WTHR,PREDR1,PREDTH1,PD,PBLL_O_E,PEMOIST)
@@ -2637,7 +2637,7 @@ SUBROUTINE M3_R2_W2R(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PDRDZ,PLM,PLEPS,PTKE,PM3_R2_W
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: M3_R2_W2R not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'M3_R2_W2R', 'OpenACC: not yet tested' )
#endif
#ifndef _OPENACC
PM3_R2_W2R = M3_TH2_W2TH(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PDRDZ,PLM,PLEPS,PTKE)
@@ -2675,7 +2675,7 @@ SUBROUTINE D_M3_R2_W2R_O_DDRDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLM,PLEPS,PTKE,OUSE
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: D_M3_R2_W2R_O_DDRDZ not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_R2_W2R_O_DDRDZ', 'OpenACC: not yet tested' )
#endif
#ifndef _OPENACC
PD_M3_R2_W2R_O_DDRDZ = D_M3_TH2_W2TH_O_DDTDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLM,PLEPS,PTKE,OUSERV)
@@ -2711,7 +2711,7 @@ SUBROUTINE M3_R2_WR2(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLEPS,PSQRT_TKE,PM3_R2_WR2)
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: M3_R2_WR2 not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'M3_R2_WR2', 'OpenACC: not yet tested' )
#endif
#ifndef _OPENACC
PM3_R2_WR2 = M3_TH2_WTH2(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLEPS,PSQRT_TKE)
@@ -2749,7 +2749,7 @@ SUBROUTINE D_M3_R2_WR2_O_DDRDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLEPS,PSQRT_TKE,PBL
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: D_M3_R2_WR2_O_DDRDZ not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_R2_WR2_O_DDRDZ', 'OpenACC: not yet tested' )
#endif
#ifndef _OPENACC
PD_M3_R2_WR2_O_DDRDZ = D_M3_TH2_WTH2_O_DDTDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PEMOIST)
@@ -2787,7 +2787,7 @@ SUBROUTINE M3_R2_W2TH(KKA,KKU,KKL,PD,PLM,PLEPS,PTKE,PBLL_O_E,PETHETA,PDRDZ,PM3_R
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: M3_R2_W2TH not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'M3_R2_W2TH', 'OpenACC: not yet tested' )
#endif
#ifndef _OPENACC
PM3_R2_W2TH = M3_TH2_W2R(KKA,KKU,KKL,PD,PLM,PLEPS,PTKE,PBLL_O_E,PETHETA,PDRDZ)
@@ -2827,7 +2827,7 @@ SUBROUTINE D_M3_R2_W2TH_O_DDRDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLM,PLEPS,PTKE,PBL
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: D_M3_R2_W2TH_O_DDRDZ not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_R2_W2TH_O_DDRDZ', 'OpenACC: not yet tested' )
#endif
#ifndef _OPENACC
PD_M3_R2_W2TH_O_DDRDZ = D_M3_TH2_W2R_O_DDTDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLM,PLEPS,PTKE,PBLL_O_E,PETHETA,PDRDZ)
@@ -2864,7 +2864,7 @@ SUBROUTINE M3_R2_WTH2(KKA,KKU,KKL,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PETHETA,PDRDZ,PM3_
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: M3_R2_WTH2 not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'M3_R2_WTH2', 'OpenACC: not yet tested' )
#endif
#ifndef _OPENACC
PM3_R2_WTH2 = M3_TH2_WR2(KKA,KKU,KKL,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PETHETA,PDRDZ)
@@ -2903,7 +2903,7 @@ SUBROUTINE D_M3_R2_WTH2_O_DDRDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLEPS,PSQRT_TKE,PB
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: D_M3_R2_WTH2_O_DDRDZ not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_R2_WTH2_O_DDRDZ', 'OpenACC: not yet tested' )
#endif
#ifndef _OPENACC
PD_M3_R2_WTH2_O_DDRDZ = D_M3_TH2_WR2_O_DDTDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PETHETA,PDRDZ)
@@ -2941,7 +2941,7 @@ SUBROUTINE M3_R2_WTHR(KKA,KKU,KKL,PREDTH1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PETHETA,PD
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: M3_R2_WTHR not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'M3_R2_WTHR', 'OpenACC: not yet tested' )
#endif
#ifndef _OPENACC
PM3_R2_WTHR = M3_TH2_WTHR(KKA,KKU,KKL,PREDTH1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PETHETA,PDRDZ)
@@ -2980,7 +2980,7 @@ SUBROUTINE D_M3_R2_WTHR_O_DDRDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLEPS,PSQRT_TKE,PB
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: D_M3_R2_WTHR_O_DDRDZ not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_R2_WTHR_O_DDRDZ', 'OpenACC: not yet tested' )
#endif
#ifndef _OPENACC
PD_M3_R2_WTHR_O_DDRDZ = D_M3_TH2_WTHR_O_DDTDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PETHETA,PDRDZ)
@@ -3018,7 +3018,7 @@ SUBROUTINE D_M3_THR_WTHR_O_DDRDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLEPS,PSQRT_TKE,P
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: D_M3_THR_WTHR_O_DDRDZ not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_THR_WTHR_O_DDRDZ', 'OpenACC: not yet tested' )
#endif
#ifndef _OPENACC
PD_M3_THR_WTHR_O_DDRDZ = D_M3_THR_WTHR_O_DDTDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PEMOIST)
@@ -3056,7 +3056,7 @@ SUBROUTINE M3_THR_WR2(KKA,KKU,KKL,PREDTH1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PEMOIST,PD
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: M3_THR_WR2 not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'M3_THR_WR2', 'OpenACC: not yet tested' )
#endif
#ifndef _OPENACC
PM3_THR_WR2 = M3_THR_WTH2(KKA,KKU,KKL,PREDTH1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PEMOIST,PDTDZ)
@@ -3095,7 +3095,7 @@ SUBROUTINE D_M3_THR_WR2_O_DDRDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLEPS,PSQRT_TKE,PB
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: D_M3_THR_WR2_O_DDRDZ not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_THR_WR2_O_DDRDZ', 'OpenACC: not yet tested' )
#endif
#ifndef _OPENACC
PD_M3_THR_WR2_O_DDRDZ = D_M3_THR_WTH2_O_DDTDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PEMOIST,PDTDZ)
@@ -3133,7 +3133,7 @@ SUBROUTINE D_M3_THR_WR2_O_DDTDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLEPS,PSQRT_TKE,PB
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: D_M3_THR_WR2_O_DDTDZ not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_THR_WR2_O_DDTDZ', 'OpenACC: not yet tested' )
#endif
#ifndef _OPENACC
PD_M3_THR_WR2_O_DDTDZ = D_M3_THR_WTH2_O_DDRDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PEMOIST)
@@ -3170,7 +3170,7 @@ SUBROUTINE M3_THR_W2R(KKA,KKU,KKL,PREDTH1,PD,PLM,PLEPS,PTKE,PDTDZ,PM3_THR_W2R)
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: M3_THR_W2R not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'M3_THR_W2R', 'OpenACC: not yet tested' )
#endif
#ifndef _OPENACC
PM3_THR_W2R = M3_THR_W2TH(KKA,KKU,KKL,PREDTH1,PD,PLM,PLEPS,PTKE,PDTDZ)
@@ -3210,7 +3210,7 @@ SUBROUTINE D_M3_THR_W2R_O_DDRDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLM,PLEPS,PTKE,PBL
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: D_M3_THR_W2R_O_DDRDZ not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_THR_W2R_O_DDRDZ', 'OpenACC: not yet tested' )
#endif
#ifndef _OPENACC
PD_M3_THR_W2R_O_DDRDZ = D_M3_THR_W2TH_O_DDTDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLM,PLEPS,PTKE,PBLL_O_E,PDTDZ,PEMOIST)
@@ -3247,7 +3247,7 @@ SUBROUTINE D_M3_THR_W2R_O_DDTDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLM,PLEPS,PTKE,PD_
#endif
!
#ifdef _OPENACC
-PRINT *,'OPENACC: D_M3_THR_W2R_O_DDTDZ not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_THR_W2R_O_DDTDZ', 'OpenACC: not yet tested' )
#endif
#ifndef _OPENACC
PD_M3_THR_W2R_O_DDTDZ = D_M3_THR_W2TH_O_DDRDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLM,PLEPS,PTKE)
diff --git a/src/MNH/ppm.f90 b/src/MNH/ppm.f90
index a96d8c7f5f6afdc33114b55a7a67680f85221546..707ad9846ee7d371c4c5eb3212fdbf3553c01699 100644
--- a/src/MNH/ppm.f90
+++ b/src/MNH/ppm.f90
@@ -428,7 +428,9 @@ CONTAINS
!-------------------------------------------------------------------------------
!
USE MODE_ll
+#ifdef _OPENACC
use mode_msg
+#endif
#ifndef _OPENACC
USE MODI_SHUMAN
#else
@@ -1140,7 +1142,9 @@ CONTAINS
!-------------------------------------------------------------------------------
!
USE MODE_ll
+#ifdef _OPENACC
use mode_msg
+#endif
#ifndef _OPENACC
USE MODI_SHUMAN
#else
@@ -2324,7 +2328,9 @@ CONTAINS
!-------------------------------------------------------------------------------
!
USE MODE_ll
+#ifdef _OPENACC
use mode_msg
+#endif
#ifndef _OPENACC
USE MODI_SHUMAN
#else
@@ -2741,7 +2747,9 @@ CONTAINS
!-------------------------------------------------------------------------------
!
USE MODE_ll
+#ifdef _OPENACC
use mode_msg
+#endif
#ifndef _OPENACC
USE MODI_SHUMAN
#else
diff --git a/src/MNH/prandtl.f90 b/src/MNH/prandtl.f90
index 05748143636d6b59a7dea9c663d78cd60636da21..b1cedba183ee19de6fb70719a2241a8b4f430156 100644
--- a/src/MNH/prandtl.f90
+++ b/src/MNH/prandtl.f90
@@ -208,6 +208,9 @@ USE MODD_PARAMETERS
!
USE MODE_FIELD, ONLY: TFIELDDATA, TYPEREAL
USE MODE_IO_FIELD_WRITE, only: IO_Field_write
+#ifdef _OPENACC
+use mode_msg
+#endif
!
#ifdef MNH_BITREP
USE MODI_BITREP
@@ -442,7 +445,7 @@ END DO
IF(HTURBDIM=='1DIM') THEN ! 1D case
!
#ifdef _OPENACC
-PRINT *,'OPENACC: prandtl::1DIM not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'PRANDTL', 'OpenACC: 1DIM not yet tested' )
#endif
!
!$acc kernels async
@@ -470,7 +473,7 @@ ELSE IF (L2D) THEN ! 3D case in a 2D model
!
IF (KRR /= 0) THEN ! moist 3D case
#ifdef _OPENACC
-PRINT *,'OPENACC: prandtl::L2D=.T. and KRR/=0 not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'PRANDTL', 'OpenACC: L2D=.T. and KRR/=0 not yet tested' )
#endif
#ifndef _OPENACC
#ifndef MNH_BITREP
@@ -561,7 +564,7 @@ PRINT *,'OPENACC: prandtl::L2D=.T. and KRR/=0 not yet tested'
!
ELSE ! dry 3D case in a 2D model
#ifdef _OPENACC
-PRINT *,'OPENACC: prandtl::L2D=.T. and KRR=0 not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'PRANDTL', 'OpenACC: L2D=.T. and KRR=0 not yet tested' )
#endif
#ifndef _OPENACC
#ifndef MNH_BITREP
@@ -711,7 +714,7 @@ ELSE ! 3D case in a 3D model
!
ELSE ! dry 3D case in a 3D model
#ifdef _OPENACC
-PRINT *,'OPENACC: prandtl::L2D=.F. and KRR=0 not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'PRANDTL', 'OpenACC: L2D=.F. and KRR=0 not yet tested' )
#endif
#ifndef _OPENACC
#ifndef MNH_BITREP
diff --git a/src/MNH/rain_ice_fast_rh.f90 b/src/MNH/rain_ice_fast_rh.f90
index 8ee84985e62edc0f257cd8f32593110fe35a67be..c43dc88694c0cc00feeef1b03e92e6676525e840 100644
--- a/src/MNH/rain_ice_fast_rh.f90
+++ b/src/MNH/rain_ice_fast_rh.f90
@@ -115,7 +115,7 @@ REAL, DIMENSION(:,:), ALLOCATABLE :: ZZW1 ! Work arrays
!-------------------------------------------------------------------------------
!
#ifdef _OPENACC
-CALL PRINT_MSG(NVERB_ERROR,'GEN','RAIN_ICE_FAST_RH','OPENACC: not yet tested')
+CALL PRINT_MSG(NVERB_WARNING,'GEN','RAIN_ICE_FAST_RH','OPENACC: not yet tested')
#endif
!
IF (MPPDB_INITIALIZED) THEN
diff --git a/src/MNH/rain_ice_red.f90 b/src/MNH/rain_ice_red.f90
index 9d3b49d4cde2df5d5af7b859d622d71add11c615..e1195a4a5b79ddc3d17d08f3feb92d5e2cfad2d7 100644
--- a/src/MNH/rain_ice_red.f90
+++ b/src/MNH/rain_ice_red.f90
@@ -1299,7 +1299,7 @@ END IF
#else
IF (IRR==7) THEN
!PW: probably not working (see ELSE branch)
- CALL PRINT_MSG(NVERB_ERROR,'GEN','RAIN_ICE_RED','OpenACC: IRR=7 not yet tested')
+ CALL PRINT_MSG(NVERB_WARNING,'GEN','RAIN_ICE_RED','OpenACC: IRR=7 not yet tested')
!$acc kernels
IDX = 0
DO JK=1,SIZE(ODMICRO,3)
diff --git a/src/MNH/rain_ice_warm.f90 b/src/MNH/rain_ice_warm.f90
index be4cab61ee2b52a40898a1ce976c8bd4fb690216..dd737c48e18135a87a842ce5efa76ed5c74948f2 100644
--- a/src/MNH/rain_ice_warm.f90
+++ b/src/MNH/rain_ice_warm.f90
@@ -197,7 +197,7 @@ ALLOCATE( ZZW4 (size(PRHODREF)) )
ELSEIF (CSUBG_RC_RR_ACCR=='PRFR') THEN
#ifdef _OPENACC
- CALL PRINT_MSG(NVERB_ERROR,'GEN','RAIN_ICE_WARM','OPENACC: CSUBG_RC_RR_ACCR=="PRFR" not yet tested')
+ CALL PRINT_MSG(NVERB_WARNING,'GEN','RAIN_ICE_WARM','OPENACC: CSUBG_RC_RR_ACCR=="PRFR" not yet tested')
#endif
!$acc kernels
!Cloud water is concentrated over its fraction with possibly to parts with high and low content as set for autoconversion
@@ -294,7 +294,7 @@ ALLOCATE( ZZW4 (size(PRHODREF)) )
!$acc end kernels
ELSEIF (CSUBG_RR_EVAP=='CLFR' .OR. CSUBG_RR_EVAP=='PRFR') THEN
#ifdef _OPENACC
- CALL PRINT_MSG(NVERB_ERROR,'GEN','RAIN_ICE_WARM','OPENACC: CSUBG_RR_EVAP=="CLFR" or "PRFR" not yet tested')
+ CALL PRINT_MSG(NVERB_WARNING,'GEN','RAIN_ICE_WARM','OPENACC: CSUBG_RR_EVAP=="CLFR" or "PRFR" not yet tested')
#endif
!$acc kernels
!Evaporation in clear sky part
diff --git a/src/MNH/resolved_cloud.f90 b/src/MNH/resolved_cloud.f90
index ddb031a7c175dff9a0ec9f6d11a948cb29f66593..e0e88cf895429fc3f1a8f4bf5abcd947db3658c8 100644
--- a/src/MNH/resolved_cloud.f90
+++ b/src/MNH/resolved_cloud.f90
@@ -295,7 +295,9 @@ USE MODD_SALT, ONLY: LSALT
!
USE MODE_ll
USE MODE_MPPDB
+#ifdef _OPENACC
USE MODE_MSG
+#endif
!
#ifdef MNH_BITREP
USE MODI_BITREP
@@ -1211,10 +1213,6 @@ CALL PRINT_MSG(NVERB_FATAL,'GEN','RESOLVED_CLOUD','C2R2//KHKO not yet implemente
!$acc update device(PCIT,PCLDFR, &
!$acc & PINPRC,PINPRR,PINPRR3D,PEVAP3D,PINPRS,PINPRG,PINDEP)
!$acc data copyin(PSEA,PTOWN) present(PEXNREF)
-! #ifdef _OPENACC
-! PRINT *,'OPENACC: RESOLVED_CLOUD::ZFPR not yet treated'
-! CALL ABORT
-! #endif
CALL RAIN_ICE ( OSEDIC,CSEDIM, HSUBG_AUCV, OWARM,1,IKU,1, &
KSPLITR, PTSTEP, KRR, &
ZDZZ, PRHODJ, PRHODREF, PEXNREF, PPABST, PCIT,PCLDFR,&
diff --git a/src/MNH/tm06_h.f90 b/src/MNH/tm06_h.f90
index a768e3f5f2bdfce6377fc2b6e1922fc4b2b439a6..85a368f444f4410d98ff86a96cced296f0ab8278 100644
--- a/src/MNH/tm06_h.f90
+++ b/src/MNH/tm06_h.f90
@@ -1,13 +1,8 @@
-!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2005-2019 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
-!--------------- special set of characters for RCS information
-!-----------------------------------------------------------------
-! $Source$ $Revision$
-! MASDEV4_7 newsrc 2006/06/02 17:34:59
-!-----------------------------------------------------------------
! ################
MODULE MODI_TM06_H
! ################
@@ -76,7 +71,10 @@ END MODULE MODI_TM06_H
! ------------
!
USE MODD_PARAMETERS, ONLY : XUNDEF
-!
+
+#ifdef _OPENACC
+use mode_msg
+#endif
!
IMPLICIT NONE
!
@@ -107,7 +105,7 @@ LOGICAL, DIMENSION(SIZE(PZZ,1),SIZE(PZZ,2)) :: GWORK
!----------------------------------------------------------------------------
!
#ifdef _OPENACC
-PRINT *,'OPENACC: TM06_H not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'TM06_H', 'OpenACC: not yet tested' )
#endif
!* mixed boundary layer cannot grow more rapidly than 1800m/h
!$acc kernels
diff --git a/src/MNH/turb.f90 b/src/MNH/turb.f90
index 2910212afad6d787ea1088162589f2603614f992..fef3585e0b68e99fd302f63e09ae009964e70956 100644
--- a/src/MNH/turb.f90
+++ b/src/MNH/turb.f90
@@ -713,7 +713,7 @@ SELECT CASE (HTURBLEN)
!
CASE ('DELT')
#ifdef _OPENACC
- call Print_msg( NVERB_FATAL, 'GEN', 'TURB', 'OpenACC: HTURBLEN=DELT not yet implemented' )
+ call Print_msg( NVERB_WARNING, 'GEN', 'TURB', 'OpenACC: HTURBLEN=DELT not yet tested' )
#endif
CALL DELT(KKA,KKU,KKL,IKB, IKE,IKTB, IKTE,ORMC01,HTURBDIM,PDXX, PDYY,PZZ,PDIRCOSZW,PLEM)
!
diff --git a/src/MNH/turb_hor_sv_corr.f90 b/src/MNH/turb_hor_sv_corr.f90
index 581c7ba39c861ad4677f0b01582d567024556626..07068e1ba18b930c34a746a33e7583b08a76e8ac 100644
--- a/src/MNH/turb_hor_sv_corr.f90
+++ b/src/MNH/turb_hor_sv_corr.f90
@@ -51,7 +51,7 @@ END MODULE MODI_TURB_HOR_SV_CORR
! ################################################################
!
!
-!!**** *TURB_HOT_SV_CORR* computes subgrid Sv2 and SvThv terms
+!!**** *TURB_HOR_SV_CORR* computes subgrid Sv2 and SvThv terms
!!
!! PURPOSE
!! -------
@@ -205,7 +205,7 @@ DO JSV=1,NSV
#ifndef _OPENACC
ZA(:,:,:) = ETHETA(KRR,KRRI,PTHLM,PRM,PLOCPEXNM,PATHETA,PSRCM)
#else
-PRINT *,'OPENACC: TURB_HOR_SV_CORR:: LLES_CALL not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'TURB_HOR_SV_CORR', 'OpenACC: LLES_CALL not yet tested' )
!$acc data copyin(PTHLM,PRM,PLOCPEXNM,PATHETA,PSRCM) copyout(ZA)
CALL ETHETA(KRR,KRRI,PTHLM,PRM,PLOCPEXNM,PATHETA,PSRCM,ZA)
!$acc end data
@@ -227,7 +227,6 @@ PRINT *,'OPENACC: TURB_HOR_SV_CORR:: LLES_CALL not yet tested'
#ifndef _OPENACC
ZA(:,:,:) = EMOIST(KRR,KRRI,PTHLM,PRM,PLOCPEXNM,PAMOIST,PSRCM)
#else
-PRINT *,'OPENACC: TURB_HOR_SV_CORR:: LLES_CALL not yet tested'
!$acc data copyin(PTHLM,PRM,PLOCPEXNM,PAMOIST,PSRCM) copyout(ZA)
CALL EMOIST(KRR,KRRI,PTHLM,PRM,PLOCPEXNM,PAMOIST,PSRCM,ZA)
!$acc end data
diff --git a/src/MNH/turb_ver_sv_corr.f90 b/src/MNH/turb_ver_sv_corr.f90
index 709af4ec15ba3927a4bf3c0270a115d169d041c9..c6b74e92fd21b97e407beb016f7d065b257609cc 100644
--- a/src/MNH/turb_ver_sv_corr.f90
+++ b/src/MNH/turb_ver_sv_corr.f90
@@ -211,7 +211,7 @@ DO JSV=1,NSV
#ifndef _OPENACC
ZA(:,:,:) = ETHETA(KRR,KRRI,PTHLM,PRM,PLOCPEXNM,PATHETA,PSRCM)
#else
-PRINT *,'OPENACC: TURB_VER_SV_CORR:: LLES_CALL not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'TURB_VER_SV_CORR', 'OpenACC: LLES_CALL not yet tested' )
!$acc data copyin(PTHLM,PRM,PLOCPEXNM,PATHETA,PSRCM) copyout(ZA)
CALL ETHETA(KRR,KRRI,PTHLM,PRM,PLOCPEXNM,PATHETA,PSRCM,ZA)
!$acc end data
@@ -227,7 +227,6 @@ PRINT *,'OPENACC: TURB_VER_SV_CORR:: LLES_CALL not yet tested'
#ifndef _OPENACC
ZA(:,:,:) = EMOIST(KRR,KRRI,PTHLM,PRM,PLOCPEXNM,PAMOIST,PSRCM)
#else
-PRINT *,'OPENACC: TURB_VER_SV_CORR:: LLES_CALL not yet tested'
!$acc data copyin(PTHLM,PRM,PLOCPEXNM,PAMOIST,PSRCM) copyout(ZA)
CALL EMOIST(KRR,KRRI,PTHLM,PRM,PLOCPEXNM,PAMOIST,PSRCM,ZA)
!$acc end data
diff --git a/src/MNH/ver_interp_lin.f90 b/src/MNH/ver_interp_lin.f90
index ec3434862c884a0f37dd02d29736136b59f4b00f..f96507f69913d28ea32c24402acd5dcf98c4cc7e 100644
--- a/src/MNH/ver_interp_lin.f90
+++ b/src/MNH/ver_interp_lin.f90
@@ -1,13 +1,8 @@
-!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1997-2019 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
-!--------------- special set of characters for RCS information
-!-----------------------------------------------------------------
-! $Source$ $Revision$
-! masdev4_7 BUG1 2007/06/15 17:47:18
-!-----------------------------------------------------------------
! ######################
MODULE MODI_VER_INTERP_LIN
! ######################
@@ -258,6 +253,8 @@ END FUNCTION VER_INTERP_LIN3D
!* 0. DECLARATIONS
! ------------
!
+use mode_msg
+
IMPLICIT NONE
!
!* 0.1 Declaration of arguments
@@ -278,7 +275,7 @@ REAL, DIMENSION(SIZE(KKLIN,1),SIZE(KKLIN,2),SIZE(KKLIN,3)), INTENT(OUT) &
INTEGER :: JI,JJ,JK2
!-------------------------------------------------------------------------------
!
-PRINT *,'OPENACC: VER_INTERP_LIN3D_DEVICE not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'VER_INTERP_LIN3D_DEVICE', 'OpenACC: not yet tested' )
!$acc data present(PVAR1,KKLIN,PCOEFLIN,PVAR2)
!$acc kernels
DO JK2=1,SIZE(KKLIN,3)
@@ -425,6 +422,8 @@ END FUNCTION VER_INTERP_LIN2D
!* 0. DECLARATIONS
! ------------
!
+use mode_msg
+
IMPLICIT NONE
!
!* 0.1 Declaration of arguments
@@ -453,7 +452,7 @@ INTEGER :: JJ,JK2
!
!-------------------------------------------------------------------------------
!
-PRINT *,'OPENACC: VER_INTERP_LIN2D_DEVICE not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'VER_INTERP_LIN2D_DEVICE', 'OpenACC: not yet tested' )
!$acc data present(PVAR1,KKLIN,PCOEFLIN,PVAR2)
!ZVAR1(1,:,:)=PVAR1(:,:)
!IKLIN(1,:,:)=KKLIN(:,:)
@@ -605,6 +604,8 @@ END FUNCTION VER_INTERP_LIN1D
!* 0. DECLARATIONS
! ------------
!
+use mode_msg
+
IMPLICIT NONE
!
!* 0.1 Declaration of arguments
@@ -633,7 +634,7 @@ INTEGER :: JK2
!
!-------------------------------------------------------------------------------
!
-PRINT *,'OPENACC: VER_INTERP_LIN1D_DEVICE not yet tested'
+call Print_msg( NVERB_WARNING, 'GEN', 'VER_INTERP_LIN1D_DEVICE', 'OpenACC: not yet tested' )
!$acc data present(PVAR1,KKLIN,PCOEFLIN,PVAR2)
!ZVAR1(1,1,:)=PVAR1(:)
!IKLIN(1,1,:)=KKLIN(:)