Changeset 1095 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/phys_output_write.h

Timestamp:

Feb 13, 2009, 10:52:29 AM (16 years ago)

Author:

jghattas

Message:

Ajoute des variables de sorties, necessaires à l'evaluation du code radiatif, qui avaient disparu avec la reecriture.
Anne C/ Abderrahmane I

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/phys_output_write.h (modified) (1 diff)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/phys_output_write.h

@@ -802 +802 @@
        IF (o_rugs%flag(iff)<=lev_files(iff)) THEN
       CALL histwrite_phy(nid_files(iff),o_rugs%name,itau_w,zxrugs)
+       ENDIF
+
+       IF (ok_ade) THEN
+        IF (o_topswad%flag(iff)<=lev_files(iff)) THEN
+      CALL histwrite_phy(nid_files(iff),o_topswad%name,itau_w,topswad)
+        ENDIF
+        IF (o_solswad%flag(iff)<=lev_files(iff)) THEN
+      CALL histwrite_phy(nid_files(iff),o_solswad%name,itau_w,solswad)
+        ENDIF
+       ENDIF
+
+       IF (ok_aie) THEN
+        IF (o_topswai%flag(iff)<=lev_files(iff)) THEN
+      CALL histwrite_phy(nid_files(iff),o_topswai%name,itau_w,topswai)
+        ENDIF
+        IF (o_solswai%flag(iff)<=lev_files(iff)) THEN
+      CALL histwrite_phy(nid_files(iff),o_solswai%name,itau_w,solswai)
+        ENDIF
        ENDIF