Changeset 2816


Ignore:
Timestamp:
Mar 7, 2017, 9:28:32 AM (8 years ago)
Author:
fhourdin
Message:

Modification pour sortir bils_ech meme si la conservation de l'energie
n'est pas activee (question d'initialisation).

Location:
LMDZ5/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r2311 r2816  
    153153
    154154      bils_ec(:)=0.
     155      bils_ech(:)=0.
    155156      bils_tke(:)=0.
    156157      bils_diss(:)=0.

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

    r2806 r2816  
    739739       CALL histwrite_phy(o_bils_diss, bils_diss)
    740740       CALL histwrite_phy(o_bils_ec, bils_ec)
    741        IF (iflag_ener_conserv>=1) THEN
    742          CALL histwrite_phy(o_bils_ech, bils_ech)
    743        ENDIF
     741       CALL histwrite_phy(o_bils_ech, bils_ech)
    744742       CALL histwrite_phy(o_bils_tke, bils_tke)
    745743       CALL histwrite_phy(o_bils_kinetic, bils_kinetic)
Note: See TracChangeset for help on using the changeset viewer.