Changeset 8668 for branches/2017/dev_r8600_xios_read/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90

Timestamp:

2017-10-30T12:44:29+01:00 (6 years ago)

Author:

andmirek

Message:

#1953 change variable names to follow NEMO coding convention

File:

• branches/2017/dev_r8600_xios_read/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90 (modified) (2 diffs)

branches/2017/dev_r8600_xios_read/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90

@@ -319 +319 @@
          IF( iom_varid( numror, 'kt', ldstop = .FALSE. ) > 0 ) THEN
             ! Get Calendar informations
-            CALL iom_get( numror, 'kt', zkt, lrxios = lxios_read )   ! last time-step of previous run
+            CALL iom_get( numror, 'kt', zkt, ldxios = lxios_read )   ! last time-step of previous run
             IF(lwp) THEN
                WRITE(numout,*) ' *** Info read in restart : '
@@ -338 +338 @@
             IF ( nrstdt == 2 ) THEN
                ! read the parameters corresponding to nit000 - 1 (last time step of previous run)
-               CALL iom_get( numror, 'ndastp', zndastp, lrxios = lxios_read )
+               CALL iom_get( numror, 'ndastp', zndastp, ldxios = lxios_read )
                ndastp = NINT( zndastp )
-               CALL iom_get( numror, 'adatrj', adatrj, lrxios = lxios_read )
-          CALL iom_get( numror, 'ntime', ktime, lrxios = lxios_read )
+               CALL iom_get( numror, 'adatrj', adatrj, ldxios = lxios_read )
+          CALL iom_get( numror, 'ntime', ktime, ldxios = lxios_read )
           nn_time0=INT(ktime)
                ! calculate start time in hours and minutes