- Timestamp:
- 2017-11-21T17:54:04+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r8770 r8774 211 211 IF( TRIM(cdname) == TRIM(crxios_context) ) THEN 212 212 !set names of the fields in restart file IF using XIOS to read data 213 CALL set_rst_context()213 CALL iom_set_rst_context() 214 214 CALL iom_set_rst_vars(rst_fields) 215 215 !set which fields are to be read from restart file … … 217 217 ELSE IF( TRIM(cdname) == TRIM(cwxios_context) ) THEN 218 218 !set names of the fields in restart file IF using XIOS to write data 219 CALL set_rst_context()219 CALL iom_set_rst_context() 220 220 CALL iom_set_rst_vars(rst_wfields) 221 221 !set which fields are to be read from restart file … … 310 310 END DO 311 311 END SUBROUTINE set_rstr_active 312 313 SUBROUTINE set_rst_context( )314 #if defined key_iomput315 TYPE(xios_domaingroup) :: domaingroup_hdl316 TYPE(xios_domain) :: domain_hdl317 TYPE(xios_axisgroup) :: axisgroup_hdl318 TYPE(xios_axis) :: axis_hdl319 TYPE(xios_scalar) :: scalar_hdl320 TYPE(xios_scalargroup) :: scalargroup_hdl321 322 CALL xios_get_handle("domain_definition",domaingroup_hdl)323 CALL xios_add_child(domaingroup_hdl, domain_hdl, "grid_N")324 CALL set_grid("N", glamt, gphit, .TRUE.)325 326 CALL xios_get_handle("axis_definition",axisgroup_hdl)327 CALL xios_add_child(axisgroup_hdl, axis_hdl, "deptht")328 !AGRIF fails to compile when unit= is in call to xios_set_axis_attr329 ! CALL xios_set_axis_attr( "deptht", long_name="Vertical levels", unit="m", positive="down")330 CALL xios_set_axis_attr( "deptht", long_name="Vertical levels in meters", positive="down")331 CALL iom_set_axis_attr( "deptht", paxis = gdept_1d )332 333 CALL xios_get_handle("scalar_definition", scalargroup_hdl)334 CALL xios_add_child(scalargroup_hdl, scalar_hdl, "grid_scalar")335 #endif336 END SUBROUTINE set_rst_context337 312 338 313 SUBROUTINE iom_set_rstw_core()
Note: See TracChangeset
for help on using the changeset viewer.