Changeset 10522 for NEMO/trunk/src/TOP/PISCES/P4Z/p4zopt.F90

Timestamp:

2019-01-16T09:35:15+01:00 (5 years ago)

Author:

smasson

Message:

trunk: replace iom_gettime by iom_getszuld, see #2212

File:

• NEMO/trunk/src/TOP/PISCES/P4Z/p4zopt.F90 (modified) (2 diffs)

NEMO/trunk/src/TOP/PISCES/P4Z/p4zopt.F90

@@ -389 +389 @@
       !!----------------------------------------------------------------------
       INTEGER :: numpar, ierr, ios   ! Local integer 
-      REAL(wp), DIMENSION(nbtimes) ::   zsteps   ! times records
       !
       CHARACTER(len=100) ::  cn_dir          ! Root directory for location of ssr files
@@ -434 +433 @@
 
          CALL iom_open (  TRIM( sn_par%clname ) , numpar )
-         CALL iom_gettime( numpar, zsteps, kntime=ntimes_par)  ! get number of record in file
+         ntimes_par = iom_getszuld( numpar )   ! get number of record in file
       ENDIF
       !