Changeset 13932 for NEMO/branches/2020/dev_12905_xios_restart/src/TOP/C14/trcini_c14.F90

Timestamp:

2020-12-01T09:21:09+01:00 (3 years ago)

Author:

andmirek

Message:

Ticket #2462: Addressing reviewr comments stage 2

File:

• NEMO/branches/2020/dev_12905_xios_restart/src/TOP/C14/trcini_c14.F90 (modified) (2 diffs)

NEMO/branches/2020/dev_12905_xios_restart/src/TOP/C14/trcini_c14.F90

@@ -68 +68 @@
         IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~'
         ! 
-        IF(lrxios) CALL iom_swap(cr_toprst_cxt)
-        CALL iom_get( numrtr, 'co2sbc', co2sbc, ldxios = lrxios ) 
-        CALL iom_get( numrtr, jpdom_auto, 'c14sbc', c14sbc, ldxios = lrxios ) 
-        CALL iom_get( numrtr, jpdom_auto, 'exch_co2', exch_co2, ldxios = lrxios ) 
-        CALL iom_get( numrtr, jpdom_auto, 'exch_c14', exch_c14, ldxios = lrxios ) 
-        CALL iom_get( numrtr, jpdom_auto, 'qtr_c14', qtr_c14, ldxios = lrxios )
-        IF(lrxios) CALL iom_swap(cxios_context)
+        CALL iom_get( numrtr, 'co2sbc', co2sbc ) 
+        CALL iom_get( numrtr, jpdom_auto, 'c14sbc', c14sbc ) 
+        CALL iom_get( numrtr, jpdom_auto, 'exch_co2', exch_co2 ) 
+        CALL iom_get( numrtr, jpdom_auto, 'exch_c14', exch_c14 ) 
+        CALL iom_get( numrtr, jpdom_auto, 'qtr_c14', qtr_c14 )
         !
       END IF
@@ -87 +85 @@
       ELSE
         !
-        IF(lrxios) CALL iom_swap(cr_toprst_cxt)
-        CALL iom_get( numrtr, jpdom_auto, 'qint_c14', qint_c14, ldxios = lrxios ) 
-        IF(lrxios) CALL iom_swap(cxios_context)
+        CALL iom_get( numrtr, jpdom_auto, 'qint_c14', qint_c14 ) 
         !
       ENDIF