Changeset 13016 for NEMO/branches/2020/dev_12905_xios_ancil/src/OCE/DOM/daymod.F90

Timestamp:

2020-06-03T12:48:36+02:00 (4 years ago)

Author:

andmirek

Message:

Ticket #2475 implementation of new interface

File:

• NEMO/branches/2020/dev_12905_xios_ancil/src/OCE/DOM/daymod.F90 (modified) (2 diffs)

NEMO/branches/2020/dev_12905_xios_ancil/src/OCE/DOM/daymod.F90

@@ -323 +323 @@
 
       IF( TRIM(cdrw) == 'READ' ) THEN
-
+         IF(lrxios) CALL iom_swap( TRIM(crxios_context) )
          IF( iom_varid( numror, 'kt', ldstop = .FALSE. ) > 0 ) THEN
             ! Get Calendar informations
@@ -401 +401 @@
          ENDIF
          !
+         IF(lrxios) CALL iom_swap( TRIM(cxios_context) )
       ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN
          !