Changeset 1231 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/ozonecm_m.F90

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/ozonecm_m.F90 (modified) (1 diff)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/ozonecm_m.F90

@@ -86 +86 @@
     field(:,klev+1) = 0.
     forall (k = 1: klev) ozonecm(:,k) = field(:,k) - field(:,k+1)
+    ozonecm = max(ozonecm, 1e-12)
 
   END function ozonecm