Changeset 3590 for LMDZ6/trunk/libf/phylmd

Timestamp:

Oct 18, 2019, 8:04:47 PM (5 years ago)

Author:

oboucher

Message:

Reverting change on zfice. First timestep is now protected.

File:

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

LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -1549 +1549 @@
           CALL histwrite_phy(o_icc3dstra, icc3dstra)
           CALL histwrite_phy(o_cldicemxrat, zfice)
-          ! A reactiver ???
-          !zx_tmp_fi3d(:,:)=1-zfice(:,:)
-          !CALL histwrite_phy(o_cldwatmxrat, zx_tmp_fi3d)
+          IF (vars_defined) zx_tmp_fi3d(:,:)=1-zfice(:,:)
+          CALL histwrite_phy(o_cldwatmxrat, zx_tmp_fi3d)
           CALL histwrite_phy(o_reffclwtop, reffclwtop)
        ENDIF