--- trunk/libf/dyn3d/prather.f	2010/04/01 14:59:19	31
+++ trunk/libf/dyn3d/prather.f	2012/09/20 13:00:41	66
@@ -5,8 +5,9 @@
       use dimens_m
       use paramet_m
       use comconst
-      use comvert
+      use disvert_m
       use comgeom
+      USE nr_util, ONLY : pi
       IMPLICIT NONE
 
 c=======================================================================
@@ -248,10 +249,6 @@
           q( i,1,llm+1-l,0)=qpn
           q( i,jjp1,llm+1-l,0)=qps
          enddo
-c       enddo
-c         print*,'qpn',qpn,'qps',qps
-c          print*,'dqzpn',dqzpn,'dqzps',dqzps
-c       enddo
            dyn1=0.
            dys1=0.
            dyn2=0.
@@ -336,9 +333,7 @@
          PRINT*,'SY(',i,j,l,')=',q(i,j,l,2),
      $   q(i,j-1,l,2)   
          PRINT*,'SZ(',i,j,l,')=',q(i,j,l,3)
-c    		     PRINT*,' PBL EN SORTIE D'' ADVZP'
                      q(i,j,l,0)=0.
-c                  STOP
                ENDIF
            ENDDO
          ENDDO