Ignore:
Timestamp:
2019-01-16T09:35:15+01:00 (19 months ago)
Author:
smasson
Message:

trunk: replace iom_gettime by iom_getszuld, see #2212

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/TOP/PISCES/P4Z/p4zopt.F90

    r10425 r10522  
    389389      !!---------------------------------------------------------------------- 
    390390      INTEGER :: numpar, ierr, ios   ! Local integer  
    391       REAL(wp), DIMENSION(nbtimes) ::   zsteps   ! times records 
    392391      ! 
    393392      CHARACTER(len=100) ::  cn_dir          ! Root directory for location of ssr files 
     
    434433 
    435434         CALL iom_open (  TRIM( sn_par%clname ) , numpar ) 
    436          CALL iom_gettime( numpar, zsteps, kntime=ntimes_par)  ! get number of record in file 
     435         ntimes_par = iom_getszuld( numpar )   ! get number of record in file 
    437436      ENDIF 
    438437      ! 
Note: See TracChangeset for help on using the changeset viewer.