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

Timestamp:

Nov 3, 2008, 11:57:59 AM (16 years ago)

Author:

lmdzadmin

Message:

Corrections sorties KE sous flag iflag_con + choix Tiedtke / sorties ISCCP - incompatibles
IM

File:

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

LMDZ4/trunk/libf/phylmd/phys_output_write.h

@@ -616 +616 @@
       IF (type_ocean=='force ') THEN
 
+      IF (iflag_con.GE.3) THEN
       IF (iflag_coupl.EQ.1) THEN
        IF (flag_ale_bl(iff)<=lev_files(iff)) THEN
@@ -646 +647 @@
        ENDIF
       ENDIF
+      ENDIF !(iflag_con.GE.3) 
  
       ELSE IF (type_ocean=='slab  ') THEN
@@ -734 +736 @@
       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
@@ -827 +831 @@
       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
@@ -897 +903 @@
        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)
@@ -908 +915 @@
       CALL histwrite_phy(nid_files(iff),"dnwd0",itau_w,dnwd0)
        ENDIF
+      ENDIF !(iflag_con.GE.3)
 
        IF (flag_dtdyn(iff)<=lev_files(iff)) THEN
@@ -932 +940 @@
        ENDIF
 
+      IF(iflag_con.GE.3) THEN
        IF (iflag_wake == 1) THEN
          IF (flag_dtwak(iff)<=lev_files(iff)) THEN
@@ -944 +953 @@
         ENDIF
        ENDIF
+      ENDIF !(iflag_con.GE.3) 
 
        IF (flag_dtlsc(iff)<=lev_files(iff)) THEN