Changeset 11839 for NEMO/branches

Timestamp:

2019-10-30T17:09:13+01:00 (4 years ago)

Author:

andmirek

Message:

Ticket #2323 correction to previous commit

File:

• NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/ICE/icerst.F90 (modified) (2 diffs)

NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/ICE/icerst.F90

@@ -240 +240 @@
                WRITE(zchar1,'(I2.2)') jk
                znam = 'e_s'//'_l'//zchar1
-               CALL iom_get( numrir, jpdom_autoglo, znam , z3d )
+               CALL iom_get( numrir, jpdom_autoglo, znam , z3d, ldxios = lrxios  )
                e_s(:,:,jk,:) = z3d(:,:,:)
             END DO
@@ -247 +247 @@
                WRITE(zchar1,'(I2.2)') jk
                znam = 'e_i'//'_l'//zchar1
-               CALL iom_get( numrir, jpdom_autoglo, znam , z3d )
+               CALL iom_get( numrir, jpdom_autoglo, znam , z3d, ldxios = lrxios  )
                e_i(:,:,jk,:) = z3d(:,:,:)
             END DO
          ELSE
 !XIOS read interface
-            CALL iom_get( numrir, jpdom_autoglo, "e_s" , e_s )
-            CALL iom_get( numrir, jpdom_autoglo, "e_i" , e_i ) 
+            CALL iom_get( numrir, jpdom_autoglo, "e_s" , e_s, ldxios = lrxios  )
+            CALL iom_get( numrir, jpdom_autoglo, "e_i" , e_i, ldxios = lrxios  ) 
          ENDIF
          ! -- optional fields -- !