Ignore:
Timestamp:
May 22, 2014, 5:30:38 PM (10 years ago)
Author:
musat
Message:

Calcul de bils_ech seulement si iflag_ener_conserv >=1
IM

  • This line, and those below, will be ignored--

M ener_conserv.F90
M phys_output_write_mod.F90

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r2042 r2051  
    467467       CALL histwrite_phy(o_bils_diss, bils_diss)
    468468       CALL histwrite_phy(o_bils_ec, bils_ec)
    469        CALL histwrite_phy(o_bils_ech, bils_ech)
     469       IF (iflag_ener_conserv>=1) THEN
     470         CALL histwrite_phy(o_bils_ech, bils_ech)
     471       ENDIF
    470472       CALL histwrite_phy(o_bils_tke, bils_tke)
    471473       CALL histwrite_phy(o_bils_kinetic, bils_kinetic)
Note: See TracChangeset for help on using the changeset viewer.