Changeset 7924 for branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90

Timestamp:

2017-04-18T15:42:46+02:00 (7 years ago)

Author:

andmirek

Message:

first commit with XIOS restart read functionality

File:

• branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90 (modified) (3 diffs)

branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90

@@ -35 +35 @@
    USE timing          ! Timing
    USE restart         ! restart
+   USE iom_def, ONLY : lxios_read
 
    IMPLICIT NONE
@@ -309 +310 @@
          IF( iom_varid( numror, 'kt', ldstop = .FALSE. ) > 0 ) THEN
             ! Get Calendar informations
-            CALL iom_get( numror, 'kt', zkt )   ! last time-step of previous run
+            CALL iom_get( numror, 'kt', zkt, lrxios = lxios_read )   ! last time-step of previous run
             IF(lwp) THEN
                WRITE(numout,*) ' *** Info read in restart : '
@@ -328 +329 @@
             IF ( nrstdt == 2 ) THEN
                ! read the parameters correspondting to nit000 - 1 (last time step of previous run)
-               CALL iom_get( numror, 'ndastp', zndastp )
+               CALL iom_get( numror, 'ndastp', zndastp, lrxios = lxios_read )
                ndastp = NINT( zndastp )
-               CALL iom_get( numror, 'adatrj', adatrj  )
+               CALL iom_get( numror, 'adatrj', adatrj, lrxios = lxios_read  )
             ELSE
                ! parameters correspondting to nit000 - 1 (as we start the step loop with a call to day)