Ignore:
Timestamp:
Jan 21, 2022, 6:50:11 PM (2 years ago)
Author:
oboucher
Message:

more keys for plane effects to avoid pb on outputs

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r4059 r4062  
    18421842       CALL histwrite_phy(o_qsatl, zqsatl)
    18431843       CALL histwrite_phy(o_qsats, zqsats)
    1844        CALL histwrite_phy(o_flight_m, flight_m)
    1845        CALL histwrite_phy(o_flight_h2o, flight_h2o)
     1844       IF (ok_plane_contrail) THEN
     1845         CALL histwrite_phy(o_flight_m, flight_m)
     1846       ENDIF
     1847       IF (ok_plane_h2o) THEN
     1848         CALL histwrite_phy(o_flight_h2o, flight_h2o)
     1849       ENDIF
    18461850       CALL histwrite_phy(o_Tcontr, Tcontr)
    18471851       CALL histwrite_phy(o_qcontr, qcontr)
Note: See TracChangeset for help on using the changeset viewer.