Changeset 3799 for LMDZ6/trunk

Timestamp:

Jan 12, 2021, 12:03:09 AM (4 years ago)

Author:

lguez

Message:

Bug fix: no operation in arg of histwrite_phy

An operation like zx_rhl*100. in the actual argument of
histwrite_phy crashes the code if it is compiled in debug mode: at
the first call of phys_output_write_mod, zx_rhl is not defined.

File:

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

LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -1712 +1712 @@
        CALL histwrite_phy(o_rhum, zx_rh)
        IF (iflag_ice_thermo .GT. 0) THEN
-         CALL histwrite_phy(o_rhl, zx_rhl*100.)
-         CALL histwrite_phy(o_rhi, zx_rhi*100.)
+          IF (vars_defined) zx_tmp_fi3d = zx_rhl * 100.
+          CALL histwrite_phy(o_rhl, zx_tmp_fi3d)
+          IF (vars_defined) zx_tmp_fi3d = zx_rhi * 100.
+          CALL histwrite_phy(o_rhi, zx_tmp_fi3d)
        ENDIF