| subroutine integrd  | 
          ( | 
          integer, intent(in)  | 
          nq,  | 
        
        
           | 
           | 
          real, dimension(ip1jm,llm), intent(inout)  | 
          vcovm1,  | 
        
        
           | 
           | 
          real, dimension(ip1jmp1,llm), intent(inout)  | 
          ucovm1,  | 
        
        
           | 
           | 
          real, dimension(ip1jmp1,llm), intent(inout)  | 
          tetam1,  | 
        
        
           | 
           | 
          real, dimension(ip1jmp1), intent(inout)  | 
          psm1,  | 
        
        
           | 
           | 
          real, dimension(ip1jmp1,llm), intent(inout)  | 
          massem1,  | 
        
        
           | 
           | 
          real, dimension(ip1jm,llm), intent(in)  | 
          dv,  | 
        
        
           | 
           | 
          real, dimension(ip1jmp1,llm), intent(in)  | 
          du,  | 
        
        
           | 
           | 
          real, dimension(ip1jmp1,llm), intent(in)  | 
          dteta,  | 
        
        
           | 
           | 
          real, dimension(ip1jmp1,llm,nq), intent(in)  | 
          dq,  | 
        
        
           | 
           | 
          real, dimension(ip1jmp1), intent(in)  | 
          dp,  | 
        
        
           | 
           | 
          real, dimension(ip1jm,llm), intent(inout)  | 
          vcov,  | 
        
        
           | 
           | 
          real, dimension(ip1jmp1,llm), intent(inout)  | 
          ucov,  | 
        
        
           | 
           | 
          real, dimension(ip1jmp1,llm), intent(inout)  | 
          teta,  | 
        
        
           | 
           | 
          real, dimension(ip1jmp1,llm,nq), intent(inout)  | 
          q,  | 
        
        
           | 
           | 
          real, dimension(ip1jmp1), intent(inout)  | 
          ps,  | 
        
        
           | 
           | 
          real, dimension(ip1jmp1,llm), intent(inout)  | 
          masse,  | 
        
        
           | 
           | 
          real, dimension(ip1jmp1), intent(in)  | 
          phis  | 
        
        
           | 
          ) | 
           |  |