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

Timestamp:

Apr 18, 2019, 5:13:26 PM (5 years ago)

Author:

Laurent Fairhead

Message:

Integration of revisions 3425 through 3427 from IPSLCM6.0.15 branch into the trunk
LF

File:

• LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -1455 +1455 @@
           CALL histwrite_phy(o_heat_volc, zx_tmp_fi3d)
           DO k=1, klev
-             IF (vars_defined) zx_tmp_fi3d(:,k)=cool_volc(:,k)*swradcorr(:)
+             IF (vars_defined) zx_tmp_fi3d(:,k)=cool_volc(:,k)
           ENDDO
           CALL histwrite_phy(o_cool_volc, zx_tmp_fi3d)