Commit b18ad822 authored by ymeur's avatar ymeur
Browse files

Fix missing symbol in xios wrapper when compiling with -no_io option

YM
parent 8c4c6240
Pipeline #183592 passed with stages
in 5 minutes and 22 seconds
......@@ -20,7 +20,6 @@ MODULE nudging_forcing_mod
REAL(rstd) :: lat_end
REAL(rstd) :: lat_delta
REAL(rstd) :: nudging_freq
TYPE(xios_duration) :: freq
INTEGER :: ni_glo
INTEGER :: nj_glo
......@@ -39,12 +38,11 @@ MODULE nudging_forcing_mod
CALL getin("nudging_lat_delta", lat_delta)
CALL getin("nudging_freq", nudging_freq)
freq%second=nudging_freq
ni_glo=ABS(lon_end-lon_start)/lon_delta
nj_glo=ABS(lat_end-lat_start)/lat_delta
IF (is_omp_master) THEN
CALL xios_set_file_attr("nudging_forcing",enabled=.TRUE., output_freq=freq)
CALL xios_set_file_attr("nudging_forcing",enabled=.TRUE., output_freq=nudging_freq*xios_second)
CALL xios_set_generate_rectilinear_domain_attr("nudging_zone",bounds_lon_start=lon_start, bounds_lon_end=lon_end, &
bounds_lat_start=lat_start, bounds_lat_end=lat_end)
CALL xios_set_domain_attr("domain_forcing",ni_glo=ni_glo, nj_glo=nj_glo)
......
......@@ -1188,7 +1188,8 @@ INTERFACE xios_add_child
MODULE PROCEDURE xios_fieldgroup_add_child
END INTERFACE xios_add_child
INTEGER,PARAMETER :: xios_timestep=1
REAL,PARAMETER :: xios_timestep=1.
REAL,PARAMETER :: xios_second=1.
TYPE xios_fieldgroup
END TYPE xios_fieldgroup
......@@ -1196,6 +1197,7 @@ END TYPE xios_fieldgroup
TYPE xios_field
END TYPE
CONTAINS
......@@ -1278,7 +1280,7 @@ CONTAINS
SUBROUTINE xios_set_fieldgroup_attr(name, enabled,read_access,freq_op)
CHARACTER(LEN=*) :: name
LOGICAL,OPTIONAL :: enabled, read_access
INTEGER,OPTIONAL :: freq_op
REAL,OPTIONAL :: freq_op
END SUBROUTINE xios_set_fieldgroup_attr
SUBROUTINE xios_set_filegroup_attr(name,enabled)
......@@ -1290,7 +1292,7 @@ CONTAINS
CHARACTER(LEN=*) :: id
CHARACTER(LEN=*),OPTIONAL :: name, mode
LOGICAL,OPTIONAL :: enabled
INTEGER,OPTIONAL :: output_freq
REAL,OPTIONAL :: output_freq
END SUBROUTINE xios_set_file_attr
SUBROUTINE xios_set_fieldgroup_attr_hdl(field_group, name, enabled, read_access )
......@@ -1307,10 +1309,11 @@ CONTAINS
CHARACTER(LEN=*),OPTIONAL :: field_ref
END SUBROUTINE xios_set_field_attr_hdl
SUBROUTINE xios_set_field_attr(field_id, enabled, read_access)
SUBROUTINE xios_set_field_attr(field_id, enabled, read_access, field_ref)
CHARACTER(LEN=*), INTENT(IN) ::field_id
LOGICAL, OPTIONAL, INTENT(IN) :: enabled
LOGICAL, OPTIONAL, INTENT(IN) :: read_access
CHARACTER(LEN=*),OPTIONAL :: field_ref
END SUBROUTINE xios_set_field_attr
SUBROUTINE xios_get_axis_attr(name,n_glo,value)
......@@ -1341,6 +1344,20 @@ CONTAINS
TYPE(xios_field) :: field_hdl
CHARACTER(LEN=*),OPTIONAL :: id
END SUBROUTINE xios_fieldgroup_add_child
SUBROUTINE xios_set_generate_rectilinear_domain_attr(id, bounds_lon_start, bounds_lon_end, bounds_lat_start, bounds_lat_end)
CHARACTER(LEN=*) :: id
REAL, OPTIONAL :: bounds_lon_start
REAL, OPTIONAL :: bounds_lon_end
REAL, OPTIONAL :: bounds_lat_start
REAL, OPTIONAL :: bounds_lat_end
END SUBROUTINE xios_set_generate_rectilinear_domain_attr
SUBROUTINE xios_set_domain_attr(id, ni_glo, nj_glo)
CHARACTER(LEN=*) :: id
INTEGER, OPTIONAL :: ni_glo
INTEGER, OPTIONAL :: nj_glo
END SUBROUTINE xios_set_domain_attr
#endif
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment