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

Timestamp:

Dec 8, 2017, 2:04:01 PM (7 years ago)

Author:

musat

Message:

Back to the 3111 svn for the moment..
Keep 2corrections in CMIP6_ping_atmos.xml
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_rsdsdiff, o_rsdscsdiff, o_stratomask,&
+         o_cldncl, o_reffclws, o_reffclwc, o_solbnd, o_stratomask,&
          o_cldnvi, o_lcc, o_lcc3d, o_lcc3dcon, &
-         o_lcc3dstra, o_icc3dcon, o_icc3dstra, &
-         o_cldicemxrat, o_cldwatmxrat, o_reffclwtop, o_ec550aer, &
+         o_lcc3dstra, o_reffclwtop, o_ec550aer, &
          o_lwcon, o_iwcon, o_temp, o_theta, &
          o_ovapinit, o_ovap, o_oliq, o_ocond, o_geop, &
@@ -279 +277 @@
          toplwad_aero, toplwad0_aero, sollwad_aero, &
          sollwad0_aero, toplwai_aero, sollwai_aero, &
-         scdnc, cldncl, reffclws, reffclwc, cldnvi, &
-         PSFSWDIR, PSFSWDIF, stratomask,&
-         lcc, lcc3d, lcc3dcon, lcc3dstra, icc3dcon, icc3dstra, &
-         zfice, reffclwtop, &
+         scdnc, cldncl, reffclws, reffclwc, cldnvi, stratomask,&
+         lcc, lcc3d, lcc3dcon, lcc3dstra, reffclwtop, &
          ec550aer, flwc, fiwc, t_seri, theta, q_seri, &
          ql_seri, qs_seri, tr_seri, &
@@ -1410 +1406 @@
           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_cldicemxrat, zfice)
-          zx_tmp_fi3d(:,:)=1-zfice(:,:)
-          CALL histwrite_phy(o_cldwatmxrat, zx_tmp_fi3d)
           CALL histwrite_phy(o_reffclwtop, reffclwtop)
        ENDIF
@@ -1441 +1432 @@
 #ifdef CPP_RRTM
       IF (iflag_rrtm.EQ.1) THEN
-
        IF (vars_defined) THEN
         DO ISW=1, NSW
@@ -1448 +1438 @@
         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