Changeset 951 for LMDZ4/trunk
- Timestamp:
- Apr 18, 2008, 5:34:10 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/phylmd/phys_output_write.h
r945 r951 652 652 ENDIF 653 653 654 IF (flag_ale_bl(iff)<=lev_files(iff)) THEN 655 CALL histwrite_phy(nid_files(iff),"ale_bl",itau_w,ale_bl) 656 ENDIF 657 IF (flag_alp_bl(iff)<=lev_files(iff)) THEN 658 CALL histwrite_phy(nid_files(iff),"alp_bl",itau_w,alp_bl) 659 ENDIF 660 IF (flag_ale_wk(iff)<=lev_files(iff)) THEN 661 CALL histwrite_phy(nid_files(iff),"ale_wk",itau_w,ale_wake) 662 ENDIF 663 IF (flag_alp_wk(iff)<=lev_files(iff)) THEN 664 CALL histwrite_phy(nid_files(iff),"alp_wk",itau_w,alp_wake) 654 IF (iflag_coupl.EQ.1) THEN 655 IF (flag_ale_bl(iff)<=lev_files(iff)) THEN 656 CALL histwrite_phy(nid_files(iff),"ale_bl",itau_w,ale_bl) 657 ENDIF 658 IF (flag_alp_bl(iff)<=lev_files(iff)) THEN 659 CALL histwrite_phy(nid_files(iff),"alp_bl",itau_w,alp_bl) 660 ENDIF 661 ENDIF !iflag_coupl.EQ.1 662 663 IF (iflag_wake.EQ.1) THEN 664 IF (flag_ale_wk(iff)<=lev_files(iff)) THEN 665 CALL histwrite_phy(nid_files(iff),"ale_wk",itau_w,ale_wake) 666 ENDIF 667 IF (flag_alp_wk(iff)<=lev_files(iff)) THEN 668 CALL histwrite_phy(nid_files(iff),"alp_wk",itau_w,alp_wake) 669 ENDIF 665 670 ENDIF 666 671 … … 709 714 ENDIF 710 715 716 #ifdef histISCCP 717 IF(ok_isccp) THEN 711 718 IF (flag_meantaucld(iff)<=lev_files(iff)) THEN 712 719 CALL histwrite_phy(nid_files(iff),"meantaucld",itau_w,meantaucld) 713 720 ENDIF 721 ENDIF !(ok_isccp) 722 #endif 714 723 715 724 IF (flag_cldtau(iff)<=lev_files(iff)) THEN … … 972 981 ENDIF 973 982 974 IF (flag_dtwak(iff)<=lev_files(iff)) THEN 975 zx_tmp_fi3d(1:klon,1:klev)=d_t_wake(1:klon,1:klev)/pdtphys 976 CALL histwrite_phy(nid_files(iff),"dtwak",itau_w,zx_tmp_fi3d) 977 ENDIF 978 979 IF (flag_dqwak(iff)<=lev_files(iff)) THEN 980 zx_tmp_fi3d(1:klon,1:klev)=d_q_wake(1:klon,1:klev)/pdtphys 981 CALL histwrite_phy(nid_files(iff),"dqwak",itau_w,zx_tmp_fi3d) 983 IF (iflag_wake.ge.1) THEN 984 IF (flag_dtwak(iff)<=lev_files(iff)) THEN 985 zx_tmp_fi3d(1:klon,1:klev)=d_t_wake(1:klon,1:klev)/pdtphys 986 CALL histwrite_phy(nid_files(iff),"dtwak",itau_w,zx_tmp_fi3d) 987 ENDIF 988 989 IF (flag_dqwak(iff)<=lev_files(iff)) THEN 990 zx_tmp_fi3d(1:klon,1:klev)=d_q_wake(1:klon,1:klev)/pdtphys 991 CALL histwrite_phy(nid_files(iff),"dqwak",itau_w,zx_tmp_fi3d) 992 ENDIF 982 993 ENDIF 983 994 … … 1033 1044 ENDIF 1034 1045 1035 IF (flag_f_th(iff)<=lev_files(iff)) THEN 1036 CALL histwrite_phy(nid_files(iff),"f_th",itau_w,fm_therm) 1037 ENDIF 1038 1039 IF (flag_e_th(iff)<=lev_files(iff)) THEN 1040 CALL histwrite_phy(nid_files(iff),"e_th",itau_w,entr_therm) 1041 ENDIF 1042 1043 IF (flag_d_th(iff)<=lev_files(iff)) THEN 1044 CALL histwrite_phy(nid_files(iff),"d_th",itau_w,detr_therm) 1045 ENDIF 1046 IF (iflag_thermals.ge.1) THEN 1047 IF (flag_f_th(iff)<=lev_files(iff)) THEN 1048 CALL histwrite_phy(nid_files(iff),"f_th",itau_w,fm_therm) 1049 ENDIF 1050 1051 IF (flag_e_th(iff)<=lev_files(iff)) THEN 1052 CALL histwrite_phy(nid_files(iff),"e_th",itau_w,entr_therm) 1053 ENDIF 1054 1055 ! IF (flag_d_th(iff)<=lev_files(iff)) THEN 1056 ! CALL histwrite_phy(nid_files(iff),"d_th",itau_w,detr_therm) 1057 ! ENDIF 1058 ENDIF !iflag_thermals 1046 1059 1047 1060 IF (flag_f0_th(iff)<=lev_files(iff)) THEN
Note: See TracChangeset
for help on using the changeset viewer.