Changeset 1026 for codes/icosagcm/devel/src/output/xios_mod.F90

Timestamp:

05/18/20 14:08:19 (4 years ago)

Author:

dubos

Message:

devel : towards conformity to F2008 standard

File:

• codes/icosagcm/devel/src/output/xios_mod.F90 (modified) (1 diff)

codes/icosagcm/devel/src/output/xios_mod.F90

@@ -25 +25 @@
 #ifdef CPP_USING_XIOS
 
-  PUBLIC :: xios_timestep,    & 
+  PUBLIC :: xios_timestep,    &
        xios_set_file_attr, xios_set_fieldgroup_attr, &
        xios_set_filegroup_attr, xios_get_axis_attr, &
        xios_send_field, xios_read_var, &
-       xios_update_calendar, xios_set_context, xios_set_context_input
+       xios_update_calendar, xios_set_context, xios_set_context_input, &
+       OPERATOR(+), OPERATOR(-), OPERATOR(*)
   
 CONTAINS