Changeset 2623 for XIOS2/trunk/src/interface/fortran/ivariable.F90
- Timestamp:
- 03/21/24 10:13:06 (4 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS2/trunk/src/interface/fortran/ivariable.F90
r501 r2623 5 5 USE VARIABLE_INTERFACE 6 6 USE VARIABLEGROUP_INTERFACE 7 USE LOGICAL_BOOL_CONVERSION 7 8 8 9 TYPE txios(variable) … … 40 41 41 42 CALL cxios_variable_valid_id(val, idt, len(idt)) 43 CALL xios_bool_to_logical_0d(val) 42 44 xios(is_valid_variable) = val 43 45 … … 50 52 51 53 CALL cxios_variablegroup_valid_id(val, idt, len(idt)) 54 CALL xios_bool_to_logical_0d(val) 52 55 xios(is_valid_variablegroup) = val 53 56
Note: See TracChangeset
for help on using the changeset viewer.