Changeset 1989 for LMDZ5/trunk/libf/phylmd/physiq.F90

Timestamp:

Mar 3, 2014, 10:57:40 AM (10 years ago)

Author:

Laurent Fairhead

Message:

Inclusion du code RRTM

---

Adding RRTM code

MPL

File:

• LMDZ5/trunk/libf/phylmd/physiq.F90 (modified) (6 diffs)

LMDZ5/trunk/libf/phylmd/physiq.F90

@@ -640 +640 @@
   save ok_newmicro
   !$OMP THREADPRIVATE(ok_newmicro)
+  !real ref_liq_pi(klon,klev), ref_ice_pi(klon,klev)
   save fact_cldcon,facttemps
   !$OMP THREADPRIVATE(fact_cldcon,facttemps)
@@ -2900 +2901 @@
           flwp, fiwp, flwc, fiwc, &
           mass_solu_aero, mass_solu_aero_pi, &
-          cldtaupi, re, fl, ref_liq, ref_ice) 
+          cldtaupi, re, fl, ref_liq, ref_ice, &
+          ref_liq_pi, ref_ice_pi)
   else
      CALL nuage (paprs, pplay, &
@@ -3037 +3039 @@
              cldtaupirad,new_aod, &
              zqsat, flwc, fiwc, &
+             ref_liq, ref_ice, ref_liq_pi, ref_ice_pi, &
              heat,heat0,cool,cool0,radsol,albpla, &
              topsw,toplw,solsw,sollw, &
@@ -3048 +3051 @@
              topsw_aero, topsw0_aero, &
              solsw_aero, solsw0_aero, &
-             topswcf_aero, solswcf_aero)
+             topswcf_aero, solswcf_aero, &
+             ZLWFT0_i, ZFLDN0, ZFLUP0, &
+             ZSWFT0_i, ZFSDN0, ZFSUP0)
 
         !
@@ -3080 +3085 @@
                    cldtaupi,new_aod, &
                    zqsat, flwc, fiwc, &
+                   ref_liq, ref_ice, ref_liq_pi, ref_ice_pi, &
                    heatp,heat0p,coolp,cool0p,radsolp,albplap, &
                    topswp,toplwp,solswp,sollwp, &
@@ -3091 +3097 @@
                    topsw_aerop, topsw0_aerop, &
                    solsw_aerop, solsw0_aerop, &
-                   topswcf_aerop, solswcf_aerop)
+                   topswcf_aerop, solswcf_aerop, &
+                   ZLWFT0_i, ZFLDN0, ZFLUP0, &
+                   ZSWFT0_i, ZFSDN0, ZFSUP0)
            endif
         endif