Changeset 3399 for LMDZ6/branches


Ignore:
Timestamp:
Oct 1, 2018, 11:59:06 AM (6 years ago)
Author:
Laurent Fairhead
Message:

Reverting to r3353 of routine so that correction of t2m interpolation problem
can be seamlessly included in IPSL6.0.7 configuration
Will be included back after commit of t2m corection
LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/phys_output_write_mod.F90

    r3382 r3399  
    13821382          CALL histwrite_phy(o_solswad, solswad_aero*swradcorr)
    13831383          CALL histwrite_phy(o_solswad0, solswad0_aero*swradcorr)
    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)
     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
    13881392          !====MS forcing diagnostics
    13891393          IF (new_aod) THEN
Note: See TracChangeset for help on using the changeset viewer.