Changeset 13016 for NEMO/branches/2020/dev_12905_xios_ancil/src/OCE/ISF/isfcpl.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/ISF/isfcpl.F90 (modified) (4 diffs)

NEMO/branches/2020/dev_12905_xios_ancil/src/OCE/ISF/isfcpl.F90

@@ -166 +166 @@
       !!----------------------------------------------------------------------
       !
+      IF(lrxios) CALL iom_swap( TRIM(crxios_context) )
       CALL iom_get( numror, jpdom_autoglo, 'ssmask'  , zssmask_b, ldxios = lrxios   ) ! need to extrapolate T/S
+      IF(lrxios) CALL iom_swap( TRIM(cxios_context) )
 
       ! compute new ssh if we open a full water column 
@@ -244 +246 @@
       REAL(wp), DIMENSION(jpi,jpj,jpk,jpts) :: zts0
       !!----------------------------------------------------------------------
-      ! 
+      !
+      IF(lrxios) CALL iom_swap( TRIM(crxios_context) )
       CALL iom_get( numror, jpdom_autoglo, 'tmask'  , ztmask_b, ldxios = lrxios   ) ! need to extrapolate T/S
       !CALL iom_get( numror, jpdom_autoglo, 'wmask'  , zwmask_b, ldxios = lrxios   ) ! need to extrapolate T/S
       !CALL iom_get( numror, jpdom_autoglo, 'gdepw_n', zdepw_b(:,:,:), ldxios = lrxios ) ! need to interpol vertical profile (vvl)
+      IF(lrxios) CALL iom_swap( TRIM(cxios_context) )
       !
       ! 
@@ -391 +395 @@
       !!----------------------------------------------------------------------
       !
+      IF(lrxios) CALL iom_swap( TRIM(crxios_context) )
       CALL iom_get( numror, jpdom_autoglo, 'tmask'  , ztmask_b, ldxios = lrxios )
       CALL iom_get( numror, jpdom_autoglo, 'e3u_n'  , ze3u_b  , ldxios = lrxios )
       CALL iom_get( numror, jpdom_autoglo, 'e3v_n'  , ze3v_b  , ldxios = lrxios )
+      IF(lrxios) CALL iom_swap( TRIM(cxios_context) )
       !
       ! 1.0: compute horizontal volume flux divergence difference before-after coupling
@@ -495 +501 @@
 
       ! get restart variable
+      IF(lrxios) CALL iom_swap( TRIM(crxios_context) )
       CALL iom_get( numror, jpdom_autoglo, 'tmask'  , ztmask_b(:,:,:), ldxios = lrxios   ) ! need to extrapolate T/S
       CALL iom_get( numror, jpdom_autoglo, 'e3t_n'  , ze3t_b(:,:,:)  , ldxios = lrxios )
       CALL iom_get( numror, jpdom_autoglo, 'tn'     , zt_b(:,:,:)    , ldxios = lrxios )
       CALL iom_get( numror, jpdom_autoglo, 'sn'     , zs_b(:,:,:)    , ldxios = lrxios )
+      IF(lrxios) CALL iom_swap( TRIM(cxios_context) )
 
       ! compute run length