Changeset 13016 for NEMO/branches/2020/dev_12905_xios_ancil/src/OCE/TRA

Timestamp:

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

Author:

andmirek

Message:

Ticket #2475 implementation of new interface

Location:

NEMO/branches/2020/dev_12905_xios_ancil/src/OCE/TRA

Files:

• traqsr.F90 (modified) (1 diff)
• trasbc.F90 (modified) (2 diffs)

NEMO/branches/2020/dev_12905_xios_ancil/src/OCE/TRA/traqsr.F90

@@ -402 +402 @@
       ! 1st ocean level attenuation coefficient (used in sbcssm)
       IF( iom_varid( numror, 'fraqsr_1lev', ldstop = .FALSE. ) > 0 ) THEN
+         IF(lrxios) CALL iom_swap( TRIM(crxios_context) )
          CALL iom_get( numror, jpdom_autoglo, 'fraqsr_1lev'  , fraqsr_1lev, ldxios = lrxios  )
+         IF(lrxios) CALL iom_swap( TRIM(cxios_context) )
       ELSE
          fraqsr_1lev(:,:) = 1._wp   ! default : no penetration

NEMO/branches/2020/dev_12905_xios_ancil/src/OCE/TRA/trasbc.F90

@@ -108 +108 @@
          IF( ln_rstart .AND.    &               ! Restart: read in restart file
               & iom_varid( numror, 'sbc_hc_b', ldstop = .FALSE. ) > 0 ) THEN
+            IF(lrxios) CALL iom_swap( TRIM(crxios_context) )
             IF(lwp) WRITE(numout,*) '          nit000-1 sbc tracer content field read in the restart file'
             zfact = 0.5_wp
@@ -113 +114 @@
             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