Changeset 3381 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Aug 13, 2018, 9:31:02 PM (6 years ago)
Author:
oboucher
Message:

toplwad diagnostic works with INCA aeNP aerosols as well

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r3332 r3381  
    13711371          CALL histwrite_phy(o_solswad, solswad_aero*swradcorr)
    13721372          CALL histwrite_phy(o_solswad0, solswad0_aero*swradcorr)
    1373           IF (type_trac .ne. 'inca') THEN
    1374              IF (config_inca .ne. 'aeNP') THEN
    1375                 CALL histwrite_phy(o_toplwad, toplwad_aero)
    1376                 CALL histwrite_phy(o_toplwad0, toplwad0_aero)
    1377                 CALL histwrite_phy(o_sollwad, sollwad_aero)
    1378                 CALL histwrite_phy(o_sollwad0, sollwad0_aero)
    1379              ENDIF
    1380           ENDIF
     1373          CALL histwrite_phy(o_toplwad, toplwad_aero)
     1374          CALL histwrite_phy(o_toplwad0, toplwad0_aero)
     1375          CALL histwrite_phy(o_sollwad, sollwad_aero)
     1376          CALL histwrite_phy(o_sollwad0, sollwad0_aero)
    13811377          !====MS forcing diagnostics
    13821378          IF (new_aod) THEN
Note: See TracChangeset for help on using the changeset viewer.