Changeset 1043
- Timestamp:
- Nov 3, 2008, 11:57:59 AM (16 years ago)
- Location:
- LMDZ4/trunk/libf/phylmd
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/phylmd/phys_output_mod.F90
r1036 r1043 600 600 CALL histdef2d(iff,flag_slab_bils, "slab_wbils_oce","Bilan au sol sur ocean slab", "W/m2") 601 601 602 IF (iflag_con.GE.3) THEN 602 603 CALL histdef2d(iff,flag_ale_bl,"ale_bl","ALE BL","m2/s2") 603 604 CALL histdef2d(iff,flag_alp_bl,"alp_bl","ALP BL","m2/s2") … … 609 610 CALL histdef2d(iff,flag_cin,"cin","Convective INhibition","m2/s2") 610 611 CALL histdef2d(iff,flag_wape,"WAPE","WAPE","m2/s2") 612 ENDIF !(iflag_con.GE.3) 611 613 612 614 CALL histdef2d(iff,flag_weakinv, "weakinv","Weak inversion", "-") … … 623 625 CALL histdef2d(iff,flag_LWdownOR,"LWdownOR","Sfce incident LW radiation OR","W/m2") 624 626 CALL histdef2d(iff,flag_snowl,"snowl","Solid Large-scale Precip.","kg/(m2*s)") 627 IF (iflag_con.GE.3) THEN 625 628 CALL histdef2d(iff,flag_cape_max,"cape_max","CAPE max.", "J/kg") 629 ENDIF !(iflag_con.GE.3) 626 630 CALL histdef2d(iff,flag_solldown,"solldown","Down. IR rad. at surface","W/m2") 627 631 CALL histdef2d(iff,flag_dtsvdfo,"dtsvdfo","Boundary-layer dTs(o)","K/s") … … 646 650 CALL histdef3d(iff,flag_rhum,"rhum","Relative humidity","-") 647 651 CALL histdef3d(iff,flag_ozone,"ozone","Ozone concentration", "ppmv") 648 CALL histdef3d(iff,flag_upwd,"upwd","saturated updraft", "kg/m2/s") 652 IF(iflag_con.GE.3) THEN 653 CALL histdef3d(iff,flag_upwd,"upwd","saturated updraft", "kg/m2/s") 654 ENDIF !iflag_con.GE.3 649 655 CALL histdef3d(iff,flag_dtphy,"dtphy","Physics dT","K/s") 650 656 CALL histdef3d(iff,flag_dqphy,"dqphy","Physics dQ", "(kg/kg)/s") … … 666 672 CALL histdef3d(iff,flag_kz_max,"kz_max","Kz melange max","m2/s" ) 667 673 CALL histdef3d(iff,flag_clwcon,"clwcon","Convective Cloud Liquid water content", "kg/kg") 674 IF(iflag_con.GE.3) THEN 668 675 CALL histdef3d(iff,flag_Ma,"Ma","undilute adiab updraft","kg/m2/s") 669 676 CALL histdef3d(iff,flag_dnwd,"dnwd","saturated downdraft","kg/m2/s") 670 677 CALL histdef3d(iff,flag_dnwd0,"dnwd0","unsat. downdraft", "kg/m2/s") 678 ENDIF !(iflag_con.GE.3) 671 679 CALL histdef3d(iff,flag_dtdyn,"dtdyn","Dynamics dT","K/s") 672 680 CALL histdef3d(iff,flag_dqdyn,"dqdyn","Dynamics dQ", "(kg/kg)/s") … … 674 682 CALL histdef3d(iff,flag_ducon,"ducon","Convection du","m/s2") 675 683 CALL histdef3d(iff,flag_dqcon,"dqcon","Convection dQ", "(kg/kg)/s") 684 IF(iflag_con.GE.3) THEN 676 685 IF (iflag_wake == 1) THEN 677 686 CALL histdef3d(iff,flag_dtwak,"dtwak","Wake dT","K/s") 678 687 CALL histdef3d(iff,flag_dqwak,"dqwak","Wake dQ","(kg/kg)/s") 679 endif 688 ENDIF 689 ENDIF !(iflag_con.GE.3) 680 690 CALL histdef3d(iff,flag_dtlsc,"dtlsc","Condensation dT", "K/s") 681 691 CALL histdef3d(iff,flag_dtlschr,"dtlschr","Large-scale condensational heating rate","K/s") -
LMDZ4/trunk/libf/phylmd/phys_output_write.h
r1036 r1043 616 616 IF (type_ocean=='force ') THEN 617 617 618 IF (iflag_con.GE.3) THEN 618 619 IF (iflag_coupl.EQ.1) THEN 619 620 IF (flag_ale_bl(iff)<=lev_files(iff)) THEN … … 646 647 ENDIF 647 648 ENDIF 649 ENDIF !(iflag_con.GE.3) 648 650 649 651 ELSE IF (type_ocean=='slab ') THEN … … 734 736 ENDIF 735 737 738 IF (iflag_con.GE.3) THEN 736 739 IF (flag_cape_max(iff)<=lev_files(iff)) THEN 737 740 CALL histwrite_phy(nid_files(iff),"cape_max",itau_w,cape) 738 741 ENDIF 742 ENDIF !(iflag_con.GE.3) 739 743 740 744 IF (flag_solldown(iff)<=lev_files(iff)) THEN … … 827 831 ENDIF 828 832 833 IF(iflag_con.GE.3) THEN 829 834 IF (flag_upwd(iff)<=lev_files(iff)) THEN 830 835 CALL histwrite_phy(nid_files(iff),"upwd",itau_w,upwd) 831 836 ENDIF 837 ENDIF !(iflag_con.GE.3) 832 838 833 839 IF (flag_dtphy(iff)<=lev_files(iff)) THEN … … 897 903 ENDIF 898 904 905 IF(iflag_con.GE.3) THEN 899 906 IF (flag_Ma(iff)<=lev_files(iff)) THEN 900 907 CALL histwrite_phy(nid_files(iff),"Ma",itau_w,Ma) … … 908 915 CALL histwrite_phy(nid_files(iff),"dnwd0",itau_w,dnwd0) 909 916 ENDIF 917 ENDIF !(iflag_con.GE.3) 910 918 911 919 IF (flag_dtdyn(iff)<=lev_files(iff)) THEN … … 932 940 ENDIF 933 941 942 IF(iflag_con.GE.3) THEN 934 943 IF (iflag_wake == 1) THEN 935 944 IF (flag_dtwak(iff)<=lev_files(iff)) THEN … … 944 953 ENDIF 945 954 ENDIF 955 ENDIF !(iflag_con.GE.3) 946 956 947 957 IF (flag_dtlsc(iff)<=lev_files(iff)) THEN -
LMDZ4/trunk/libf/phylmd/physiq.F
r1037 r1043 1261 1261 c 1262 1262 IF(ok_isccp.AND.iflag_con.LE.2) THEN 1263 abort_message = 'iflag_con >= 3 for KE and ISCCP simulator' 1263 abort_message = 'ISCCP-like outputs may be available for KE 1264 .(iflag_con >= 3); for Tiedtke (iflag_con=-2) put ok_isccp=n' 1264 1265 CALL abort_gcm (modname,abort_message,1) 1265 1266 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.