Changeset 3483


Ignore:
Timestamp:
Apr 19, 2019, 3:29:25 PM (5 years ago)
Author:
acozic
Message:

toplwad diagnostic works with INCA aeNP aerosols as well [ merge with rev 3381 of trunk ]

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/phys_output_write_mod.F90

    r3425 r3483  
    13971397          CALL histwrite_phy(o_solswad, solswad_aero*swradcorr)
    13981398          CALL histwrite_phy(o_solswad0, solswad0_aero*swradcorr)
    1399           IF (type_trac .ne. 'inca') THEN
    1400              IF (config_inca .ne. 'aeNP') THEN
    1401                 CALL histwrite_phy(o_toplwad, toplwad_aero)
    1402                 CALL histwrite_phy(o_toplwad0, toplwad0_aero)
    1403                 CALL histwrite_phy(o_sollwad, sollwad_aero)
    1404                 CALL histwrite_phy(o_sollwad0, sollwad0_aero)
    1405              ENDIF
    1406           ENDIF
     1399          CALL histwrite_phy(o_toplwad, toplwad_aero)
     1400          CALL histwrite_phy(o_toplwad0, toplwad0_aero)
     1401          CALL histwrite_phy(o_sollwad, sollwad_aero)
     1402          CALL histwrite_phy(o_sollwad0, sollwad0_aero)
    14071403          !====MS forcing diagnostics
    14081404          IF (new_aod) THEN
Note: See TracChangeset for help on using the changeset viewer.