Changeset 11405 for NEMO/branches/2019/dev_r11351_fldread_with_XIOS/src/SAS/daymod.F90

Timestamp:

2019-08-06T15:16:49+02:00 (5 years ago)

Author:

andmirek

Message:

ticket #2195: read weights for blk using XIOS

File:

• NEMO/branches/2019/dev_r11351_fldread_with_XIOS/src/SAS/daymod.F90 (modified) (2 diffs)

NEMO/branches/2019/dev_r11351_fldread_with_XIOS/src/SAS/daymod.F90

@@ -324 +324 @@
          IF( iom_varid( numror, 'kt', ldstop = .FALSE. ) > 0 ) THEN
             ! Get Calendar informations
+            IF(lrxios) CALL iom_swap( TRIM(crxios_context) )
             CALL iom_get( numror, 'kt', zkt, ldxios = lrxios )   ! last time-step of previous run
             IF(lwp) THEN
@@ -379 +380 @@
                ! note this is wrong if time step has changed during run
             ENDIF
+            IF(lrxios) CALL iom_swap( TRIM(cxios_context) )
          ELSE
             ! parameters corresponding to nit000 - 1 (as we start the step loop with a call to day)