Changeset 8153
- Timestamp:
- 2017-06-08T12:50:22+02:00 (8 years ago)
- Location:
- branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/IOM
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r8038 r8153 359 359 SUBROUTINE set_rstr_active() 360 360 !sets enabled = .TRUE. for each field in restart file 361 #if defined key_xios2 361 362 CHARACTER(len=256) :: rst_file 362 363 TYPE(xios_field) :: field_hdl … … 384 385 ENDIF 385 386 END DO 386 387 #endif 387 388 END SUBROUTINE set_rstr_active 388 389 -
branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90
r8009 r8153 223 223 ! can handle checking if variable is in the restart file (there will be no need to open 224 224 ! restart) 225 225 #if defined key_agrif 226 lxios_read = .FALSE. 227 lxios_set = .TRUE. 228 #else 226 229 IF(.NOT.lxios_set) lxios_read = lxios_read.AND.lxios_sini 227 230 IF( lxios_read) THEN … … 232 235 endif 233 236 ENDIF 234 237 #endif 235 238 ENDIF 236 239
Note: See TracChangeset
for help on using the changeset viewer.