Philippe 03-09/02/2017: OpenACC: beginning of work on clouds

47a1894e · WAUTELET Philippe · 3a9a7742 · 47a1894e · 47a1894e · 47a1894e
Commit 47a1894e authored 8 years ago by WAUTELET Philippe
--- a/src/MNH/ice_adjust.f90
+++ b/src/MNH/ice_adjust.f90
@@ -264,6 +264,9 @@ INTEGER             :: JITER,ITERMAX ! iterative loop for first order adjustment
 !
 LOGICAL             :: LPRETREATMENT, LNEW_ADJUST
 !
+#ifdef _OPENACC
+PRINT *,'OPENACC: ICE_ADJUST being implemented'
+#endif
 !-------------------------------------------------------------------------------
 !
 !*       1.     PRELIMINARIES

--- a/src/MNH/rain_ice.f90
+++ b/src/MNH/rain_ice.f90
--- a/src/MNH/resolved_cloud.f90
+++ b/src/MNH/resolved_cloud.f90