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/p4zsbc.F90

    r10425 r10522  
    211211      REAL(wp) :: zexpide, zdenitide, zmaskt, zsurfc, zsurfp,ze3t, ze3t2, zcslp 
    212212      REAL(wp) :: ztimes_dust, ztimes_riv, ztimes_ndep  
    213       REAL(wp), DIMENSION(nbtimes) :: zsteps                 ! times records 
    214213      REAL(wp), DIMENSION(:), ALLOCATABLE :: rivinput 
    215214      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: zriver, zcmask 
     
    309308            ! Get total input dust ; need to compute total atmospheric supply of Si in a year 
    310309            CALL iom_open (  TRIM( sn_dust%clname ) , numdust ) 
    311             CALL iom_gettime( numdust, zsteps, kntime=ntimes_dust)  ! get number of record in file 
     310            ntimes_dust = iom_getszuld( numdust )   ! get number of record in file 
    312311         END IF 
    313312      END IF 
     
    331330         ! get number of record in file 
    332331         CALL iom_open (  TRIM( sn_solub%clname ) , numsolub ) 
    333          CALL iom_gettime( numsolub, zsteps, kntime=ntimes_solub)  ! get number of record in file 
     332         ntimes_solub = iom_getszuld( numsolub )   ! get number of record in file 
    334333         CALL iom_close( numsolub ) 
    335334      ENDIF 
     
    360359            DO ifpr = 1, jpriv 
    361360               CALL iom_open ( TRIM( slf_river(ifpr)%clname ), numriv ) 
    362                CALL iom_gettime( numriv, zsteps, kntime=ntimes_riv) 
     361               ntimes_riv = iom_getszuld( numriv ) 
    363362               ALLOCATE( zriver(jpi,jpj,ntimes_riv) ) 
    364363               DO jm = 1, ntimes_riv 
     
    407406            ! Get total input dust ; need to compute total atmospheric supply of N in a year 
    408407            CALL iom_open ( TRIM( sn_ndepo%clname ), numdepo ) 
    409             CALL iom_gettime( numdepo, zsteps, kntime=ntimes_ndep) 
     408            ntimes_ndep = iom_getszuld( numdepo ) 
    410409         ENDIF 
    411410      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.