Juan 9/04/2013: add ZW3D20 as temp array on interface to PPM_MET

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
 !