Changeset 12950 for NEMO/branches/2020/dev_12905_xios_restart/src/OCE/ISF/isfcpl.F90

Timestamp:

2020-05-19T12:53:16+02:00 (4 years ago)

Author:

andmirek

Message:

Ticket #2462: new XIOS restart read/write interfaces

File:

• NEMO/branches/2020/dev_12905_xios_restart/src/OCE/ISF/isfcpl.F90 (modified) (5 diffs)

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

@@ -114 +114 @@
       e3t(:,:,:,Kbb)   = e3t(:,:,:,Kmm)
  
-      ! prepare writing restart
-      IF( lwxios ) THEN
-         CALL iom_set_rstw_var_active('ssmask')
-         CALL iom_set_rstw_var_active('tmask')
-         CALL iom_set_rstw_var_active('e3t_n')
-         CALL iom_set_rstw_var_active('e3u_n')
-         CALL iom_set_rstw_var_active('e3v_n')
-      END IF
-      !
    END SUBROUTINE isfcpl_init
    ! 
@@ -166 +157 @@
       !!----------------------------------------------------------------------
       !
+      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 
@@ -245 +238 @@
       !!----------------------------------------------------------------------
       ! 
+      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 +386 @@
       !!----------------------------------------------------------------------
       !
+      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 +492 @@
 
       ! 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