Go to the source code of this file.
 | 
| subroutine  | clcdrag (knon, nsrf, paprs, pplay, u1, v1, t1, q1, tsurf, qsurf, rugos, pcfm, pcfh) | 
|   | 
      
        
          | subroutine clcdrag  | 
          ( | 
          integer, intent(in)  | 
          knon,  | 
        
        
           | 
           | 
          integer, intent(in)  | 
          nsrf,  | 
        
        
           | 
           | 
          real, dimension(klon,klev+1), intent(in)  | 
          paprs,  | 
        
        
           | 
           | 
          real, dimension(klon,klev), intent(in)  | 
          pplay,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          u1,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          v1,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          t1,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          q1,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          tsurf,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          qsurf,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          rugos,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(out)  | 
          pcfm,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(out)  | 
          pcfh  | 
        
        
           | 
          ) | 
           |  |