Changeset 263 for palm/trunk/SOURCE/check_open.f90
- Timestamp:
- Mar 18, 2009 12:26:04 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_open.f90
r247 r263 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! Output of NetCDF messages with aid of message handling routine. 6 7 ! Output of messages replaced by message handling routine 7 8 ! … … 697 698 !-- Open an existing NetCDF file for output 698 699 nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_xy(av) ) 699 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 20 ) 700 701 CALL handle_netcdf_error( 'check_open', 20 ) 700 702 ! 701 703 !-- Read header information and set all ids. If there is a mismatch … … 708 710 IF ( .NOT. netcdf_extend ) THEN 709 711 nc_stat = NF90_CLOSE( id_set_xy(av) ) 710 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(21 )712 CALL handle_netcdf_error( 'check_open', 21 ) 711 713 CALL local_system( 'rm ' // TRIM( filename ) ) 712 714 ENDIF … … 731 733 nc_stat = NF90_CREATE( filename, NF90_NOCLOBBER, id_set_xy(av) ) 732 734 ENDIF 733 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(22 )735 CALL handle_netcdf_error( 'check_open', 22 ) 734 736 ! 735 737 !-- Define the header … … 758 760 !-- Open an existing NetCDF file for output 759 761 nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_xz(av) ) 760 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(23 )762 CALL handle_netcdf_error( 'check_open', 23 ) 761 763 ! 762 764 !-- Read header information and set all ids. If there is a mismatch … … 769 771 IF ( .NOT. netcdf_extend ) THEN 770 772 nc_stat = NF90_CLOSE( id_set_xz(av) ) 771 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(24 )773 CALL handle_netcdf_error( 'check_open', 24 ) 772 774 CALL local_system( 'rm ' // TRIM( filename ) ) 773 775 ENDIF … … 792 794 nc_stat = NF90_CREATE( filename, NF90_NOCLOBBER, id_set_xz(av) ) 793 795 ENDIF 794 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(25 )796 CALL handle_netcdf_error( 'check_open', 25 ) 795 797 ! 796 798 !-- Define the header … … 819 821 !-- Open an existing NetCDF file for output 820 822 nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_yz(av) ) 821 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(26 )823 CALL handle_netcdf_error( 'check_open', 26 ) 822 824 ! 823 825 !-- Read header information and set all ids. If there is a mismatch … … 830 832 IF ( .NOT. netcdf_extend ) THEN 831 833 nc_stat = NF90_CLOSE( id_set_yz(av) ) 832 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(27 )834 CALL handle_netcdf_error( 'check_open', 27 ) 833 835 CALL local_system( 'rm ' // TRIM( filename ) ) 834 836 ENDIF … … 853 855 nc_stat = NF90_CREATE( filename, NF90_NOCLOBBER, id_set_yz(av) ) 854 856 ENDIF 855 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(28 )857 CALL handle_netcdf_error( 'check_open', 28 ) 856 858 ! 857 859 !-- Define the header … … 874 876 !-- Open an existing NetCDF file for output 875 877 nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_pr ) 876 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(29 )878 CALL handle_netcdf_error( 'check_open', 29 ) 877 879 ! 878 880 !-- Read header information and set all ids. If there is a mismatch … … 885 887 IF ( .NOT. netcdf_extend ) THEN 886 888 nc_stat = NF90_CLOSE( id_set_pr ) 887 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(30 )889 CALL handle_netcdf_error( 'check_open', 30 ) 888 890 CALL local_system( 'rm ' // TRIM( filename ) ) 889 891 ENDIF … … 908 910 nc_stat = NF90_CREATE( filename, NF90_NOCLOBBER, id_set_pr ) 909 911 ENDIF 910 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(31 )912 CALL handle_netcdf_error( 'check_open', 31 ) 911 913 ! 912 914 !-- Define the header … … 929 931 !-- Open an existing NetCDF file for output 930 932 nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_ts ) 931 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(32 )933 CALL handle_netcdf_error( 'check_open', 32 ) 932 934 ! 933 935 !-- Read header information and set all ids. If there is a mismatch … … 940 942 IF ( .NOT. netcdf_extend ) THEN 941 943 nc_stat = NF90_CLOSE( id_set_ts ) 942 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(33 )944 CALL handle_netcdf_error( 'check_open', 33 ) 943 945 CALL local_system( 'rm ' // TRIM( filename ) ) 944 946 ENDIF … … 963 965 nc_stat = NF90_CREATE( filename, NF90_NOCLOBBER, id_set_ts ) 964 966 ENDIF 965 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(34 )967 CALL handle_netcdf_error( 'check_open', 34 ) 966 968 ! 967 969 !-- Define the header … … 991 993 !-- Open an existing NetCDF file for output 992 994 nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_3d(av) ) 993 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(35 )995 CALL handle_netcdf_error( 'check_open', 35 ) 994 996 ! 995 997 !-- Read header information and set all ids. If there is a mismatch … … 1002 1004 IF ( .NOT. netcdf_extend ) THEN 1003 1005 nc_stat = NF90_CLOSE( id_set_3d(av) ) 1004 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(36 )1006 CALL handle_netcdf_error( 'check_open', 36 ) 1005 1007 CALL local_system('rm ' // TRIM( filename ) ) 1006 1008 ENDIF … … 1025 1027 nc_stat = NF90_CREATE( filename, NF90_NOCLOBBER, id_set_3d(av) ) 1026 1028 ENDIF 1027 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(37 )1029 CALL handle_netcdf_error( 'check_open', 37 ) 1028 1030 ! 1029 1031 !-- Define the header … … 1047 1049 !-- Open an existing NetCDF file for output 1048 1050 nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_sp ) 1049 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 38 ) 1051 CALL handle_netcdf_error( 'check_open', 38 ) 1052 1050 1053 ! 1051 1054 !-- Read header information and set all ids. If there is a mismatch … … 1058 1061 IF ( .NOT. netcdf_extend ) THEN 1059 1062 nc_stat = NF90_CLOSE( id_set_sp ) 1060 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(39 )1063 CALL handle_netcdf_error( 'check_open', 39 ) 1061 1064 CALL local_system( 'rm ' // TRIM( filename ) ) 1062 1065 ENDIF … … 1081 1084 nc_stat = NF90_CREATE( filename, NF90_NOCLOBBER, id_set_sp ) 1082 1085 ENDIF 1083 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(40 )1086 CALL handle_netcdf_error( 'check_open', 40 ) 1084 1087 ! 1085 1088 !-- Define the header … … 1106 1109 !-- Open an existing NetCDF file for output 1107 1110 nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_prt ) 1108 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(41 )1111 CALL handle_netcdf_error( 'check_open', 41 ) 1109 1112 ! 1110 1113 !-- Read header information and set all ids. If there is a mismatch … … 1117 1120 IF ( .NOT. netcdf_extend ) THEN 1118 1121 nc_stat = NF90_CLOSE( id_set_prt ) 1119 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(42 )1122 CALL handle_netcdf_error( 'check_open', 42 ) 1120 1123 CALL local_system( 'rm ' // filename ) 1121 1124 ENDIF … … 1157 1160 nc_stat = NF90_CREATE( filename, NF90_NOCLOBBER, id_set_prt ) 1158 1161 ENDIF 1159 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 43 )1162 CALL handle_netcdf_error( 'check_open', 43 ) 1160 1163 1161 1164 ! … … 1179 1182 !-- Open an existing NetCDF file for output 1180 1183 nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_pts ) 1181 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(393 )1184 CALL handle_netcdf_error( 'check_open', 393 ) 1182 1185 ! 1183 1186 !-- Read header information and set all ids. If there is a mismatch … … 1190 1193 IF ( .NOT. netcdf_extend ) THEN 1191 1194 nc_stat = NF90_CLOSE( id_set_pts ) 1192 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(394 )1195 CALL handle_netcdf_error( 'check_open', 394 ) 1193 1196 CALL local_system( 'rm ' // TRIM( filename ) ) 1194 1197 ENDIF … … 1213 1216 nc_stat = NF90_CREATE( filename, NF90_NOCLOBBER, id_set_pts ) 1214 1217 ENDIF 1215 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(395 )1218 CALL handle_netcdf_error( 'check_open', 395 ) 1216 1219 ! 1217 1220 !-- Define the header
Note: See TracChangeset
for help on using the changeset viewer.