Changeset 11405 for NEMO/branches/2019/dev_r11351_fldread_with_XIOS/src/OCE/TRA/trasbc.F90

Timestamp:

2019-08-06T15:16:49+02:00 (5 years ago)

Author:

andmirek

Message:

ticket #2195: read weights for blk using XIOS

File:

• NEMO/branches/2019/dev_r11351_fldread_with_XIOS/src/OCE/TRA/trasbc.F90 (modified) (1 diff)

NEMO/branches/2019/dev_r11351_fldread_with_XIOS/src/OCE/TRA/trasbc.F90

@@ -110 +110 @@
             zfact = 0.5_wp
             sbc_tsc(:,:,:) = 0._wp
+            IF(lrxios) CALL iom_swap( TRIM(crxios_context) )
             CALL iom_get( numror, jpdom_autoglo, 'sbc_hc_b', sbc_tsc_b(:,:,jp_tem), ldxios = lrxios )   ! before heat content sbc trend
             CALL iom_get( numror, jpdom_autoglo, 'sbc_sc_b', sbc_tsc_b(:,:,jp_sal), ldxios = lrxios )   ! before salt content sbc trend
+            IF(lrxios) CALL iom_swap( TRIM(cxios_context) )
          ELSE                                   ! No restart or restart not found: Euler forward time stepping
             zfact = 1._wp