Changeset 2100 for XIOS/branchs/xios-2.5/src/interface/fortran
- Timestamp:
- 03/11/21 18:38:18 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/branchs/xios-2.5/src/interface/fortran/idata.F90
r1158 r2100 391 391 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: vardid 392 392 INTEGER (kind = C_INT) , VALUE :: varid_size 393 LOGICAL (kind = 4):: data_logic393 LOGICAL (kind = C_BOOL) :: data_logic 394 394 LOGICAL (kind = C_BOOL) :: is_var_existed 395 395 END SUBROUTINE cxios_get_variable_data_logic … … 433 433 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: vardid 434 434 INTEGER (kind = C_INT) , VALUE :: varid_size 435 LOGICAL (kind = 4), VALUE :: data_logic435 LOGICAL (kind = C_BOOL) , VALUE :: data_logic 436 436 LOGICAL (kind = C_BOOL) :: is_var_existed 437 437 END SUBROUTINE cxios_set_variable_data_logic … … 788 788 ! Get variable functions 789 789 LOGICAL FUNCTION xios(getVar_k8)(varId, data_k8) 790 IMPLICIT NONE 791 LOGICAL (kind = 1) :: val 790 USE ISO_C_BINDING 791 IMPLICIT NONE 792 LOGICAL (kind = C_BOOL) :: val 792 793 CHARACTER(len = *) , INTENT(IN) :: varId 793 794 REAL (kind = 8) , INTENT(OUT):: data_k8 … … 799 800 800 801 LOGICAL FUNCTION xios(getVar_k4)(varId, data_k4) 801 IMPLICIT NONE 802 LOGICAL (kind = 1) :: val 802 USE ISO_C_BINDING 803 IMPLICIT NONE 804 LOGICAL (kind = C_BOOL) :: val 803 805 CHARACTER(len = *) , INTENT(IN) :: varId 804 806 REAL (kind = 4) , INTENT(OUT):: data_k4 … … 810 812 811 813 LOGICAL FUNCTION xios(getVar_int)(varId, data_int) 812 IMPLICIT NONE 813 LOGICAL (kind = 1) :: val 814 USE ISO_C_BINDING 815 IMPLICIT NONE 816 LOGICAL (kind = C_BOOL) :: val 814 817 CHARACTER(len = *) , INTENT(IN) :: varId 815 818 INTEGER , INTENT(OUT):: data_int … … 821 824 822 825 LOGICAL FUNCTION xios(getVar_logic)(varId, data_logic) 823 IMPLICIT NONE 824 LOGICAL (kind = 1) :: val 826 USE ISO_C_BINDING 827 IMPLICIT NONE 828 LOGICAL (kind = C_BOOL) :: val 825 829 CHARACTER(len = *) , INTENT(IN) :: varId 826 LOGICAL (kind = 4) , INTENT(OUT):: data_logic 827 828 CALL cxios_get_variable_data_logic(varId, len(varId), data_logic, val) 830 LOGICAL , INTENT(OUT):: data_logic 831 LOGICAL (C_BOOL) :: data_tmp 832 833 CALL cxios_get_variable_data_logic(varId, len(varId), data_tmp, val) 829 834 830 835 xios(getVar_logic) = val 836 IF (val) data_logic = data_tmp 831 837 END FUNCTION xios(getVar_logic) 832 838 833 839 LOGICAL FUNCTION xios(getVar_char)(varId, data_char) 834 IMPLICIT NONE 835 LOGICAL (kind = 1) :: val 840 USE ISO_C_BINDING 841 IMPLICIT NONE 842 LOGICAL (kind = C_BOOL) :: val 836 843 CHARACTER(len = *) , INTENT(IN) :: varId 837 844 CHARACTER(len = *) , INTENT(OUT):: data_char … … 844 851 ! Set variable functions 845 852 LOGICAL FUNCTION xios(setVar_k8)(varId, data_k8) 846 IMPLICIT NONE 847 LOGICAL (kind = 1) :: val 853 USE ISO_C_BINDING 854 IMPLICIT NONE 855 LOGICAL (kind = C_BOOL) :: val 848 856 CHARACTER(len = *) , INTENT(IN) :: varId 849 857 REAL (kind = 8) , INTENT(IN) :: data_k8 … … 855 863 856 864 LOGICAL FUNCTION xios(setVar_k4)(varId, data_k4) 857 IMPLICIT NONE 858 LOGICAL (kind = 1) :: val 865 USE ISO_C_BINDING 866 IMPLICIT NONE 867 LOGICAL (kind = C_BOOL) :: val 859 868 CHARACTER(len = *) , INTENT(IN) :: varId 860 869 REAL (kind = 4) , INTENT(IN) :: data_k4 … … 866 875 867 876 LOGICAL FUNCTION xios(setVar_int)(varId, data_int) 868 IMPLICIT NONE 869 LOGICAL (kind = 1) :: val 877 USE ISO_C_BINDING 878 IMPLICIT NONE 879 LOGICAL (kind = C_BOOL) :: val 870 880 CHARACTER(len = *) , INTENT(IN) :: varId 871 881 INTEGER , INTENT(IN) :: data_int … … 877 887 878 888 LOGICAL FUNCTION xios(setVar_logic)(varId, data_logic) 879 IMPLICIT NONE 880 LOGICAL (kind = 1) :: val 889 USE ISO_C_BINDING 890 IMPLICIT NONE 891 LOGICAL (kind = C_BOOL) :: val 881 892 CHARACTER(len = *) , INTENT(IN) :: varId 882 LOGICAL (kind = 4) , INTENT(IN) :: data_logic 883 884 CALL cxios_set_variable_data_logic(varId, len(varId), data_logic, val) 893 LOGICAL , INTENT(IN) :: data_logic 894 LOGICAL (kind = C_BOOL) :: data_tmp 895 896 data_tmp = data_logic 897 CALL cxios_set_variable_data_logic(varId, len(varId), data_tmp, val) 885 898 886 899 xios(setVar_logic) = val … … 888 901 889 902 LOGICAL FUNCTION xios(setVar_char)(varId, data_char) 890 IMPLICIT NONE 891 LOGICAL (kind = 1) :: val 903 USE ISO_C_BINDING 904 IMPLICIT NONE 905 LOGICAL (kind = C_BOOL) :: val 892 906 CHARACTER(len = *) , INTENT(IN) :: varId 893 907 CHARACTER(len = *) , INTENT(IN) :: data_char
Note: See TracChangeset
for help on using the changeset viewer.