- Timestamp:
- Nov 13, 2007, 3:11:17 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/write_histmth.h
r776 r862 819 819 ENDIF 820 820 C 821 822 #if defined(INCA_AER) && defined(CPP_COUPLE) 823 CALL histwrite_phy(nid_mth,"tau",itau_w,cldtau) 824 CALL histwrite_phy(nid_mth,"CCM1",itau_w,ccm(:,:,1)) 825 CALL histwrite_phy(nid_mth,"CCM2",itau_w,ccm(:,:,2)) 826 CALL histwrite_phy(nid_mth,"taupi",itau_w,cldtaupi) 827 CALL histwrite_phy(nid_mth,"cldemi",itau_w,cldemi) 828 CALL histwrite_phy(nid_mth,"SWTOAAS_ZERO",itau_w,topsw_inca(:,1)) 829 CALL histwrite_phy(nid_mth,"SWTOAAS_AER",itau_w,topsw_inca(:,2)) 830 CALL histwrite_phy(nid_mth,"SWTOAAS_NAT",itau_w,topsw_inca(:,3)) 831 CALL histwrite_phy(nid_mth,"SWTOAAS_AD",itau_w,topswad_inca(:)) 832 CALL histwrite_phy(nid_mth,"SWTOAAS_AI",itau_w,topswai_inca(:)) 833 CALL histwrite_phy(nid_mth,"SWTOACS_ZERO",itau_w,topsw0_inca(:,1)) 834 CALL histwrite_phy(nid_mth,"SWTOACS_AER",itau_w,topsw0_inca(:,2)) 835 CALL histwrite_phy(nid_mth,"SWTOACS_AD",itau_w,topswad0_inca(:)) 836 CALL histwrite_phy(nid_mth,"SWTOACS_NAT",itau_w,topsw0_inca(:,3)) 837 #endif 838 #ifndef INCA 821 839 IF (nqmax.GE.3) THEN 822 840 DO iq=3,nqmax … … 825 843 ENDDO 826 844 ENDIF 827 c 845 #endif 828 846 ENDIF !lev_histmth.GE.4 829 847 c … … 1797 1815 ENDIF 1798 1816 C 1817 #if defined(INCA_AER) && defined(CPP_COUPLE) 1818 CALL histwrite_phy(nid_mth,"tau",itau_w,cldtau) 1819 CALL histwrite_phy(nid_mth,"CCM1",itau_w,ccm(:,:,1)) 1820 CALL histwrite_phy(nid_mth,"CCM2",itau_w,ccm(:,:,2)) 1821 CALL histwrite_phy(nid_mth,"taupi",itau_w,cldtaupi) 1822 CALL histwrite_phy(nid_mth,"cldemi",itau_w,cldemi) 1823 CALL histwrite_phy(nid_mth,"SWTOAAS_ZERO",itau_w,topsw_inca(:,1)) 1824 CALL histwrite_phy(nid_mth,"SWTOAAS_AER",itau_w,topsw_inca(:,2)) 1825 CALL histwrite_phy(nid_mth,"SWTOAAS_NAT",itau_w,topsw_inca(:,3)) 1826 CALL histwrite_phy(nid_mth,"SWTOAAS_AD",itau_w,topswad_inca(:)) 1827 CALL histwrite_phy(nid_mth,"SWTOAAS_AI",itau_w,topswai_inca(:)) 1828 CALL histwrite_phy(nid_mth,"SWTOACS_ZERO",itau_w,topsw0_inca(:,1)) 1829 CALL histwrite_phy(nid_mth,"SWTOACS_AER",itau_w,topsw0_inca(:,2)) 1830 CALL histwrite_phy(nid_mth,"SWTOACS_AD",itau_w,topswad0_inca(:)) 1831 CALL histwrite_phy(nid_mth,"SWTOACS_NAT",itau_w,topsw0_inca(:,3)) 1832 #endif 1833 #ifndef INCA 1799 1834 IF (nqmax.GE.3) THEN 1800 1835 DO iq=3,nqmax … … 1804 1839 ENDIF 1805 1840 c 1841 #endif 1806 1842 ENDIF !lev_histmth.GE.4 1807 1843 c
Note: See TracChangeset
for help on using the changeset viewer.