Go to the source code of this file.
 | 
| subroutine  | coefcdrag (klon, knon, nsrf, zxli, speed, t, q, zgeop, psol, ts, qsurf, rugos, okri, ri1, cdram, cdrah, cdran, zri1, pref) | 
|   | 
      
        
          | subroutine coefcdrag  | 
          ( | 
          integer, intent(in)  | 
          klon,  | 
        
        
           | 
           | 
          integer, intent(in)  | 
          knon,  | 
        
        
           | 
           | 
          integer, intent(in)  | 
          nsrf,  | 
        
        
           | 
           | 
          logical, intent(in)  | 
          zxli,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          speed,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          t,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          q,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          zgeop,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          psol,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          ts,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          qsurf,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          rugos,  | 
        
        
           | 
           | 
          logical, intent(in)  | 
          okri,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          ri1,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(out)  | 
          cdram,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(out)  | 
          cdrah,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(out)  | 
          cdran,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(out)  | 
          zri1,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(out)  | 
          pref  | 
        
        
           | 
          ) | 
           |  |