Changeset 1783 for palm/trunk/SOURCE/check_open.f90
- Timestamp:
- Mar 6, 2016 6:36:17 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_open.f90
r1780 r1783 19 19 ! Current revisions: 20 20 ! ----------------- 21 ! 21 ! name change of netcdf routines and module + related changes 22 22 ! 23 23 ! Former revisions: … … 106 106 USE control_parameters, & 107 107 ONLY: avs_data_file, coupling_char, data_output_2d_on_each_pe, host, & 108 m essage_string, mid, netcdf_data_format, nz_do3d, openfile,&108 max_masks, message_string, mid, nz_do3d, openfile, & 109 109 return_addres, return_username, run_description_header, runnr 110 110 … … 117 117 USE kinds 118 118 119 USE netcdf_control 119 #if defined( __netcdf ) 120 USE NETCDF 121 #endif 122 123 USE netcdf_interface, & 124 ONLY: id_set_mask, id_set_pr, id_set_prt, id_set_pts, id_set_sp, & 125 id_set_ts, id_set_xy, id_set_xz, id_set_yz, id_set_3d, nc_stat, & 126 netcdf_create_file, netcdf_data_format, netcdf_define_header, & 127 netcdf_handle_error, netcdf_open_write_file 120 128 121 129 USE particle_attributes, & … … 649 657 ! 650 658 !-- Open an existing netCDF file for output 651 CALL open_write_netcdf_file( filename, id_set_xy(av), .TRUE., 20 )659 CALL netcdf_open_write_file( filename, id_set_xy(av), .TRUE., 20 ) 652 660 ! 653 661 !-- Read header information and set all ids. If there is a mismatch 654 662 !-- between the previuos and the actual run, netcdf_extend is returned 655 663 !-- as .FALSE. 656 CALL define_netcdf_header( 'xy', netcdf_extend, av )664 CALL netcdf_define_header( 'xy', netcdf_extend, av ) 657 665 658 666 ! … … 660 668 IF ( .NOT. netcdf_extend ) THEN 661 669 nc_stat = NF90_CLOSE( id_set_xy(av) ) 662 CALL handle_netcdf_error( 'check_open', 21 )670 CALL netcdf_handle_error( 'check_open', 21 ) 663 671 IF ( myid == 0 ) CALL local_system( 'rm ' // TRIM( filename ) ) 664 672 #if defined( __parallel ) && ! defined ( __check ) … … 675 683 ! 676 684 !-- Create a new netCDF output file with requested netCDF format 677 CALL create_netcdf_file( filename, id_set_xy(av), .TRUE., 22 )685 CALL netcdf_create_file( filename, id_set_xy(av), .TRUE., 22 ) 678 686 679 687 ! 680 688 !-- Define the header 681 CALL define_netcdf_header( 'xy', netcdf_extend, av )689 CALL netcdf_define_header( 'xy', netcdf_extend, av ) 682 690 683 691 ! … … 711 719 ! 712 720 !-- Open an existing netCDF file for output 713 CALL open_write_netcdf_file( filename, id_set_xz(av), .TRUE., 23 )721 CALL netcdf_open_write_file( filename, id_set_xz(av), .TRUE., 23 ) 714 722 ! 715 723 !-- Read header information and set all ids. If there is a mismatch 716 724 !-- between the previuos and the actual run, netcdf_extend is returned 717 725 !-- as .FALSE. 718 CALL define_netcdf_header( 'xz', netcdf_extend, av )726 CALL netcdf_define_header( 'xz', netcdf_extend, av ) 719 727 720 728 ! … … 722 730 IF ( .NOT. netcdf_extend ) THEN 723 731 nc_stat = NF90_CLOSE( id_set_xz(av) ) 724 CALL handle_netcdf_error( 'check_open', 24 )732 CALL netcdf_handle_error( 'check_open', 24 ) 725 733 IF ( myid == 0 ) CALL local_system( 'rm ' // TRIM( filename ) ) 726 734 #if defined( __parallel ) && ! defined ( __check ) … … 737 745 ! 738 746 !-- Create a new netCDF output file with requested netCDF format 739 CALL create_netcdf_file( filename, id_set_xz(av), .TRUE., 25 )747 CALL netcdf_create_file( filename, id_set_xz(av), .TRUE., 25 ) 740 748 741 749 ! 742 750 !-- Define the header 743 CALL define_netcdf_header( 'xz', netcdf_extend, av )751 CALL netcdf_define_header( 'xz', netcdf_extend, av ) 744 752 745 753 ! … … 773 781 ! 774 782 !-- Open an existing netCDF file for output 775 CALL open_write_netcdf_file( filename, id_set_yz(av), .TRUE., 26 )783 CALL netcdf_open_write_file( filename, id_set_yz(av), .TRUE., 26 ) 776 784 ! 777 785 !-- Read header information and set all ids. If there is a mismatch 778 786 !-- between the previuos and the actual run, netcdf_extend is returned 779 787 !-- as .FALSE. 780 CALL define_netcdf_header( 'yz', netcdf_extend, av )788 CALL netcdf_define_header( 'yz', netcdf_extend, av ) 781 789 782 790 ! … … 784 792 IF ( .NOT. netcdf_extend ) THEN 785 793 nc_stat = NF90_CLOSE( id_set_yz(av) ) 786 CALL handle_netcdf_error( 'check_open', 27 )794 CALL netcdf_handle_error( 'check_open', 27 ) 787 795 IF ( myid == 0 ) CALL local_system( 'rm ' // TRIM( filename ) ) 788 796 #if defined( __parallel ) && ! defined ( __check ) … … 799 807 ! 800 808 !-- Create a new netCDF output file with requested netCDF format 801 CALL create_netcdf_file( filename, id_set_yz(av), .TRUE., 28 )809 CALL netcdf_create_file( filename, id_set_yz(av), .TRUE., 28 ) 802 810 803 811 ! 804 812 !-- Define the header 805 CALL define_netcdf_header( 'yz', netcdf_extend, av )813 CALL netcdf_define_header( 'yz', netcdf_extend, av ) 806 814 807 815 ! … … 829 837 ! 830 838 !-- Open an existing netCDF file for output 831 CALL open_write_netcdf_file( filename, id_set_pr, .FALSE., 29 )839 CALL netcdf_open_write_file( filename, id_set_pr, .FALSE., 29 ) 832 840 ! 833 841 !-- Read header information and set all ids. If there is a mismatch 834 842 !-- between the previuos and the actual run, netcdf_extend is returned 835 843 !-- as .FALSE. 836 CALL define_netcdf_header( 'pr', netcdf_extend, 0 )844 CALL netcdf_define_header( 'pr', netcdf_extend, 0 ) 837 845 838 846 ! … … 840 848 IF ( .NOT. netcdf_extend ) THEN 841 849 nc_stat = NF90_CLOSE( id_set_pr ) 842 CALL handle_netcdf_error( 'check_open', 30 )850 CALL netcdf_handle_error( 'check_open', 30 ) 843 851 CALL local_system( 'rm ' // TRIM( filename ) ) 844 852 ENDIF … … 849 857 ! 850 858 !-- Create a new netCDF output file with requested netCDF format 851 CALL create_netcdf_file( filename, id_set_pr, .FALSE., 31 )859 CALL netcdf_create_file( filename, id_set_pr, .FALSE., 31 ) 852 860 ! 853 861 !-- Define the header 854 CALL define_netcdf_header( 'pr', netcdf_extend, 0 )862 CALL netcdf_define_header( 'pr', netcdf_extend, 0 ) 855 863 856 864 ENDIF … … 869 877 ! 870 878 !-- Open an existing netCDF file for output 871 CALL open_write_netcdf_file( filename, id_set_ts, .FALSE., 32 )879 CALL netcdf_open_write_file( filename, id_set_ts, .FALSE., 32 ) 872 880 ! 873 881 !-- Read header information and set all ids. If there is a mismatch 874 882 !-- between the previuos and the actual run, netcdf_extend is returned 875 883 !-- as .FALSE. 876 CALL define_netcdf_header( 'ts', netcdf_extend, 0 )884 CALL netcdf_define_header( 'ts', netcdf_extend, 0 ) 877 885 878 886 ! … … 880 888 IF ( .NOT. netcdf_extend ) THEN 881 889 nc_stat = NF90_CLOSE( id_set_ts ) 882 CALL handle_netcdf_error( 'check_open', 33 )890 CALL netcdf_handle_error( 'check_open', 33 ) 883 891 CALL local_system( 'rm ' // TRIM( filename ) ) 884 892 ENDIF … … 889 897 ! 890 898 !-- Create a new netCDF output file with requested netCDF format 891 CALL create_netcdf_file( filename, id_set_ts, .FALSE., 34 )899 CALL netcdf_create_file( filename, id_set_ts, .FALSE., 34 ) 892 900 ! 893 901 !-- Define the header 894 CALL define_netcdf_header( 'ts', netcdf_extend, 0 )902 CALL netcdf_define_header( 'ts', netcdf_extend, 0 ) 895 903 896 904 ENDIF … … 916 924 ! 917 925 !-- Open an existing netCDF file for output 918 CALL open_write_netcdf_file( filename, id_set_3d(av), .TRUE., 35 )926 CALL netcdf_open_write_file( filename, id_set_3d(av), .TRUE., 35 ) 919 927 ! 920 928 !-- Read header information and set all ids. If there is a mismatch 921 929 !-- between the previuos and the actual run, netcdf_extend is returned 922 930 !-- as .FALSE. 923 CALL define_netcdf_header( '3d', netcdf_extend, av )931 CALL netcdf_define_header( '3d', netcdf_extend, av ) 924 932 925 933 ! … … 927 935 IF ( .NOT. netcdf_extend ) THEN 928 936 nc_stat = NF90_CLOSE( id_set_3d(av) ) 929 CALL handle_netcdf_error( 'check_open', 36 )937 CALL netcdf_handle_error( 'check_open', 36 ) 930 938 IF ( myid == 0 ) CALL local_system( 'rm ' // TRIM( filename ) ) 931 939 #if defined( __parallel ) && ! defined ( __check ) … … 943 951 ! 944 952 !-- Create a new netCDF output file with requested netCDF format 945 CALL create_netcdf_file( filename, id_set_3d(av), .TRUE., 37 )953 CALL netcdf_create_file( filename, id_set_3d(av), .TRUE., 37 ) 946 954 947 955 ! 948 956 !-- Define the header 949 CALL define_netcdf_header( '3d', netcdf_extend, av )957 CALL netcdf_define_header( '3d', netcdf_extend, av ) 950 958 951 959 ! … … 974 982 ! 975 983 !-- Open an existing netCDF file for output 976 CALL open_write_netcdf_file( filename, id_set_sp, .FALSE., 38 )984 CALL netcdf_open_write_file( filename, id_set_sp, .FALSE., 38 ) 977 985 978 986 ! … … 980 988 !-- between the previuos and the actual run, netcdf_extend is returned 981 989 !-- as .FALSE. 982 CALL define_netcdf_header( 'sp', netcdf_extend, 0 )990 CALL netcdf_define_header( 'sp', netcdf_extend, 0 ) 983 991 984 992 ! … … 986 994 IF ( .NOT. netcdf_extend ) THEN 987 995 nc_stat = NF90_CLOSE( id_set_sp ) 988 CALL handle_netcdf_error( 'check_open', 39 )996 CALL netcdf_handle_error( 'check_open', 39 ) 989 997 CALL local_system( 'rm ' // TRIM( filename ) ) 990 998 ENDIF … … 995 1003 ! 996 1004 !-- Create a new netCDF output file with requested netCDF format 997 CALL create_netcdf_file( filename, id_set_sp, .FALSE., 40 )1005 CALL netcdf_create_file( filename, id_set_sp, .FALSE., 40 ) 998 1006 ! 999 1007 !-- Define the header 1000 CALL define_netcdf_header( 'sp', netcdf_extend, 0 )1008 CALL netcdf_define_header( 'sp', netcdf_extend, 0 ) 1001 1009 1002 1010 ENDIF … … 1019 1027 ! 1020 1028 !-- Open an existing netCDF file for output 1021 CALL open_write_netcdf_file( filename, id_set_prt, .FALSE., 41 )1029 CALL netcdf_open_write_file( filename, id_set_prt, .FALSE., 41 ) 1022 1030 ! 1023 1031 !-- Read header information and set all ids. If there is a mismatch 1024 1032 !-- between the previuos and the actual run, netcdf_extend is returned 1025 1033 !-- as .FALSE. 1026 CALL define_netcdf_header( 'pt', netcdf_extend, 0 )1034 CALL netcdf_define_header( 'pt', netcdf_extend, 0 ) 1027 1035 1028 1036 ! … … 1030 1038 IF ( .NOT. netcdf_extend ) THEN 1031 1039 nc_stat = NF90_CLOSE( id_set_prt ) 1032 CALL handle_netcdf_error( 'check_open', 42 )1040 CALL netcdf_handle_error( 'check_open', 42 ) 1033 1041 CALL local_system( 'rm ' // TRIM( filename ) ) 1034 1042 ENDIF … … 1056 1064 ! 1057 1065 !-- Create a new netCDF output file with requested netCDF format 1058 CALL create_netcdf_file( filename, id_set_prt, .FALSE., 43 )1066 CALL netcdf_create_file( filename, id_set_prt, .FALSE., 43 ) 1059 1067 1060 1068 ! 1061 1069 !-- Define the header 1062 CALL define_netcdf_header( 'pt', netcdf_extend, 0 )1070 CALL netcdf_define_header( 'pt', netcdf_extend, 0 ) 1063 1071 1064 1072 ENDIF … … 1077 1085 ! 1078 1086 !-- Open an existing netCDF file for output 1079 CALL open_write_netcdf_file( filename, id_set_pts, .FALSE., 393 )1087 CALL netcdf_open_write_file( filename, id_set_pts, .FALSE., 393 ) 1080 1088 ! 1081 1089 !-- Read header information and set all ids. If there is a mismatch 1082 1090 !-- between the previuos and the actual run, netcdf_extend is returned 1083 1091 !-- as .FALSE. 1084 CALL define_netcdf_header( 'ps', netcdf_extend, 0 )1092 CALL netcdf_define_header( 'ps', netcdf_extend, 0 ) 1085 1093 1086 1094 ! … … 1088 1096 IF ( .NOT. netcdf_extend ) THEN 1089 1097 nc_stat = NF90_CLOSE( id_set_pts ) 1090 CALL handle_netcdf_error( 'check_open', 394 )1098 CALL netcdf_handle_error( 'check_open', 394 ) 1091 1099 CALL local_system( 'rm ' // TRIM( filename ) ) 1092 1100 ENDIF … … 1097 1105 ! 1098 1106 !-- Create a new netCDF output file with requested netCDF format 1099 CALL create_netcdf_file( filename, id_set_pts, .FALSE., 395 )1107 CALL netcdf_create_file( filename, id_set_pts, .FALSE., 395 ) 1100 1108 ! 1101 1109 !-- Define the header 1102 CALL define_netcdf_header( 'ps', netcdf_extend, 0 )1110 CALL netcdf_define_header( 'ps', netcdf_extend, 0 ) 1103 1111 1104 1112 ENDIF … … 1138 1146 ! 1139 1147 !-- Open an existing netCDF file for output 1140 CALL open_write_netcdf_file( filename, id_set_mask(mid,av), &1148 CALL netcdf_open_write_file( filename, id_set_mask(mid,av), & 1141 1149 .TRUE., 456 ) 1142 1150 ! … … 1144 1152 !-- between the previuos and the actual run, netcdf_extend is returned 1145 1153 !-- as .FALSE. 1146 CALL define_netcdf_header( 'ma', netcdf_extend, file_id )1154 CALL netcdf_define_header( 'ma', netcdf_extend, file_id ) 1147 1155 1148 1156 ! … … 1150 1158 IF ( .NOT. netcdf_extend ) THEN 1151 1159 nc_stat = NF90_CLOSE( id_set_mask(mid,av) ) 1152 CALL handle_netcdf_error( 'check_open', 457 )1160 CALL netcdf_handle_error( 'check_open', 457 ) 1153 1161 CALL local_system('rm ' // TRIM( filename ) ) 1154 1162 ENDIF … … 1159 1167 ! 1160 1168 !-- Create a new netCDF output file with requested netCDF format 1161 CALL create_netcdf_file( filename, id_set_mask(mid,av), .TRUE., 458 )1169 CALL netcdf_create_file( filename, id_set_mask(mid,av), .TRUE., 458 ) 1162 1170 ! 1163 1171 !-- Define the header 1164 CALL define_netcdf_header( 'ma', netcdf_extend, file_id )1172 CALL netcdf_define_header( 'ma', netcdf_extend, file_id ) 1165 1173 1166 1174 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.