Changeset 3923 for dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/phys_output_write_mod.F90

Timestamp:

Mar 30, 2016, 1:51:44 PM (9 years ago)

Author:

ymipsl

Message:

Fix some uninitialized array.

YM

File:

• dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/phys_output_write_mod.F90 (modified) (1 diff)

dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/phys_output_write_mod.F90

@@ -967 +967 @@
        CALL histwrite_phy(o_rnebjn, zx_tmp_fi3d)
        CALL histwrite_phy(o_rhum, zx_rh)
-       CALL histwrite_phy(o_ozone, &
-            wo(:, :, 1) * dobson_u * 1e3 / zmasse / rmo3 * rmd)
-
+       IF (vars_defined) zx_tmp_fi3d(:,:) = wo(:, :, 1) * dobson_u * 1e3 / zmasse / rmo3 * rmd
+       CALL histwrite_phy(o_ozone, zx_tmp_fi3d)
+       
        IF (read_climoz == 2) THEN
-          CALL histwrite_phy(o_ozone_light, &
-               wo(:, :, 2) * dobson_u * 1e3 / zmasse / rmo3 * rmd)
+          IF (vars_defined) zx_tmp_fi3d(:,:) = wo(:, :, 2) * dobson_u * 1e3 / zmasse / rmo3 * rmd
+          CALL histwrite_phy(o_ozone_light, zx_tmp_fi3d)
        ENDIF