Changeset 1231 for LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar

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/dyn3dpar/calfis_p.F (modified) (1 diff)

LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/calfis_p.F

@@ -210 +210 @@
       SAVE firstcal,debut
 c$OMP THREADPRIVATE(firstcal,debut)
-      REAL :: jD_cur, jH_cur
+      REAL, intent(in):: jD_cur, jH_cur
       
       REAL,SAVE,dimension(1:iim,1:llm):: du_send,du_recv,dv_send,dv_recv