Line 
Branch 
Exec 
Source 
1 


module mom_flux_rain_m 
2 



3 


implicit none 
4 



5 


contains 
6 



7 

✗ 
elemental real function mom_flux_rain(u, rain) 
8 



9 


! Computes momentum flux due to rainfall, in Pa. 
10 



11 


real, intent(in):: U 
12 


! difference of velocity between air and sea, including gustiness, in m / s 
13 



14 


real, intent(in):: rain ! rain mass flux, in kg m2 s1 
15 



16 


! 
17 



18 

✗ 
mom_flux_rain = 0.85 * U * rain 
19 


! (Caldwell 1971 k1001, equation (1) and 15 % reduction in speed 
20 


! as in paragraph 3.a, maybe adequate if u is the wind at 10 m) 
21 



22 

✗ 
end function mom_flux_rain 
23 



24 


end module mom_flux_rain_m 
25 


