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

Timestamp:

Feb 16, 2009, 7:01:12 PM (15 years ago)

Author:

musat

Message:

Homogeneisation flags sorties convection + poches froides
IM

File:

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

LMDZ4/trunk/libf/phylmd/phys_output_write.h

@@ -510 +510 @@
       CALL histwrite_phy(nid_files(iff),"prw",itau_w,prw)
         ENDIF
+!!! IM beg
+      IF (flag_cape_max(iff)<=lev_files(iff)) THEN
+       CALL histwrite_phy(nid_files(iff),"cape_max",itau_w,cape)
+      ENDIF
+      IF (flag_upwd(iff)<=lev_files(iff)) THEN
+       CALL histwrite_phy(nid_files(iff),"upwd",itau_w,upwd)
+      ENDIF
+      IF (flag_Ma(iff)<=lev_files(iff)) THEN
+       CALL histwrite_phy(nid_files(iff),"Ma",itau_w,Ma)
+      ENDIF
+
+      IF (flag_dnwd(iff)<=lev_files(iff)) THEN
+       CALL histwrite_phy(nid_files(iff),"dnwd",itau_w,dnwd)
+      ENDIF
+
+      IF (flag_dnwd0(iff)<=lev_files(iff)) THEN
+       CALL histwrite_phy(nid_files(iff),"dnwd0",itau_w,dnwd0)
+      ENDIF
+!!! IM end
       ENDIF !iflag_con .GE. 3
 
@@ -616 +635 @@
       IF (type_ocean=='force ') THEN
 
-      IF (iflag_con.GE.3) THEN
+      IF (iflag_con.EQ.3) THEN
+       IF (flag_ale(iff)<=lev_files(iff)) THEN
+       CALL histwrite_phy(nid_files(iff),"ale",itau_w,ale)
+       ENDIF
+       IF (flag_alp(iff)<=lev_files(iff)) THEN
+       CALL histwrite_phy(nid_files(iff),"alp",itau_w,alp)
+       ENDIF
+       IF (flag_cin(iff)<=lev_files(iff)) THEN
+       CALL histwrite_phy(nid_files(iff),"cin",itau_w,cin)
+       ENDIF
       IF (iflag_coupl.EQ.1) THEN
        IF (flag_ale_bl(iff)<=lev_files(iff)) THEN
@@ -634 +662 @@
        ENDIF
 
-       IF (flag_ale(iff)<=lev_files(iff)) THEN
-       CALL histwrite_phy(nid_files(iff),"ale",itau_w,ale)
-       ENDIF
-       IF (flag_alp(iff)<=lev_files(iff)) THEN
-       CALL histwrite_phy(nid_files(iff),"alp",itau_w,alp)
-       ENDIF
-       IF (flag_cin(iff)<=lev_files(iff)) THEN
-       CALL histwrite_phy(nid_files(iff),"cin",itau_w,cin)
-       ENDIF
        IF (flag_wape(iff)<=lev_files(iff)) THEN
        CALL histwrite_phy(nid_files(iff),"WAPE",itau_w,wake_pe)
@@ -667 +686 @@
        CALL histwrite_phy(nid_files(iff),"wake_omg",itau_w,wake_omg)
         ENDIF
-      ENDIF
-
-        IF (flag_Vprecip(iff)<=lev_files(iff)) THEN
-       CALL histwrite_phy(nid_files(iff),"Vprecip",itau_w,Vprecip)
+!!!IM beg
+        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
 
@@ -680 +705 @@
        CALL histwrite_phy(nid_files(iff),"fqd",itau_w,fqd)
         ENDIF
-
-      ENDIF !(iflag_con.GE.3) 
+!!!IM end
+      ENDIF
+
+       IF (flag_Vprecip(iff)<=lev_files(iff)) THEN
+        CALL histwrite_phy(nid_files(iff),"Vprecip",itau_w,Vprecip)
+       ENDIF
+
+      ENDIF !(iflag_con.EQ.3) 
  
       ELSE IF (type_ocean=='slab  ') THEN
@@ -759 +790 @@
       CALL histwrite_phy(nid_files(iff),"snowl",itau_w,snow_lsc)
       ENDIF
-
-      IF (iflag_con.GE.3) THEN
-      IF (flag_cape_max(iff)<=lev_files(iff)) THEN
-      CALL histwrite_phy(nid_files(iff),"cape_max",itau_w,cape)
-      ENDIF
-      ENDIF !(iflag_con.GE.3)
 
       IF (flag_solldown(iff)<=lev_files(iff)) THEN
@@ -854 +879 @@
       CALL histwrite_phy(nid_files(iff),"ozone",itau_w,zx_tmp_fi3d)
       ENDIF
-
-      IF(iflag_con.GE.3) THEN
-       IF (flag_upwd(iff)<=lev_files(iff)) THEN
-      CALL histwrite_phy(nid_files(iff),"upwd",itau_w,upwd)
-       ENDIF
-      ENDIF !(iflag_con.GE.3)
 
        IF (flag_dtphy(iff)<=lev_files(iff)) THEN
@@ -933 +952 @@
        ENDIF
 
-      IF(iflag_con.GE.3) THEN
-       IF (flag_Ma(iff)<=lev_files(iff)) THEN
-      CALL histwrite_phy(nid_files(iff),"Ma",itau_w,Ma)
-       ENDIF
-
-       IF (flag_dnwd(iff)<=lev_files(iff)) THEN
-      CALL histwrite_phy(nid_files(iff),"dnwd",itau_w,dnwd)
-       ENDIF
-
-       IF (flag_dnwd0(iff)<=lev_files(iff)) THEN
-      CALL histwrite_phy(nid_files(iff),"dnwd0",itau_w,dnwd0)
-       ENDIF
-      ENDIF !(iflag_con.GE.3)
-
        IF (flag_dtdyn(iff)<=lev_files(iff)) THEN
       CALL histwrite_phy(nid_files(iff),"dtdyn",itau_w,d_t_dyn)
@@ -977 +982 @@
       CALL histwrite_phy(nid_files(iff),"dqcon",itau_w,zx_tmp_fi3d)
        ENDIF
-
-      IF(iflag_con.GE.3) THEN
-       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
-        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
-      ENDIF !(iflag_con.GE.3) 
 
        IF (flag_dtlsc(iff)<=lev_files(iff)) THEN