--- trunk/phylmd/Interface_surf/alboc_cd.f	2018/08/02 14:27:11	299
+++ trunk/phylmd/Interface_surf/alboc_cd.f	2018/08/02 15:55:01	300
@@ -4,7 +4,7 @@
 
 contains
 
-  pure function alboc_cd(rmu0)
+  pure function alboc_cd(mu0)
 
     ! From LMDZ4/libf/phylmd/albedo.F, version 1.2, 2005/02/07 15:00:52
 
@@ -17,12 +17,12 @@
     ! 19-28 August 1976, science Press, 1977, pages 451-453, ou
     ! th\`ese de 3\`eme cycle de Sylvie Joussaume.
 
-    REAL, intent(in):: rmu0(:) ! cosinus de l'angle solaire z\'enithal
-    real alboc_cd(size(rmu0)) ! alb\'edo de surface de l'oc\'ean
+    REAL, intent(in):: mu0(:) ! cosinus de l'angle solaire z\'enithal
+    real alboc_cd(size(mu0)) ! alb\'edo de surface de l'oc\'ean
 
     !----------------------------------------------------------
 
-    alboc_cd = max(min(0.058 / (max(rmu0, 0.) + 0.3), 0.6), 0.04)
+    alboc_cd = max(min(0.058 / (max(mu0, 0.) + 0.3), 0.6), 0.04)
 
   END function alboc_cd