Changeset 263 for palm/trunk/SOURCE/data_output_2d.f90
- Timestamp:
- Mar 18, 2009 12:26:04 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/data_output_2d.f90
r254 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 ! … … 568 569 start = (/ do2d_xy_time_count(av) /), & 569 570 count = (/ 1 /) ) 570 IF ( nc_stat /= NF90_NOERR ) THEN 571 CALL handle_netcdf_error( 53 ) 572 ENDIF 571 CALL handle_netcdf_error( 'data_output_2d', 53 ) 573 572 #endif 574 573 ENDIF … … 666 665 count = (/ nx+2, ny+2, 1, 1 /) ) 667 666 ENDIF 668 IF ( nc_stat /= NF90_NOERR ) & 669 CALL handle_netcdf_error( 54 ) 667 CALL handle_netcdf_error( 'data_output_2d', 54 ) 670 668 ENDIF 671 669 #endif … … 708 706 count = (/ nx+2, ny+2, 1, 1 /) ) 709 707 ENDIF 710 IF ( nc_stat /= NF90_NOERR ) & 711 CALL handle_netcdf_error( 55 ) 708 CALL handle_netcdf_error( 'data_output_2d', 55 ) 712 709 ENDIF 713 710 #endif … … 758 755 start = (/ do2d_xz_time_count(av) /), & 759 756 count = (/ 1 /) ) 760 IF ( nc_stat /= NF90_NOERR ) THEN 761 CALL handle_netcdf_error( 56 ) 762 ENDIF 757 CALL handle_netcdf_error( 'data_output_2d', 56 ) 763 758 #endif 764 759 ENDIF … … 882 877 start = (/ 1, is, 1, do2d_xz_time_count(av) /), & 883 878 count = (/ nx+2, 1, nz+2, 1 /) ) 884 IF ( nc_stat /= NF90_NOERR ) & 885 CALL handle_netcdf_error( 57 ) 879 CALL handle_netcdf_error( 'data_output_2d', 57 ) 886 880 ENDIF 887 881 #endif … … 926 920 start = (/ 1, is, 1, do2d_xz_time_count(av) /), & 927 921 count = (/ nx+2, 1, nz+2, 1 /) ) 928 IF ( nc_stat /= NF90_NOERR ) & 929 CALL handle_netcdf_error( 58 ) 922 CALL handle_netcdf_error( 'data_output_2d', 58 ) 930 923 ENDIF 931 924 #endif … … 969 962 start = (/ do2d_yz_time_count(av) /), & 970 963 count = (/ 1 /) ) 971 IF ( nc_stat /= NF90_NOERR ) THEN 972 CALL handle_netcdf_error( 59 ) 973 ENDIF 964 CALL handle_netcdf_error( 'data_output_2d', 59 ) 974 965 #endif 975 966 ENDIF … … 1093 1084 start = (/ is, 1, 1, do2d_yz_time_count(av) /), & 1094 1085 count = (/ 1, ny+2, nz+2, 1 /) ) 1095 IF ( nc_stat /= NF90_NOERR ) & 1096 CALL handle_netcdf_error( 60 ) 1086 CALL handle_netcdf_error( 'data_output_2d', 60 ) 1097 1087 ENDIF 1098 1088 #endif … … 1137 1127 start = (/ is, 1, 1, do2d_xz_time_count(av) /), & 1138 1128 count = (/ 1, ny+2, nz+2, 1 /) ) 1139 IF ( nc_stat /= NF90_NOERR ) & 1140 CALL handle_netcdf_error( 61 ) 1129 CALL handle_netcdf_error( 'data_output_2d', 61 ) 1141 1130 ENDIF 1142 1131 #endif
Note: See TracChangeset
for help on using the changeset viewer.