--- trunk/libf/phylmd/Radlwsw/lw.f	2010/03/03 13:23:49	24
+++ trunk/libf/phylmd/Radlwsw/lw.f	2013/06/24 15:39:52	70
@@ -12,7 +12,7 @@
       use dimens_m
       use dimphy
       use clesphys
-      use YOMCST
+      use SUPHEC_M
       use raddim
             use raddimlw
       IMPLICIT none
@@ -115,7 +115,7 @@
       DO k = 1, KFLEV  ! convertir ozone de kg/kg en pa/pa
       DO i = 1, KDLON
 c convertir ozone de kg/kg en pa (modif MPL 100505)
-         ZOZ(i,k) = POZON(i,k)*PDP(i,k) * RMD/RMO3
+         ZOZ(i,k) = POZON(i,k)*PDP(i,k) * MD/RMO3
 c        print *,'LW: ZOZ*10**6=',ZOZ(i,k)*1000000.
       ENDDO
       ENDDO