Changeset 12957 for NEMO/branches/2020/dev_12905_xios_restart/src/ICE/icedia.F90

Timestamp:

2020-05-20T18:53:27+02:00 (4 years ago)

Author:

andmirek

Message:

Ticket #2462: write/read SI3 restart with XIOS (has debug print statements)

File:

• NEMO/branches/2020/dev_12905_xios_restart/src/ICE/icedia.F90 (modified) (2 diffs)

NEMO/branches/2020/dev_12905_xios_restart/src/ICE/icedia.F90

@@ -221 +221 @@
          IF( ln_rstart ) THEN                   !* Read the restart file
             !
-            CALL iom_get( numrir, 'kt_ice' , ziter )
+            IF(lrxios) CALL iom_swap(crixios_context)
+            CALL iom_get( numrir, 'kt_ice' , ziter, ldxios = lrxios )
             IF(lwp) WRITE(numout,*)
             IF(lwp) WRITE(numout,*) 'ice_dia_rst read at time step = ', ziter
             IF(lwp) WRITE(numout,*) '~~~~~~~~~~'
-            CALL iom_get( numrir, 'frc_voltop' , frc_voltop  )
-            CALL iom_get( numrir, 'frc_volbot' , frc_volbot  )
-            CALL iom_get( numrir, 'frc_temtop' , frc_temtop  )
-            CALL iom_get( numrir, 'frc_tembot' , frc_tembot  )
-            CALL iom_get( numrir, 'frc_sal'    , frc_sal     )
-            CALL iom_get( numrir, jpdom_autoglo, 'vol_loc_ini', vol_loc_ini )
-            CALL iom_get( numrir, jpdom_autoglo, 'tem_loc_ini', tem_loc_ini )
-            CALL iom_get( numrir, jpdom_autoglo, 'sal_loc_ini', sal_loc_ini )
+            CALL iom_get( numrir, 'frc_voltop' , frc_voltop, ldxios = lrxios  )
+            CALL iom_get( numrir, 'frc_volbot' , frc_volbot, ldxios = lrxios  )
+            CALL iom_get( numrir, 'frc_temtop' , frc_temtop, ldxios = lrxios  )
+            CALL iom_get( numrir, 'frc_tembot' , frc_tembot, ldxios = lrxios  )
+            CALL iom_get( numrir, 'frc_sal'    , frc_sal, ldxios = lrxios     )
+            CALL iom_get( numrir, jpdom_autoglo, 'vol_loc_ini', vol_loc_ini, ldxios = lrxios )
+            CALL iom_get( numrir, jpdom_autoglo, 'tem_loc_ini', tem_loc_ini, ldxios = lrxios )
+            CALL iom_get( numrir, jpdom_autoglo, 'sal_loc_ini', sal_loc_ini, ldxios = lrxios )
+            IF(lrxios) CALL iom_swap(cxios_context)
          ELSE
             IF(lwp) WRITE(numout,*)
@@ -261 +263 @@
          ! Write in numriw (if iter == nitrst)
          ! ------------------ 
-         CALL iom_rstput( iter, nitrst, numriw, 'frc_voltop' , frc_voltop  )
-         CALL iom_rstput( iter, nitrst, numriw, 'frc_volbot' , frc_volbot  )
-         CALL iom_rstput( iter, nitrst, numriw, 'frc_temtop' , frc_temtop  )
-         CALL iom_rstput( iter, nitrst, numriw, 'frc_tembot' , frc_tembot  )
-         CALL iom_rstput( iter, nitrst, numriw, 'frc_sal'    , frc_sal     )
-         CALL iom_rstput( iter, nitrst, numriw, 'vol_loc_ini', vol_loc_ini )
-         CALL iom_rstput( iter, nitrst, numriw, 'tem_loc_ini', tem_loc_ini )
-         CALL iom_rstput( iter, nitrst, numriw, 'sal_loc_ini', sal_loc_ini )
+         IF( lwxios ) CALL iom_swap(      cwixios_context         )
+         CALL iom_rstput( iter, nitrst, numriw, 'frc_voltop' , frc_voltop,  ldxios = lwxios )
+         CALL iom_rstput( iter, nitrst, numriw, 'frc_volbot' , frc_volbot,  ldxios = lwxios )
+         CALL iom_rstput( iter, nitrst, numriw, 'frc_temtop' , frc_temtop,  ldxios = lwxios )
+         CALL iom_rstput( iter, nitrst, numriw, 'frc_tembot' , frc_tembot,  ldxios = lwxios )
+         CALL iom_rstput( iter, nitrst, numriw, 'frc_sal'    , frc_sal,     ldxios = lwxios )
+         CALL iom_rstput( iter, nitrst, numriw, 'vol_loc_ini', vol_loc_ini, ldxios = lwxios )
+         CALL iom_rstput( iter, nitrst, numriw, 'tem_loc_ini', tem_loc_ini, ldxios = lwxios )
+         CALL iom_rstput( iter, nitrst, numriw, 'sal_loc_ini', sal_loc_ini, ldxios = lwxios )
+         IF( lwxios ) CALL iom_swap(      cxios_context         )
          !
       ENDIF