Changeset 3950 for LMDZ6/trunk/libf

Timestamp:

Jun 28, 2021, 8:09:46 PM (3 years ago)

Author:

jyg

Message:

add missing test on vars_defined in phys_output_write

File:

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

LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -1431 +1431 @@
           CALL histwrite_phy(o_slab_bils, slab_wfbils)
           IF (nslay.EQ.1) THEN
-              zx_tmp_fi2d(:)=tslab(:,1)
+              IF (vars_defined) zx_tmp_fi2d(:)=tslab(:,1)
               CALL histwrite_phy(o_tslab, zx_tmp_fi2d)
-              zx_tmp_fi2d(:)=dt_qflux(:,1)
+              IF (vars_defined) zx_tmp_fi2d(:)=dt_qflux(:,1)
               CALL histwrite_phy(o_slab_qflux, zx_tmp_fi2d)
           ELSE
@@ -1449 +1449 @@
           IF (slab_hdiff) THEN
             IF (nslay.EQ.1) THEN
-                zx_tmp_fi2d(:)=dt_hdiff(:,1)
+                IF (vars_defined) zx_tmp_fi2d(:)=dt_hdiff(:,1)
                 CALL histwrite_phy(o_slab_hdiff, zx_tmp_fi2d)
             ELSE
@@ -1457 +1457 @@
           IF (slab_ekman.GT.0) THEN
             IF (nslay.EQ.1) THEN
-                zx_tmp_fi2d(:)=dt_ekman(:,1)
+                IF (vars_defined) zx_tmp_fi2d(:)=dt_ekman(:,1)
                 CALL histwrite_phy(o_slab_ekman, zx_tmp_fi2d)
             ELSE