Parent Directory | Revision Log | Patch
revision 38 by guez, Thu Jan 6 17:52:19 2011 UTC | revision 70 by guez, Mon Jun 24 15:39:52 2013 UTC | |
---|---|---|
# | Line 115 C | Line 115 C |
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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |