12 |
use dimens_m |
use dimens_m |
13 |
use dimphy |
use dimphy |
14 |
use clesphys |
use clesphys |
15 |
use YOMCST |
use SUPHEC_M |
16 |
use raddim |
use raddim |
17 |
use raddimlw |
use raddimlw |
18 |
IMPLICIT none |
IMPLICIT none |
115 |
DO k = 1, KFLEV ! convertir ozone de kg/kg en pa/pa |
DO k = 1, KFLEV ! convertir ozone de kg/kg en pa/pa |
116 |
DO i = 1, KDLON |
DO i = 1, KDLON |
117 |
c convertir ozone de kg/kg en pa (modif MPL 100505) |
c convertir ozone de kg/kg en pa (modif MPL 100505) |
118 |
ZOZ(i,k) = POZON(i,k)*PDP(i,k) * RMD/RMO3 |
ZOZ(i,k) = POZON(i,k)*PDP(i,k) * MD/RMO3 |
119 |
c print *,'LW: ZOZ*10**6=',ZOZ(i,k)*1000000. |
c print *,'LW: ZOZ*10**6=',ZOZ(i,k)*1000000. |
120 |
ENDDO |
ENDDO |
121 |
ENDDO |
ENDDO |