Changeset 864 for LMDZ4/trunk/libf/phytherm/write_histmth.h

Timestamp:

Nov 13, 2007, 3:37:28 PM (17 years ago)

Author:

lsce

Message:

ACo : ajout clef CPP (COUPLE + AER) pour le modele couple avec les aerosol (IPSL_ESM_V1)

File:

• LMDZ4/trunk/libf/phytherm/write_histmth.h (modified) (4 diffs)

LMDZ4/trunk/libf/phytherm/write_histmth.h

@@ -846 +846 @@
       ENDIF
 C
+#if defined(INCA_AER) && defined(CPP_COUPLE)
+      CALL histwrite_phy(nid_mth,"tau",itau_w,cldtau)
+      CALL histwrite_phy(nid_mth,"CCM1",itau_w,ccm(:,:,1))
+      CALL histwrite_phy(nid_mth,"CCM2",itau_w,ccm(:,:,2))
+      CALL histwrite_phy(nid_mth,"taupi",itau_w,cldtaupi)
+      CALL histwrite_phy(nid_mth,"cldemi",itau_w,cldemi)
+      CALL histwrite_phy(nid_mth,"SWTOAAS_ZERO",itau_w,topsw_inca(:,1))
+      CALL histwrite_phy(nid_mth,"SWTOAAS_AER",itau_w,topsw_inca(:,2))
+      CALL histwrite_phy(nid_mth,"SWTOAAS_NAT",itau_w,topsw_inca(:,3))
+      CALL histwrite_phy(nid_mth,"SWTOAAS_AD",itau_w,topswad_inca(:))
+      CALL histwrite_phy(nid_mth,"SWTOAAS_AI",itau_w,topswai_inca(:))
+      CALL histwrite_phy(nid_mth,"SWTOACS_ZERO",itau_w,topsw0_inca(:,1))
+      CALL histwrite_phy(nid_mth,"SWTOACS_AER",itau_w,topsw0_inca(:,2))
+      CALL histwrite_phy(nid_mth,"SWTOACS_AD",itau_w,topswad0_inca(:))
+      CALL histwrite_phy(nid_mth,"SWTOACS_NAT",itau_w,topsw0_inca(:,3))
+#endif
+#ifndef INCA
       IF (nqmax.GE.3) THEN
       DO iq=3,nqmax
@@ -852 +869 @@
       ENDDO
       ENDIF
+#endif
 c
       ENDIF !lev_histmth.GE.4
@@ -1851 +1869 @@
       ENDIF
 C
+#if defined(INCA_AER) && defined(CPP_COUPLE)
+      CALL histwrite_phy(nid_mth,"tau",itau_w,cldtau)
+      CALL histwrite_phy(nid_mth,"CCM1",itau_w,ccm(:,:,1))
+      CALL histwrite_phy(nid_mth,"CCM2",itau_w,ccm(:,:,2))
+      CALL histwrite_phy(nid_mth,"taupi",itau_w,cldtaupi)
+      CALL histwrite_phy(nid_mth,"cldemi",itau_w,cldemi)
+      CALL histwrite_phy(nid_mth,"SWTOAAS_ZERO",itau_w,topsw_inca(:,1))
+      CALL histwrite_phy(nid_mth,"SWTOAAS_AER",itau_w,topsw_inca(:,2))
+      CALL histwrite_phy(nid_mth,"SWTOAAS_NAT",itau_w,topsw_inca(:,3))
+      CALL histwrite_phy(nid_mth,"SWTOAAS_AD",itau_w,topswad_inca(:))
+      CALL histwrite_phy(nid_mth,"SWTOAAS_AI",itau_w,topswai_inca(:))
+      CALL histwrite_phy(nid_mth,"SWTOACS_ZERO",itau_w,topsw0_inca(:,1))
+      CALL histwrite_phy(nid_mth,"SWTOACS_AER",itau_w,topsw0_inca(:,2))
+      CALL histwrite_phy(nid_mth,"SWTOACS_AD",itau_w,topswad0_inca(:))
+      CALL histwrite_phy(nid_mth,"SWTOACS_NAT",itau_w,topsw0_inca(:,3))
+#endif
+#ifndef INCA
       IF (nqmax.GE.3) THEN
       DO iq=3,nqmax
@@ -1857 +1892 @@
       ENDDO
       ENDIF
+#endif
 c
       ENDIF !lev_histmth.GE.4