Changeset 3787


Ignore:
Timestamp:
Nov 25, 2020, 4:42:11 PM (4 years ago)
Author:
Ehouarn Millour
Message:

Only output RHL and RHI when it makes sense and they are defined.
EM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

    r3780 r3787  
    17111711       CALL histwrite_phy(o_rnebjn, zx_tmp_fi3d)
    17121712       CALL histwrite_phy(o_rhum, zx_rh)
    1713        CALL histwrite_phy(o_rhl, zx_rhl*100.)
    1714        CALL histwrite_phy(o_rhi, zx_rhi*100.)
     1713       IF (iflag_ice_thermo .GT. 0) THEN
     1714         CALL histwrite_phy(o_rhl, zx_rhl*100.)
     1715         CALL histwrite_phy(o_rhi, zx_rhi*100.)
     1716       ENDIF
    17151717
    17161718       
Note: See TracChangeset for help on using the changeset viewer.