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

Timestamp:

Mar 20, 2008, 1:14:18 PM (17 years ago)

Author:

lmdzadmin

Message:

Ecriture plus compacte des sorties et ajout variables LMDZ AI
IM

File:

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

LMDZ4/trunk/libf/phylmd/phys_output_write.h

@@ -519 +519 @@
         ENDIF
 
-        IF (flag_s_lclt(iff)<=lev_files(iff)) THEN
+        IF (flag_s_lcl(iff)<=lev_files(iff)) THEN
       CALL histwrite_phy(nid_files(iff),"s_lcl",itau_w,s_lcl)
         ENDIF
@@ -527 +527 @@
         ENDIF
 
-        IF (flag_s_oliqCLL(iff)<=lev_files(iff)) THEN
+        IF (flag_s_oliqCL(iff)<=lev_files(iff)) THEN
       CALL histwrite_phy(nid_files(iff),"s_oliqCL",itau_w,s_oliqCL)
         ENDIF
@@ -706 +706 @@
        IF (flag_cldemi(iff)<=lev_files(iff)) THEN
        CALL histwrite_phy(nid_files(iff),"cldemi",itau_w,cldemi)
+       ENDIF
+
+       IF (flag_pr_con_l(iff)<=lev_files(iff)) THEN
+       CALL histwrite_phy(nid_files(iff),"pmflxr",itau_w,pmflxr)
+       ENDIF
+
+       IF (flag_pr_con_i(iff)<=lev_files(iff)) THEN
+       CALL histwrite_phy(nid_files(iff),"pmflxs",itau_w,pmflxs)
+       ENDIF
+
+       IF (flag_pr_lsc_l(iff)<=lev_files(iff)) THEN
+       CALL histwrite_phy(nid_files(iff),"prfl",itau_w,prfl)
+       ENDIF
+
+       IF (flag_pr_lsc_i(iff)<=lev_files(iff)) THEN
+       CALL histwrite_phy(nid_files(iff),"psfl",itau_w,psfl)
        ENDIF