- Timestamp:
- 2020-06-24T09:03:45+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/IOM/iom.F90
r13049 r13149 1506 1506 LOGICAL :: llx ! local xios write flag 1507 1507 INTEGER :: ivid ! variable id 1508 1508 RETURN 1509 1509 llx = .FALSE. 1510 1510 IF(PRESENT(ldxios)) llx = ldxios … … 1536 1536 LOGICAL :: llx ! local xios write flag 1537 1537 INTEGER :: ivid ! variable id 1538 1538 RETURN 1539 1539 llx = .FALSE. 1540 1540 IF(PRESENT(ldxios)) llx = ldxios … … 1566 1566 LOGICAL :: llx 1567 1567 INTEGER :: ivid ! variable id 1568 1568 RETURN 1569 1569 llx = .FALSE. 1570 1570 IF(PRESENT(ldxios)) llx = ldxios … … 1596 1596 LOGICAL :: llx ! local xios write flag 1597 1597 INTEGER :: ivid ! variable id 1598 1598 RETURN 1599 1599 llx = .FALSE. 1600 1600 IF(PRESENT(ldxios)) llx = ldxios
Note: See TracChangeset
for help on using the changeset viewer.