Changeset 3382 for LMDZ6/branches


Ignore:
Timestamp:
Aug 14, 2018, 12:56:33 PM (6 years ago)
Author:
oboucher
Message:

toplwad diag also works for aeNP case

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r3284 r3382  
    13821382          CALL histwrite_phy(o_solswad, solswad_aero*swradcorr)
    13831383          CALL histwrite_phy(o_solswad0, solswad0_aero*swradcorr)
    1384           IF (type_trac .ne. 'inca') THEN
    1385              IF (config_inca .ne. 'aeNP') THEN
    1386                 CALL histwrite_phy(o_toplwad, toplwad_aero)
    1387                 CALL histwrite_phy(o_toplwad0, toplwad0_aero)
    1388                 CALL histwrite_phy(o_sollwad, sollwad_aero)
    1389                 CALL histwrite_phy(o_sollwad0, sollwad0_aero)
    1390              ENDIF
    1391           ENDIF
     1384          CALL histwrite_phy(o_toplwad, toplwad_aero)
     1385          CALL histwrite_phy(o_toplwad0, toplwad0_aero)
     1386          CALL histwrite_phy(o_sollwad, sollwad_aero)
     1387          CALL histwrite_phy(o_sollwad0, sollwad0_aero)
    13921388          !====MS forcing diagnostics
    13931389          IF (new_aod) THEN
Note: See TracChangeset for help on using the changeset viewer.