diff --git a/src/MNH/advection_metsv.f90 b/src/MNH/advection_metsv.f90 index 1cc768b4e954d03ee272d5ab3070252ab3f022e0..1169bcf63295ce60f47f87a58187d2e1b171a8c6 100644 --- a/src/MNH/advection_metsv.f90 +++ b/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 ) ) diff --git a/src/MNH/etheta.f90 b/src/MNH/etheta.f90 index b5f92ac02ad51195f9fac5458ae7bdba0bef6ae5..c75ce9c0bee95ca070ed394138faa39e1645a4ed 100644 --- a/src/MNH/etheta.f90 +++ b/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 ! diff --git a/src/MNH/turb_hor_sv_flux.f90 b/src/MNH/turb_hor_sv_flux.f90 index 8a80775f499afe7fb96d468f52eee42e7f013a68..ced211a0429f820c36f2a33d4f4b59d452d5cdd6 100644 --- a/src/MNH/turb_hor_sv_flux.f90 +++ b/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) diff --git a/src/MNH/turb_hor_tke.f90 b/src/MNH/turb_hor_tke.f90 index 60f38ea4d6dacb899dab63590ec3195f1551ff03..748a65bc3ab231c49a4d42a951b9294fe836ffb8 100644 --- a/src/MNH/turb_hor_tke.f90 +++ b/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 )