Changeset 1231 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/radiation_AR4.F

Timestamp:

Aug 27, 2009, 2:50:15 PM (15 years ago)

Author:

lguez

Message:

These are changes related to ozone in radiative transfer computations:

-- Moved "max(ozonecm, 1e-12)" from procedure "radlwsw" to procedure

"ozonecm".

-- Removed ratio "p_surface / p_reference" in the computation of

"pozon" in "radlwsw".

-- Removed ratio "p_reference / p_surface" in the computation of

"zoz" in "SW_LMDAR4" and "SW_AEROAR4".

-- Removed ratio "mass of air / mass of ozone" in the computation of

"zoz" in "LW_LMDAR4".

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/radiation_AR4.F (modified) (2 diffs)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/radiation_AR4.F

@@ -183 +183 @@
          ZCLDSW0(JL,JK) = 0.0
          ZOZ(JL,JK) = POZON(JL,JK) / dobson_u / 1e3 / RG * PDP(JL,JK)
-     $        * (101325. / PPSOL(JL))
       ENDDO
       ENDDO
@@ -2560 +2559 @@
       DO k = 1, KFLEV
          DO i = 1, KDLON
-            ZOZ(i,k) = POZON(i,k)*PDP(i,k) * RMD/RMO3
+            ZOZ(i,k) = POZON(i,k)*PDP(i,k)
          ENDDO
       ENDDO