| subroutine __module_sf_noahmplsm_f90__::sfcdif4  | 
          ( | 
          integer, intent(in) |           iloc,  | 
         
        
           | 
           | 
          integer, intent(in) |           jloc,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(in) |           ux,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(in) |           vx,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(in) |           t1d,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(in) |           p1d,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(in) |           psfcpa,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(in) |           pblhx,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(in) |           dx,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(in) |           znt,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(in) |           ep_1,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(in) |           ep_2,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(in) |           cp,  | 
         
        
           | 
           | 
          integer, intent(in) |           itime,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(in) |           snwh,  | 
         
        
           | 
           | 
          integer, intent(in) |           isice,  | 
         
        
           | 
           | 
          integer, intent(in) |           psi_opt,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(in) |           tsk,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(in) |           qx,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(in) |           zlvl,  | 
         
        
           | 
           | 
          integer, intent(in), optional |           iz0tlnd,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(inout) |           qsfc,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(in) |           hfx,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(in) |           qfx,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(inout) |           cm,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(inout) |           chs,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(inout) |           chs2,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(inout) |           cqs2,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(inout) |           rmolx,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(inout) |           ust,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(inout) |           rbx,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(inout) |           fmx,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(inout) |           fhx,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(inout) |           stressx,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(inout) |           fm10x,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(inout) |           fh2x,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(inout) |           wspdx,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(inout) |           flhcx,  | 
         
        
           | 
           | 
          real(kind=kind_phys), intent(inout) |           flqcx ) | 
         
       
   | 
  
private   |