Juan 10/07/2020: Some typo on the version without OpenACC

src/MNH/advection_metsv.f90

@@ -349,11 +349,11 @@ allocate( ZCFLV        ( JIU,JJU,JKU )               )
 allocate( ZCFLW        ( JIU,JJU,JKU )               )
 allocate( ZCFL         ( JIU,JJU,JKU )               )
 allocate( ZTH          ( JIU,JJU,JKU )               )
-allocate( ZTKE         ( JIU,JJU,SIZE(PTKET,3)       )
+allocate( ZTKE         ( JIU,JJU,SIZE(PTKET,3))      )
 allocate( ZRTHS_OTHER  ( JIU,JJU,JKU )               )
-allocate( ZRTKES_OTHER ( JIU,JJU,SIZE(PTKET,3)       )
+allocate( ZRTKES_OTHER ( JIU,JJU,SIZE(PTKET,3))      )
 allocate( ZRTHS_PPM    ( JIU,JJU,JKU )               )
-allocate( ZRTKES_PPM   ( JIU,JJU,SIZE(PTKET,3)       )
+allocate( ZRTKES_PPM   ( JIU,JJU,SIZE(PTKET,3))      )
 allocate( ZR           ( JIU,JJU,JKU, SIZE(PRT, 4) ) )
 allocate( ZSV          ( JIU,JJU,JKU, SIZE(PSVT,4) ) )
 allocate( ZSNWC        ( JIU,JJU,JKU, NBLOWSNOW_2D ) )

src/MNH/etheta.f90

@@ -103,9 +103,11 @@ USE MODD_CST
 
 use mode_mppdb
 
+#ifdef MNH_OPENACC
 USE MODE_MNH_ZWORK , ONLY : MNH_ALLOCATE_ZT3D , MNH_REL_ZT3D, MNH_ALLOCATE_ZT3DP , MNH_ALLOCATE_ZT2D, &
      MNH_ALLOCATE_ZT4D , MNH_REL_ZT4D, &
      MNH_CHECK_IN_ZT3D,MNH_CHECK_OUT_ZT3D
+#endif
 
 IMPLICIT NONE
 !

src/MNH/turb_hor_sv_flux.f90

@@ -248,7 +248,7 @@ allocate( zflxy(JIU,JJU,JKU ) )
 
 allocate( zwork2d(JIU,JJU, 1 ) )
 
-allocate( zcoeff((JIU,JJU, 1 + jpvext : 3 + jpvext ) )
+allocate( zcoeff(JIU,JJU, 1 + jpvext : 3 + jpvext ) )
 #else
 izflxx   = MNH_ALLOCATE_ZT3D( zflxx,JIU,JJU,JKU)
 izflxy   = MNH_ALLOCATE_ZT3D( zflxy,JIU,JJU,JKU)

src/MNH/turb_hor_tke.f90

@@ -177,7 +177,7 @@ JKU =  size(ptkem, 3 )
 #ifndef MNH_OPENACC
 allocate( zflx (JIU,JJU,JKU ) )
 
-allocate( zcoeff(JIU,JJU,JKU, 1 + jpvext : 3 + jpvext ) )
+allocate( zcoeff(JIU,JJU, 1 + jpvext : 3 + jpvext ) )
 #else
 izflx   = MNH_ALLOCATE_ZT3D( zflx ,JIU,JJU,JKU )