Changeset 8792 for branches/2017/dev_r8600_xios_read_write/NEMOGCM
- Timestamp:
- 2017-11-23T12:29:39+01:00 (7 years ago)
- Location:
- branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/IOM
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r8786 r8792 41 41 USE dianam ! build name of file 42 42 USE xios 43 USE iom_def, ONLY : max_rst_fields, rst_ fields, rst_wfields, RST_FIELD43 USE iom_def, ONLY : max_rst_fields, rst_rfields, rst_wfields, RST_FIELD 44 44 # endif 45 45 USE ioipsl, ONLY : ju2ymds ! for calendar … … 212 212 !set names of the fields in restart file IF using XIOS to read data 213 213 CALL iom_set_rst_context() 214 CALL iom_set_rst_vars(rst_ fields)214 CALL iom_set_rst_vars(rst_rfields) 215 215 !set which fields are to be read from restart file 216 216 CALL iom_set_rstr_active() … … 288 288 !defin files for restart context 289 289 DO i = 1, max_rst_fields 290 IF( TRIM(rst_ fields(i)%vname) /= "NO_NAME") THEN291 IF( iom_varid( numror, TRIM(rst_ fields(i)%vname), ldstop = .FALSE. ) > 0 ) THEN292 CALL xios_add_child(file_hdl, field_hdl, TRIM(rst_ fields(i)%vname))293 SELECT CASE (TRIM(rst_ fields(i)%grid))290 IF( TRIM(rst_rfields(i)%vname) /= "NO_NAME") THEN 291 IF( iom_varid( numror, TRIM(rst_rfields(i)%vname), ldstop = .FALSE. ) > 0 ) THEN 292 CALL xios_add_child(file_hdl, field_hdl, TRIM(rst_rfields(i)%vname)) 293 SELECT CASE (TRIM(rst_rfields(i)%grid)) 294 294 CASE ("grid_N_3D") 295 CALL xios_set_attr (field_hdl, enabled = .TRUE., name = TRIM(rst_ fields(i)%vname), &295 CALL xios_set_attr (field_hdl, enabled = .TRUE., name = TRIM(rst_rfields(i)%vname), & 296 296 domain_ref="grid_N", axis_ref="deptht", operation = "instant") 297 297 CASE ("grid_N") 298 CALL xios_set_attr (field_hdl, enabled = .TRUE., name = TRIM(rst_ fields(i)%vname), &298 CALL xios_set_attr (field_hdl, enabled = .TRUE., name = TRIM(rst_rfields(i)%vname), & 299 299 domain_ref="grid_N", operation = "instant") 300 300 CASE ("grid_vector") 301 CALL xios_set_attr (field_hdl, enabled = .TRUE., name = TRIM(rst_ fields(i)%vname), &301 CALL xios_set_attr (field_hdl, enabled = .TRUE., name = TRIM(rst_rfields(i)%vname), & 302 302 axis_ref="deptht", operation = "instant") 303 303 CASE ("grid_scalar") 304 CALL xios_set_attr (field_hdl, enabled = .TRUE., name = TRIM(rst_ fields(i)%vname), &304 CALL xios_set_attr (field_hdl, enabled = .TRUE., name = TRIM(rst_rfields(i)%vname), & 305 305 scalar_ref = "grid_scalar", operation = "instant") 306 306 END SELECT 307 IF(lwp) WRITE(numout,*) 'XIOS read: ', TRIM(rst_ fields(i)%vname), ' enabled in ', TRIM(rst_file)307 IF(lwp) WRITE(numout,*) 'XIOS read: ', TRIM(rst_rfields(i)%vname), ' enabled in ', TRIM(rst_file) 308 308 ENDIF 309 309 ENDIF -
branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/IOM/iom_def.F90
r8770 r8792 83 83 !$AGRIF_END_DO_NOT_TREAT 84 84 85 TYPE(RST_FIELD), PUBLIC :: rst_wfields(max_rst_fields), rst_ fields(max_rst_fields)85 TYPE(RST_FIELD), PUBLIC :: rst_wfields(max_rst_fields), rst_rfields(max_rst_fields) 86 86 87 87 !!=====================================================================
Note: See TracChangeset
for help on using the changeset viewer.