Changeset 1924 for LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

Timestamp:

Jan 8, 2014, 3:41:30 PM (10 years ago)

Author:

idelkadi

Message:

• Rajout de nouveaux diagnostiques pour la comparaison entre les fractions nuageuses sorties derictement dans LMDZ et celles sorties via le simulateur ISCCP. Routines concernees : physiq.F90, phys_output_ctrlout_mod.F90, phys_local_var_mod.F90 et phys_output_write_mod.F90

• Rajout de la fraction d'ensoleillement par jour aux arguments de l'interface avec Cosp (entree pour le simulateur ISCCP). Routine concernée : physiq.F90

File:

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

LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -58 +58 @@
          o_tke_srf, o_tke_max_srf, o_wstar, &
          o_cdrm, o_cdrh, o_cldl, o_cldm, o_cldh, &
-         o_cldt, o_cldq, o_lwp, o_iwp, o_ue, &
-         o_ve, o_uq, o_vq, o_cape, o_pbase, &
+         o_cldt, o_JrNt, o_cldljn, o_cldmjn, &
+         o_cldhjn, o_cldtjn, o_cldq, o_lwp, o_iwp, &
+         o_ue, o_ve, o_uq, o_vq, o_cape, o_pbase, &
          o_ptop, o_fbase, o_plcl, o_plfc, &
          o_wbeff, o_cape_max, o_upwd, o_Ma, &
@@ -106 +107 @@
          o_ovapinit, o_ovap, o_oliq, o_geop, &
          o_vitu, o_vitv, o_vitw, o_pres, o_paprs, &
-         o_zfull, o_zhalf, o_rneb, o_rnebcon, &
+         o_zfull, o_zhalf, o_rneb, o_rnebjn, o_rnebcon, &
          o_rnebls, o_rhum, o_ozone, o_ozone_light, &
          o_dtphy, o_dqphy, o_albe_srf, o_rugs_srf, &
@@ -176 +177 @@
          t2m, fevap, fluxt, fluxlat, fsollw, fsolsw, &
          wfbils, wfbilo, cdragm, cdragh, cldl, cldm, &
-         cldh, cldt, cldq, flwp, fiwp, ue, ve, uq, vq, &
+         cldh, cldt, JrNt, cldljn, cldmjn, cldhjn, &
+         cldtjn, cldq, flwp, fiwp, ue, ve, uq, vq, &
          plcl, plfc, wbeff, upwd, dnwd, dnwd0, prw, &
          s_pblh, s_pblt, s_lcl, s_therm, uwriteSTD, &
@@ -201 +203 @@
          ec550aer, flwc, fiwc, t_seri, theta, q_seri, &
          ql_seri, zphi, u_seri, v_seri, omega, cldfra, &
-         rneb, zx_rh, frugs, agesno, d_t_dyn, d_q_dyn, &
+         rneb, rnebjn, zx_rh, frugs, agesno, d_t_dyn, d_q_dyn, &
          d_u_dyn, d_v_dyn, d_t_con, d_t_ajsb, d_t_ajs, &
          d_u_ajsb, d_u_ajs, d_v_ajsb, d_v_ajs, &
@@ -551 +553 @@
        CALL histwrite_phy(o_cldh, cldh)
        CALL histwrite_phy(o_cldt, cldt)
+       CALL histwrite_phy(o_JrNt, JrNt)
+       CALL histwrite_phy(o_cldljn, cldl*JrNt)
+       CALL histwrite_phy(o_cldmjn, cldm*JrNt)
+       CALL histwrite_phy(o_cldhjn, cldh*JrNt)
+       CALL histwrite_phy(o_cldtjn, cldt*JrNt)
        CALL histwrite_phy(o_cldq, cldq)
        IF (vars_defined)       zx_tmp_fi2d(1:klon) = flwp(1:klon)
@@ -885 +892 @@
        CALL histwrite_phy(o_rnebcon, rnebcon)
        CALL histwrite_phy(o_rnebls, rneb)
+IF (vars_defined)  THEN
+      DO k=1, klev
+         DO i=1, klon
+            zx_tmp_fi3d(i,k)=cldfra(i,k)*JrNt(i)
+         ENDDO
+      ENDDO
+ENDIF
+       CALL histwrite_phy(o_rnebjn, zx_tmp_fi3d)
        CALL histwrite_phy(o_rhum, zx_rh)
        CALL histwrite_phy(o_ozone, &