--- trunk/Sources/phylmd/Radlwsw/swr.f	2016/08/30 12:52:46	206
+++ trunk/Sources/phylmd/Radlwsw/swr.f	2016/09/01 10:30:53	207
@@ -12,6 +12,7 @@
     USE raddim
     USE radepsi
     USE radopt
+    use swde_m, only: swde
 
     ! ------------------------------------------------------------------
     ! PURPOSE.