Changeset 4990 for trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
- Timestamp:
- 2014-12-15T17:42:49+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r4691 r4990 1166 1166 SUBROUTINE iom_context_finalize( cdname ) 1167 1167 CHARACTER(LEN=*), INTENT(in) :: cdname 1168 ! 1169 CALL iom_swap( cdname ) ! swap to cdname context 1170 CALL xios_context_finalize() ! finalize the context 1171 IF( cdname /= "nemo" ) CALL iom_swap( "nemo" ) ! return back to nemo context 1168 ! 1169 IF( xios_is_valid_context(cdname) ) THEN 1170 CALL iom_swap( cdname ) ! swap to cdname context 1171 CALL xios_context_finalize() ! finalize the context 1172 IF( cdname /= "nemo" ) CALL iom_swap( "nemo" ) ! return back to nemo context 1173 ENDIF 1172 1174 ! 1173 1175 END SUBROUTINE iom_context_finalize
Note: See TracChangeset
for help on using the changeset viewer.