Changeset 12969 for NEMO/branches/2020/dev_12905_xios_restart/src/ICE/icedyn_rhg_evp.F90

Timestamp:

2020-05-26T12:05:09+02:00 (4 years ago)

Author:

andmirek

Message:

ticket #2462: read restart with XIOS independently for each component

File:

• NEMO/branches/2020/dev_12905_xios_restart/src/ICE/icedyn_rhg_evp.F90 (modified) (3 diffs)

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

@@ -839 +839 @@
          IF( ln_rstart ) THEN                   !* Read the restart file
             !
-            IF(lrxios) CALL iom_swap(crixios_context)
+            IF(lrixios) CALL iom_swap(crixios_context)
             id1 = iom_varid( numrir, 'stress1_i' , ldstop = .FALSE. )
             id2 = iom_varid( numrir, 'stress2_i' , ldstop = .FALSE. )
@@ -845 +845 @@
             !
             IF( MIN( id1, id2, id3 ) > 0 ) THEN      ! fields exist
-               CALL iom_get( numrir, jpdom_autoglo, 'stress1_i' , stress1_i,  ldxios = lrxios )
-               CALL iom_get( numrir, jpdom_autoglo, 'stress2_i' , stress2_i,  ldxios = lrxios )
-               CALL iom_get( numrir, jpdom_autoglo, 'stress12_i', stress12_i, ldxios = lrxios )
+               CALL iom_get( numrir, jpdom_autoglo, 'stress1_i' , stress1_i,  ldxios = lrixios )
+               CALL iom_get( numrir, jpdom_autoglo, 'stress2_i' , stress2_i,  ldxios = lrixios )
+               CALL iom_get( numrir, jpdom_autoglo, 'stress12_i', stress12_i, ldxios = lrixios )
             ELSE                                     ! start rheology from rest
                IF(lwp) WRITE(numout,*)
@@ -855 +855 @@
                stress12_i(:,:) = 0._wp
             ENDIF
-            IF(lrxios) CALL iom_swap(cxios_context)
+            IF(lrixios) CALL iom_swap(cxios_context)
          ELSE                                   !* Start from rest
             IF(lwp) WRITE(numout,*)