--- trunk/Sources/phylmd/Radlwsw/swr.f	2016/03/11 18:47:26	178
+++ 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.