Changeset 951

Timestamp:

Apr 18, 2008, 5:34:10 PM (17 years ago)

Author:

lmdzadmin

Message:

Correction petits bogues; on ecrit nouvelles variables sous flags appropries JG
IM

File:

• LMDZ4/trunk/libf/phylmd/phys_output_write.h (modified) (4 diffs)

LMDZ4/trunk/libf/phylmd/phys_output_write.h

@@ -652 +652 @@
       ENDIF
 
-      IF (flag_ale_bl(iff)<=lev_files(iff)) THEN
-      CALL histwrite_phy(nid_files(iff),"ale_bl",itau_w,ale_bl)
-      ENDIF
-      IF (flag_alp_bl(iff)<=lev_files(iff)) THEN
-      CALL histwrite_phy(nid_files(iff),"alp_bl",itau_w,alp_bl)
-      ENDIF
-      IF (flag_ale_wk(iff)<=lev_files(iff)) THEN
-      CALL histwrite_phy(nid_files(iff),"ale_wk",itau_w,ale_wake)
-      ENDIF
-      IF (flag_alp_wk(iff)<=lev_files(iff)) THEN
-      CALL histwrite_phy(nid_files(iff),"alp_wk",itau_w,alp_wake)
+      IF (iflag_coupl.EQ.1) THEN
+       IF (flag_ale_bl(iff)<=lev_files(iff)) THEN
+       CALL histwrite_phy(nid_files(iff),"ale_bl",itau_w,ale_bl)
+       ENDIF
+       IF (flag_alp_bl(iff)<=lev_files(iff)) THEN
+       CALL histwrite_phy(nid_files(iff),"alp_bl",itau_w,alp_bl)
+       ENDIF
+      ENDIF !iflag_coupl.EQ.1
+
+      IF (iflag_wake.EQ.1) THEN
+       IF (flag_ale_wk(iff)<=lev_files(iff)) THEN
+       CALL histwrite_phy(nid_files(iff),"ale_wk",itau_w,ale_wake)
+       ENDIF
+       IF (flag_alp_wk(iff)<=lev_files(iff)) THEN
+       CALL histwrite_phy(nid_files(iff),"alp_wk",itau_w,alp_wake)
+       ENDIF
       ENDIF
 
@@ -709 +714 @@
       ENDIF
 
+#ifdef histISCCP
+      IF(ok_isccp) THEN
        IF (flag_meantaucld(iff)<=lev_files(iff)) THEN
        CALL histwrite_phy(nid_files(iff),"meantaucld",itau_w,meantaucld)
        ENDIF
+      ENDIF !(ok_isccp)
+#endif
 
        IF (flag_cldtau(iff)<=lev_files(iff)) THEN
@@ -972 +981 @@
        ENDIF
 
-       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
-      zx_tmp_fi3d(1:klon,1:klev)=d_q_wake(1:klon,1:klev)/pdtphys
-      CALL histwrite_phy(nid_files(iff),"dqwak",itau_w,zx_tmp_fi3d)
+       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 (flag_dqwak(iff)<=lev_files(iff)) THEN
+        zx_tmp_fi3d(1:klon,1:klev)=d_q_wake(1:klon,1:klev)/pdtphys
+        CALL histwrite_phy(nid_files(iff),"dqwak",itau_w,zx_tmp_fi3d)
+        ENDIF
        ENDIF
 
@@ -1033 +1044 @@
        ENDIF
 
-       IF (flag_f_th(iff)<=lev_files(iff)) THEN
-      CALL histwrite_phy(nid_files(iff),"f_th",itau_w,fm_therm)
-       ENDIF
-
-       IF (flag_e_th(iff)<=lev_files(iff)) THEN
-      CALL histwrite_phy(nid_files(iff),"e_th",itau_w,entr_therm)
-       ENDIF
-
-       IF (flag_d_th(iff)<=lev_files(iff)) THEN
-      CALL histwrite_phy(nid_files(iff),"d_th",itau_w,detr_therm)
-       ENDIF
+       IF (iflag_thermals.ge.1) THEN
+        IF (flag_f_th(iff)<=lev_files(iff)) THEN
+        CALL histwrite_phy(nid_files(iff),"f_th",itau_w,fm_therm)
+        ENDIF
+
+        IF (flag_e_th(iff)<=lev_files(iff)) THEN
+        CALL histwrite_phy(nid_files(iff),"e_th",itau_w,entr_therm)
+        ENDIF
+
+!       IF (flag_d_th(iff)<=lev_files(iff)) THEN
+!       CALL histwrite_phy(nid_files(iff),"d_th",itau_w,detr_therm)
+!       ENDIF
+       ENDIF !iflag_thermals
 
        IF (flag_f0_th(iff)<=lev_files(iff)) THEN