Changeset 11839


Ignore:
Timestamp:
2019-10-30T17:09:13+01:00 (8 months ago)
Author:
andmirek
Message:

Ticket #2323 correction to previous commit

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/ICE/icerst.F90

    r11837 r11839  
    240240               WRITE(zchar1,'(I2.2)') jk 
    241241               znam = 'e_s'//'_l'//zchar1 
    242                CALL iom_get( numrir, jpdom_autoglo, znam , z3d ) 
     242               CALL iom_get( numrir, jpdom_autoglo, znam , z3d, ldxios = lrxios ) 
    243243               e_s(:,:,jk,:) = z3d(:,:,:) 
    244244            END DO 
     
    247247               WRITE(zchar1,'(I2.2)') jk 
    248248               znam = 'e_i'//'_l'//zchar1 
    249                CALL iom_get( numrir, jpdom_autoglo, znam , z3d ) 
     249               CALL iom_get( numrir, jpdom_autoglo, znam , z3d, ldxios = lrxios ) 
    250250               e_i(:,:,jk,:) = z3d(:,:,:) 
    251251            END DO 
    252252         ELSE 
    253253!XIOS read interface 
    254             CALL iom_get( numrir, jpdom_autoglo, "e_s" , e_s ) 
    255             CALL iom_get( numrir, jpdom_autoglo, "e_i" , e_i )  
     254            CALL iom_get( numrir, jpdom_autoglo, "e_s" , e_s, ldxios = lrxios ) 
     255            CALL iom_get( numrir, jpdom_autoglo, "e_i" , e_i, ldxios = lrxios )  
    256256         ENDIF 
    257257         ! -- optional fields -- ! 
Note: See TracChangeset for help on using the changeset viewer.