diff --git a/MNH/advection.f90 b/MNH/advection.f90 index 2e35d45a5963d1dae13eb3fe707b3fee1cb730b8..edc78d7689120d38e2a001d7351f6e65cd44d500 100644 --- a/MNH/advection.f90 +++ b/MNH/advection.f90 @@ -152,6 +152,7 @@ USE MODI_MPDATA_SCALAR USE MODI_PPM_MET USE MODI_PPM_SCALAR ! +USE MODE_MNH_ZWORK, ONLY : ZW3D20 ! !------------------------------------------------------------------------------- ! @@ -322,7 +323,8 @@ ELSEIF (HMET_ADV_SCHEME(1:3)=='PPM') THEN CALL PPM_MET (HLBCX,HLBCY, KRR, KTCOUNT, & ZRUCT, ZRVCT, ZRWCT, PTSTEP_MET, PRHODJ, & PTHT, PTKET, PRT, PRTHS, PRTKES, PRRS, & - HMET_ADV_SCHEME ) + HMET_ADV_SCHEME, & + ZW3D20 ) ! END IF !