Changeset 1701 for palm/trunk/SOURCE/data_output_2d.f90
- Timestamp:
- Nov 2, 2015 7:43:04 AM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/data_output_2d.f90
r1692 r1701 15 15 ! 16 16 ! Copyright 1997-2015 Leibniz Universitaet Hannover 17 !--------------------------------------------------------------------------------!17 !--------------------------------------------------------------------------------! 18 18 ! 19 19 ! Current revisions: 20 20 ! ----------------- 21 ! 21 ! Bugfix in output of RRTGM data 22 22 ! 23 23 ! Former revisions: … … 953 953 to_be_resorted => rad_lw_in_av 954 954 ENDIF 955 IF ( mode == 'xy' ) level_z = zu 955 956 956 957 CASE ( 'rad_lw_out_xy', 'rad_lw_out_xz', 'rad_lw_out_yz' ) … … 960 961 to_be_resorted => rad_lw_out_av 961 962 ENDIF 963 IF ( mode == 'xy' ) level_z = zu 962 964 963 965 CASE ( 'rad_lw_cs_hr_xy', 'rad_lw_cs_hr_xz', 'rad_lw_cs_hr_yz' ) … … 967 969 to_be_resorted => rad_lw_cs_hr_av 968 970 ENDIF 971 IF ( mode == 'xy' ) level_z = zw 969 972 970 973 CASE ( 'rad_lw_hr_xy', 'rad_lw_hr_xz', 'rad_lw_hr_yz' ) … … 974 977 to_be_resorted => rad_lw_hr_av 975 978 ENDIF 979 IF ( mode == 'xy' ) level_z = zw 976 980 977 981 CASE ( 'rad_sw_in_xy', 'rad_sw_in_xz', 'rad_sw_in_yz' ) … … 981 985 to_be_resorted => rad_sw_in_av 982 986 ENDIF 987 IF ( mode == 'xy' ) level_z = zu 983 988 984 989 CASE ( 'rad_sw_out_xy', 'rad_sw_out_xz', 'rad_sw_out_yz' ) … … 988 993 to_be_resorted => rad_sw_out_av 989 994 ENDIF 995 IF ( mode == 'xy' ) level_z = zu 990 996 991 997 CASE ( 'rad_sw_cs_hr_xy', 'rad_sw_cs_hr_xz', 'rad_sw_cs_hr_yz' ) … … 995 1001 to_be_resorted => rad_sw_cs_hr_av 996 1002 ENDIF 1003 IF ( mode == 'xy' ) level_z = zw 997 1004 998 1005 CASE ( 'rad_sw_hr_xy', 'rad_sw_hr_xz', 'rad_sw_hr_yz' ) … … 1002 1009 to_be_resorted => rad_sw_hr_av 1003 1010 ENDIF 1011 IF ( mode == 'xy' ) level_z = zw 1004 1012 1005 1013 CASE ( 'rho_xy', 'rho_xz', 'rho_yz' )
Note: See TracChangeset
for help on using the changeset viewer.