Changeset 1119 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/phys_output_write.h
- Timestamp:
- Mar 11, 2009, 3:45:10 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/phylmd/phys_output_write.h
r1114 r1119 511 511 CALL histwrite_phy(nid_files(iff),o_prw%name,itau_w,prw) 512 512 ENDIF 513 IF (o_cape_max%flag(iff)<=lev_files(iff)) THEN 514 CALL histwrite_phy(nid_files(iff),o_cape_max%name,itau_w,cape) 515 ENDIF 516 IF (o_upwd%flag(iff)<=lev_files(iff)) THEN 517 CALL histwrite_phy(nid_files(iff),o_upwd%name,itau_w,upwd) 518 ENDIF 519 IF (o_Ma%flag(iff)<=lev_files(iff)) THEN 520 CALL histwrite_phy(nid_files(iff),o_Ma%name,itau_w,Ma) 521 ENDIF 522 523 IF (o_dnwd%flag(iff)<=lev_files(iff)) THEN 524 CALL histwrite_phy(nid_files(iff),o_dnwd%name,itau_w,dnwd) 525 ENDIF 526 527 IF (o_dnwd0%flag(iff)<=lev_files(iff)) THEN 528 CALL histwrite_phy(nid_files(iff),o_dnwd0%name,itau_w,dnwd0) 529 ENDIF 513 530 ENDIF !iflag_con .GE. 3 514 531 … … 619 636 IF (type_ocean=='force ') THEN 620 637 621 IF (iflag_con.GE.3) THEN 638 IF (iflag_con.EQ.3) THEN 639 IF (o_ale%flag(iff)<=lev_files(iff)) THEN 640 CALL histwrite_phy(nid_files(iff),o_ale%name,itau_w,ale) 641 ENDIF 642 IF (o_alp%flag(iff)<=lev_files(iff)) THEN 643 CALL histwrite_phy(nid_files(iff),o_alp%name,itau_w,alp) 644 ENDIF 645 IF (o_cin%flag(iff)<=lev_files(iff)) THEN 646 CALL histwrite_phy(nid_files(iff),o_cin%name,itau_w,cin) 647 ENDIF 622 648 IF (iflag_coupl.EQ.1) THEN 623 649 IF (o_ale_bl%flag(iff)<=lev_files(iff)) THEN … … 628 654 ENDIF 629 655 ENDIF !iflag_coupl.EQ.1 630 ENDIF !(iflag_con.GE.3) 631 IF (iflag_con.EQ.3) THEN 656 632 657 IF (iflag_wake.EQ.1) THEN 633 658 IF (o_ale_wk%flag(iff)<=lev_files(iff)) THEN … … 638 663 ENDIF 639 664 640 IF (o_ale%flag(iff)<=lev_files(iff)) THEN641 CALL histwrite_phy(nid_files(iff),o_ale%name,itau_w,ale)642 ENDIF643 IF (o_alp%flag(iff)<=lev_files(iff)) THEN644 CALL histwrite_phy(nid_files(iff),o_alp%name,itau_w,alp)645 ENDIF646 IF (o_cin%flag(iff)<=lev_files(iff)) THEN647 CALL histwrite_phy(nid_files(iff),o_cin%name,itau_w,cin)648 ENDIF649 665 IF (o_wape%flag(iff)<=lev_files(iff)) THEN 650 666 CALL histwrite_phy(nid_files(iff),o_WAPE%name,itau_w,wake_pe) … … 669 685 670 686 IF (o_wake_omg%flag(iff)<=lev_files(iff)) THEN 671 CALL histwrite_phy(nid_files(iff), 672 s o_wake_omg%name,itau_w,wake_omg) 673 ENDIF 674 ENDIF 675 676 IF (o_Vprecip%flag(iff)<=lev_files(iff)) THEN 677 CALL histwrite_phy(nid_files(iff),o_Vprecip%name,itau_w,Vprecip) 687 CALL histwrite_phy(nid_files(iff),o_wake_omg%name,itau_w, 688 .wake_omg) 689 ENDIF 690 IF (o_dtwak%flag(iff)<=lev_files(iff)) THEN 691 zx_tmp_fi3d(1:klon,1:klev)=d_t_wake(1:klon,1:klev) 692 & /pdtphys 693 CALL histwrite_phy(nid_files(iff),o_dtwak%name,itau_w, 694 .zx_tmp_fi3d) 695 ENDIF 696 697 IF (o_dqwak%flag(iff)<=lev_files(iff)) THEN 698 zx_tmp_fi3d(1:klon,1:klev)=d_q_wake(1:klon,1:klev)/pdtphys 699 CALL histwrite_phy(nid_files(iff),o_dqwak%name,itau_w, 700 .zx_tmp_fi3d) 678 701 ENDIF 679 702 … … 685 708 CALL histwrite_phy(nid_files(iff),o_fqd%name,itau_w,fqd) 686 709 ENDIF 710 ENDIF 711 712 IF (o_Vprecip%flag(iff)<=lev_files(iff)) THEN 713 CALL histwrite_phy(nid_files(iff),o_Vprecip%name,itau_w,Vprecip) 714 ENDIF 687 715 688 716 ENDIF !(iflag_con.EQ.3) … … 690 718 ELSE IF (type_ocean=='slab ') THEN 691 719 692 IF ( o_slab_bils%flag(iff)<=lev_files(iff))720 IF ( o_slab_bils%flag(iff)<=lev_files(iff)) 693 721 $ CALL histwrite_phy( 694 722 $ nid_files(iff),o_slab_bils%name,itau_w,slab_wfbils) 695 723 696 724 ENDIF !type_ocean == force/slab 697 725 … … 768 796 CALL histwrite_phy(nid_files(iff),o_snowl%name,itau_w,snow_lsc) 769 797 ENDIF 770 771 IF (iflag_con.GE.3) THEN772 IF (o_cape_max%flag(iff)<=lev_files(iff)) THEN773 CALL histwrite_phy(nid_files(iff),o_cape_max%name,itau_w,cape)774 ENDIF775 ENDIF !(iflag_con.GE.3)776 798 777 799 IF (o_solldown%flag(iff)<=lev_files(iff)) THEN … … 885 907 CALL histwrite_phy(nid_files(iff),o_ozone%name,itau_w,zx_tmp_fi3d) 886 908 ENDIF 887 888 IF(iflag_con.GE.3) THEN889 IF (o_upwd%flag(iff)<=lev_files(iff)) THEN890 CALL histwrite_phy(nid_files(iff),o_upwd%name,itau_w,upwd)891 ENDIF892 ENDIF !(iflag_con.GE.3)893 909 894 910 IF (o_dtphy%flag(iff)<=lev_files(iff)) THEN … … 963 979 ENDIF 964 980 965 IF(iflag_con.GE.3) THEN966 IF (o_Ma%flag(iff)<=lev_files(iff)) THEN967 CALL histwrite_phy(nid_files(iff),o_Ma%name,itau_w,Ma)968 ENDIF969 970 IF (o_dnwd%flag(iff)<=lev_files(iff)) THEN971 CALL histwrite_phy(nid_files(iff),o_dnwd%name,itau_w,dnwd)972 ENDIF973 974 IF (o_dnwd0%flag(iff)<=lev_files(iff)) THEN975 CALL histwrite_phy(nid_files(iff),o_dnwd0%name,itau_w,dnwd0)976 ENDIF977 ENDIF !(iflag_con.GE.3)978 979 981 IF (o_dtdyn%flag(iff)<=lev_files(iff)) THEN 980 982 CALL histwrite_phy(nid_files(iff),o_dtdyn%name,itau_w,d_t_dyn) … … 1007 1009 CALL histwrite_phy(nid_files(iff),o_dqcon%name,itau_w,zx_tmp_fi3d) 1008 1010 ENDIF 1009 1010 IF(iflag_con.GE.3) THEN1011 IF (iflag_wake == 1) THEN1012 IF (o_dtwak%flag(iff)<=lev_files(iff)) THEN1013 zx_tmp_fi3d(1:klon,1:klev)=d_t_wake(1:klon,1:klev)1014 & /pdtphys1015 CALL histwrite_phy(nid_files(iff),1016 & o_dtwak%name,itau_w,zx_tmp_fi3d)1017 ENDIF1018 1019 IF (o_dqwak%flag(iff)<=lev_files(iff)) THEN1020 zx_tmp_fi3d(1:klon,1:klev)=d_q_wake(1:klon,1:klev)/pdtphys1021 CALL histwrite_phy(nid_files(iff),1022 & o_dqwak%name,itau_w,zx_tmp_fi3d)1023 ENDIF1024 ENDIF1025 ENDIF !(iflag_con.GE.3)1026 1011 1027 1012 IF (o_dtlsc%flag(iff)<=lev_files(iff)) THEN
Note: See TracChangeset
for help on using the changeset viewer.