Changeset 964 for LMDZ4/trunk/libf/phylmd/phys_output_write.h

Timestamp:

Jun 9, 2008, 11:55:44 AM (16 years ago)

Author:

Laurent Fairhead

Message:

Sorties de certaines variables que quand elles sont bien activees
LF

File:

• LMDZ4/trunk/libf/phylmd/phys_output_write.h (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/phys_output_write.h

@@ -966 +966 @@
        ENDIF
 
-       IF (iflag_wake.ge.1) THEN
-        IF (flag_dtwak(iff)<=lev_files(iff)) THEN
-        zx_tmp_fi3d(1:klon,1:klev)=d_t_wake(1:klon,1:klev)/pdtphys
-        CALL histwrite_phy(nid_files(iff),"dtwak",itau_w,zx_tmp_fi3d)
-        ENDIF
+       IF (iflag_wake == 1) THEN
+         IF (flag_dtwak(iff)<=lev_files(iff)) THEN
+           zx_tmp_fi3d(1:klon,1:klev)=d_t_wake(1:klon,1:klev)           &
+     &                                        /pdtphys
+           CALL histwrite_phy(nid_files(iff),"dtwak",itau_w,zx_tmp_fi3d)
+         ENDIF
 
         IF (flag_dqwak(iff)<=lev_files(iff)) THEN