Changeset 2102

Timestamp:

Jul 31, 2014, 1:57:19 PM (10 years ago)

Author:

musat

Message:

Correction bug sorties tendances dtcon/dqcon ancienne physique
IM

File:

• LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -974 +974 @@
        ENDIF
        CALL histwrite_phy(o_dtcon, zx_tmp_fi3d)
-       if(iflag_thermals.eq.1)then
+       if(iflag_thermals.eq.0)then
           IF (vars_defined) THEN
              zx_tmp_fi3d(1:klon,1:klev)=d_t_con(1:klon,1:klev)/pdtphys + &
@@ -980 +980 @@
           ENDIF
           CALL histwrite_phy(o_tntc, zx_tmp_fi3d)
-       else if(iflag_thermals.gt.1.and.iflag_wake.EQ.1)then
+       else if(iflag_thermals.ge.1.and.iflag_wake.EQ.1)then
           IF (vars_defined) THEN
              zx_tmp_fi3d(1:klon,1:klev)=d_t_con(1:klon,1:klev)/pdtphys + &
@@ -995 +995 @@
        CALL histwrite_phy(o_dqcon, zx_tmp_fi3d)
 
-       IF(iflag_thermals.EQ.1) THEN
+       IF(iflag_thermals.EQ.0) THEN
           IF (vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_q_con(1:klon,1:klev)/pdtphys
           CALL histwrite_phy(o_tnhusc, zx_tmp_fi3d)
-       ELSE IF(iflag_thermals.GT.1.AND.iflag_wake.EQ.1) THEN
+       ELSE IF(iflag_thermals.GE.1.AND.iflag_wake.EQ.1) THEN
           IF (vars_defined) THEN
              zx_tmp_fi3d(1:klon,1:klev)=d_q_con(1:klon,1:klev)/pdtphys + &