Ignore:
Timestamp:
Jul 31, 2014, 1:57:19 PM (10 years ago)
Author:
musat
Message:

Correction bug sorties tendances dtcon/dqcon ancienne physique
IM

File:
1 edited

Legend:

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

    r2097 r2102  
    974974       ENDIF
    975975       CALL histwrite_phy(o_dtcon, zx_tmp_fi3d)
    976        if(iflag_thermals.eq.1)then
     976       if(iflag_thermals.eq.0)then
    977977          IF (vars_defined) THEN
    978978             zx_tmp_fi3d(1:klon,1:klev)=d_t_con(1:klon,1:klev)/pdtphys + &
     
    980980          ENDIF
    981981          CALL histwrite_phy(o_tntc, zx_tmp_fi3d)
    982        else if(iflag_thermals.gt.1.and.iflag_wake.EQ.1)then
     982       else if(iflag_thermals.ge.1.and.iflag_wake.EQ.1)then
    983983          IF (vars_defined) THEN
    984984             zx_tmp_fi3d(1:klon,1:klev)=d_t_con(1:klon,1:klev)/pdtphys + &
     
    995995       CALL histwrite_phy(o_dqcon, zx_tmp_fi3d)
    996996
    997        IF(iflag_thermals.EQ.1) THEN
     997       IF(iflag_thermals.EQ.0) THEN
    998998          IF (vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_q_con(1:klon,1:klev)/pdtphys
    999999          CALL histwrite_phy(o_tnhusc, zx_tmp_fi3d)
    1000        ELSE IF(iflag_thermals.GT.1.AND.iflag_wake.EQ.1) THEN
     1000       ELSE IF(iflag_thermals.GE.1.AND.iflag_wake.EQ.1) THEN
    10011001          IF (vars_defined) THEN
    10021002             zx_tmp_fi3d(1:klon,1:klev)=d_q_con(1:klon,1:klev)/pdtphys + &
Note: See TracChangeset for help on using the changeset viewer.