--- trunk/libf/dyn3d/prather.f	2008/02/27 13:16:39	3
+++ 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=======================================================================
@@ -27,7 +28,7 @@
 c   Arguments:
 c   ----------
       INTEGER iq,nt
-      REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm )
+      REAL, intent(in):: pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm )
       REAL masse(iip1,jjp1,llm)
       REAL q( iip1,jjp1,llm,0:9)
       REAL w( ip1jmp1,llm )
@@ -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