Changeset 12961 for NEMO/branches/2020/dev_12905_xios_restart/src/TOP/CFC/trcsms_cfc.F90

Timestamp:

2020-05-22T13:51:12+02:00 (4 years ago)

Author:

andmirek

Message:

Ticket #2462: read/write restart with XIOS in TOP (with debug print statements)

File:

• NEMO/branches/2020/dev_12905_xios_restart/src/TOP/CFC/trcsms_cfc.F90 (modified) (2 diffs)

NEMO/branches/2020/dev_12905_xios_restart/src/TOP/CFC/trcsms_cfc.F90

@@ -178 +178 @@
          IF(lwp) WRITE(numout,*) '~~~~'
          jl = 0
+         IF( lwxios ) CALL iom_swap(      cwtxios_context         )
          DO jn = jp_cfc0, jp_cfc1
              jl = jl + 1
-            CALL iom_rstput( kt, nitrst, numrtw, 'qint_'//ctrcnm(jn), qint_cfc(:,:,jl) )
+            CALL iom_rstput( kt, nitrst, numrtw, 'qint_'//ctrcnm(jn), qint_cfc(:,:,jl), ldxios = lwxios )
          END DO
+         IF( lwxios ) CALL iom_swap(      cxios_context         )
       ENDIF                                            
       !
@@ -295 +297 @@
          !
          jl = 0
+         IF(lrxios) CALL iom_swap(crtxios_context)
          DO jn = jp_cfc0, jp_cfc1
             jl = jl + 1
-            CALL iom_get( numrtr, jpdom_autoglo, 'qint_'//ctrcnm(jn), qint_cfc(:,:,jl) ) 
+            CALL iom_get( numrtr, jpdom_autoglo, 'qint_'//ctrcnm(jn), qint_cfc(:,:,jl), ldxios = lrxios ) 
          END DO
+         IF(lrxios) CALL iom_swap(cxios_context)
       ENDIF
       IF(lwp) WRITE(numout,*)