Ignore:
Timestamp:
Jul 25, 2017, 3:13:34 PM (7 years ago)
Author:
acozic
Message:

when we turn with inca and old physics we don't calcul toplwad, toplwad0, sollwad, sollwad0

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

    r2958 r2966  
    346346    USE YOESW, ONLY : RSUN
    347347#endif
     348    USE tracinca_mod, ONLY: config_inca
    348349
    349350    IMPLICIT NONE
     
    12551256          CALL histwrite_phy(o_solswad, solswad_aero*swradcorr)
    12561257          CALL histwrite_phy(o_solswad0, solswad0_aero*swradcorr)
    1257           CALL histwrite_phy(o_toplwad, toplwad_aero)
    1258           CALL histwrite_phy(o_toplwad0, toplwad0_aero)
    1259           CALL histwrite_phy(o_sollwad, sollwad_aero)
    1260           CALL histwrite_phy(o_sollwad0, sollwad0_aero)
     1258          IF (type_trac .ne. 'inca') THEN
     1259             IF (config_inca .ne. 'aeNP') THEN
     1260                CALL histwrite_phy(o_toplwad, toplwad_aero)
     1261                CALL histwrite_phy(o_toplwad0, toplwad0_aero)
     1262                CALL histwrite_phy(o_sollwad, sollwad_aero)
     1263                CALL histwrite_phy(o_sollwad0, sollwad0_aero)
     1264             ENDIF
     1265          ENDIF
    12611266          !====MS forcing diagnostics
    12621267          IF (new_aod) THEN
Note: See TracChangeset for help on using the changeset viewer.