Changeset 4970 for branches/2014/dev_MERGE_2014/NEMOGCM/NEMO
- Timestamp:
- 2014-12-04T09:52:33+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_MERGE_2014/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r4969 r4970 1167 1167 CHARACTER(LEN=*), INTENT(in) :: cdname 1168 1168 ! 1169 IF xios_is_valid_context(cdname) THEN1169 IF( xios_is_valid_context(cdname) ) THEN 1170 1170 CALL iom_swap( cdname ) ! swap to cdname context 1171 1171 CALL xios_context_finalize() ! finalize the context
Note: See TracChangeset
for help on using the changeset viewer.