Index: trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90
===================================================================
--- trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90	(revision 3760)
+++ trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90	(revision 3763)
@@ -1155,5 +1155,5 @@
       IF(calllott)THEN
         CALL calldrag_noro(ngrid,nlayer,ptimestep, &
-                           zplay,zplev,pt,pu,pv,zdtgw,zdugw,zdvgw)
+                           pplay,pplev,pt,pu,pv,zdtgw,zdugw,zdvgw)
 
         DO l=1,nlayer