Changeset 3590 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Oct 18, 2019, 8:04:47 PM (5 years ago)
Author:
oboucher
Message:

Reverting change on zfice. First timestep is now protected.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

    r3588 r3590  
    15491549          CALL histwrite_phy(o_icc3dstra, icc3dstra)
    15501550          CALL histwrite_phy(o_cldicemxrat, zfice)
    1551           ! A reactiver ???
    1552           !zx_tmp_fi3d(:,:)=1-zfice(:,:)
    1553           !CALL histwrite_phy(o_cldwatmxrat, zx_tmp_fi3d)
     1551          IF (vars_defined) zx_tmp_fi3d(:,:)=1-zfice(:,:)
     1552          CALL histwrite_phy(o_cldwatmxrat, zx_tmp_fi3d)
    15541553          CALL histwrite_phy(o_reffclwtop, reffclwtop)
    15551554       ENDIF
Note: See TracChangeset for help on using the changeset viewer.