Go to the source code of this file.
 | 
| subroutine  | cdrag (knon, nsrf, speed, t1, q1, zgeop1, psol, tsurf, qsurf, z0m, z0h, pcfm, pcfh, zri, pref) | 
|   | 
      
        
          | subroutine cdrag  | 
          ( | 
          integer, intent(in)  | 
          knon,  | 
        
        
           | 
           | 
          integer, intent(in)  | 
          nsrf,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          speed,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          t1,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          q1,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          zgeop1,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          psol,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          tsurf,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          qsurf,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          z0m,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          z0h,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(out)  | 
          pcfm,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(out)  | 
          pcfh,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(out)  | 
          zri,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(out)  | 
          pref  | 
        
        
           | 
          ) | 
           |  |