Changeset 3112 for LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

Timestamp:

Dec 5, 2017, 12:53:00 PM (7 years ago)

Author:

musat

Message:

Add LMDZ outputs: icc3dcon, icc3dstra
Add CMIP6 outputs : clic, clis, rsdsdiff, rsdscsdiff
Correct parasolRefl_sea
Add "HomeCMIP6" variable HomeCMIP6_parasolCRefl
IM

File:

• LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90 (modified) (5 diffs)

LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -120 +120 @@
          o_swtoacf_zero, o_swsrfcf_zero, &
          o_topswai, o_solswai, o_toplwai, o_sollwai, o_scdnc, &
-         o_cldncl, o_reffclws, o_reffclwc, o_solbnd, o_stratomask,&
+         o_cldncl, o_reffclws, o_reffclwc, o_solbnd, &
+         o_rsdsdiff, o_rsdscsdiff, o_stratomask,&
          o_cldnvi, o_lcc, o_lcc3d, o_lcc3dcon, &
-         o_lcc3dstra, o_reffclwtop, o_ec550aer, &
+         o_lcc3dstra, o_icc3dcon, o_icc3dstra, o_reffclwtop, o_ec550aer, &
          o_lwcon, o_iwcon, o_temp, o_theta, &
          o_ovapinit, o_ovap, o_oliq, o_ocond, o_geop, &
@@ -277 +278 @@
          toplwad_aero, toplwad0_aero, sollwad_aero, &
          sollwad0_aero, toplwai_aero, sollwai_aero, &
-         scdnc, cldncl, reffclws, reffclwc, cldnvi, stratomask,&
-         lcc, lcc3d, lcc3dcon, lcc3dstra, reffclwtop, &
+         scdnc, cldncl, reffclws, reffclwc, cldnvi, &
+         PSFSWDIR, PSFSWDIF, stratomask,&
+         lcc, lcc3d, lcc3dcon, lcc3dstra, icc3dcon, icc3dstra, reffclwtop, &
          ec550aer, flwc, fiwc, t_seri, theta, q_seri, &
          ql_seri, qs_seri, tr_seri, &
@@ -1406 +1408 @@
           CALL histwrite_phy(o_lcc3dcon, lcc3dcon)
           CALL histwrite_phy(o_lcc3dstra, lcc3dstra)
+          CALL histwrite_phy(o_icc3dcon, icc3dcon)
+          CALL histwrite_phy(o_icc3dstra, icc3dstra)
           CALL histwrite_phy(o_reffclwtop, reffclwtop)
        ENDIF
@@ -1432 +1436 @@
 #ifdef CPP_RRTM
       IF (iflag_rrtm.EQ.1) THEN
+
        IF (vars_defined) THEN
         DO ISW=1, NSW
@@ -1438 +1443 @@
         CALL histwrite_phy(o_solbnd, zx_tmp_fi3dsp)
        ENDIF
+
+       IF (vars_defined) THEN
+        CALL histwrite_phy(o_rsdscsdiff, PSFSWDIR)
+       ENDIF
+
+       IF (vars_defined) THEN
+        CALL histwrite_phy(o_rsdsdiff, PSFSWDIF)
+       ENDIF
+
       ENDIF
 #endif