--- trunk/dyn3d/advtrac.f	2014/09/11 15:09:15	107
+++ trunk/dyn3d/advtrac.f	2014/09/16 14:00:41	108
@@ -13,9 +13,11 @@
     USE conf_gcm_m, ONLY : iapp_tracvl
     USE dimens_m, ONLY : iim, jjm, llm, nqmx
     USE iniadvtrac_m, ONLY : iadv
+    use interpre_m, only: interpre
     use massbar_m, only: massbar
     USE paramet_m, ONLY : iip1, iip2, ijmllm, ijp1llm, ip1jm, ip1jmp1, jjp1, &
          llmp1
+    use vlspltqs_m, only: vlspltqs
 
     REAL, intent(in):: pbaru(ip1jmp1, llm), pbarv(ip1jm, llm)
     REAL, intent(in):: p(ip1jmp1, llmp1)