Changeset 1063 for LMDZ4/trunk/libf

Timestamp:

Dec 17, 2008, 1:18:25 PM (16 years ago)

Author:

Laurent Fairhead

Message:

Ajout sorties wake, etc (JYG)
AI/IM

File:

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

LMDZ4/trunk/libf/phylmd/phys_output_write.h

@@ -323 +323 @@
 
          DO nsrf = 1, nbsrf
-           IF(nsrf.GT.2) THEN
+           IF(nsrf.GE.2) THEN
             IF (flag_pourc_sol(iff)<=lev_files(iff)) THEN
             zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, nsrf)*100.
@@ -646 +646 @@
        CALL histwrite_phy(nid_files(iff),"WAPE",itau_w,wake_pe)
        ENDIF
-      ENDIF
+       IF (flag_wake_h(iff)<=lev_files(iff)) THEN
+      CALL histwrite_phy(nid_files(iff),"wake_h",itau_w,wake_h)
+       ENDIF
+
+       IF (flag_wake_s(iff)<=lev_files(iff)) THEN
+      CALL histwrite_phy(nid_files(iff),"wake_s",itau_w,wake_s)
+       ENDIF
+
+        IF (flag_wake_deltat(iff)<=lev_files(iff)) THEN
+       CALL histwrite_phy(nid_files(iff),"wake_deltat",
+     $                     itau_w,wake_deltat)
+        ENDIF
+
+        IF (flag_wake_deltaq(iff)<=lev_files(iff)) THEN
+       CALL histwrite_phy(nid_files(iff),"wake_deltaq",
+     $                    itau_w,wake_deltaq)
+        ENDIF
+
+        IF (flag_wake_omg(iff)<=lev_files(iff)) THEN
+       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)
+        ENDIF
+
+        IF (flag_ftd(iff)<=lev_files(iff)) THEN
+       CALL histwrite_phy(nid_files(iff),"ftd",itau_w,ftd)
+        ENDIF
+
+        IF (flag_fqd(iff)<=lev_files(iff)) THEN
+       CALL histwrite_phy(nid_files(iff),"fqd",itau_w,fqd)
+        ENDIF
+
       ENDIF !(iflag_con.GE.3)