| subroutine calcul_fluxs_mod::calcul_fluxs  | 
          ( | 
          integer, intent(in)  | 
          knon,  | 
        
        
           | 
           | 
          integer, intent(in)  | 
          nisurf,  | 
        
        
           | 
           | 
          real, intent(in)  | 
          dtime,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          tsurf,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          p1lay,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          cal,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          beta,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          cdragh,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          cdragq,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          ps,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          precip_rain,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          precip_snow,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(inout)  | 
          snow,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(out)  | 
          qsurf,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          radsol,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          dif_grnd,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          t1lay,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          q1lay,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          u1lay,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          v1lay,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          gustiness,  | 
        
        
           | 
           | 
          real, intent(in)  | 
          fqsat,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          petAcoef,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          peqAcoef,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          petBcoef,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          peqBcoef,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(out)  | 
          tsurf_new,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(out)  | 
          evap,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(out)  | 
          fluxlat,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(out)  | 
          fluxsens,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(out)  | 
          dflux_s,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(out)  | 
          dflux_l  | 
        
        
           | 
          ) | 
           |  |