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/OCE/IOM/iom_nf90.F90

    r10521 r10522  
    1515   !!   iom_close      : close a file or all files opened by iom 
    1616   !!   iom_get        : read a field (interfaced to several routines) 
    17    !!   iom_gettime    : read the time axis kvid in the file 
    1817   !!   iom_varid      : get the id of a variable in a file 
    1918   !!   iom_rstput     : write a field in a restart file (interfaced to several routines) 
     
    2928   PRIVATE 
    3029 
    31    PUBLIC iom_nf90_open  , iom_nf90_close, iom_nf90_varid, iom_nf90_get, iom_nf90_gettime, iom_nf90_rstput 
     30   PUBLIC iom_nf90_open  , iom_nf90_close, iom_nf90_varid, iom_nf90_get, iom_nf90_rstput 
    3231   PUBLIC iom_nf90_chkatt, iom_nf90_getatt, iom_nf90_putatt 
    3332 
     
    493492 
    494493 
    495    SUBROUTINE iom_nf90_gettime( kiomid, kvid, ptime, cdunits, cdcalendar ) 
    496       !!-------------------------------------------------------------------- 
    497       !!                   ***  SUBROUTINE iom_gettime  *** 
    498       !! 
    499       !! ** Purpose : read the time axis kvid in the file with NF90 
    500       !!-------------------------------------------------------------------- 
    501       INTEGER                   , INTENT(in   ) ::   kiomid     ! file Identifier 
    502       INTEGER                   , INTENT(in   ) ::   kvid       ! variable id 
    503       REAL(wp), DIMENSION(:)    , INTENT(  out) ::   ptime      ! the time axis 
    504       CHARACTER(len=*), OPTIONAL, INTENT(  out) ::   cdunits    ! units attribute 
    505       CHARACTER(len=*), OPTIONAL, INTENT(  out) ::   cdcalendar ! calendar attribute 
    506       ! 
    507       CHARACTER(LEN=100) ::   clinfo     ! info character 
    508       !--------------------------------------------------------------------- 
    509       clinfo = 'iom_nf90_gettime, file: '//TRIM(iom_file(kiomid)%name)//', var: '//TRIM(iom_file(kiomid)%cn_var(kvid)) 
    510       CALL iom_nf90_check(NF90_GET_VAR(iom_file(kiomid)%nfid, iom_file(kiomid)%nvid(kvid), ptime(:),   & 
    511             &                           start=(/ 1 /), count=(/ iom_file(kiomid)%dimsz(1, kvid) /)), clinfo) 
    512       IF ( PRESENT(cdunits) ) THEN  
    513          CALL iom_nf90_check(NF90_GET_ATT(iom_file(kiomid)%nfid, iom_file(kiomid)%nvid(kvid), "units", & 
    514             &                           values=cdunits), clinfo) 
    515       ENDIF 
    516       IF ( PRESENT(cdcalendar) ) THEN  
    517          CALL iom_nf90_check(NF90_GET_ATT(iom_file(kiomid)%nfid, iom_file(kiomid)%nvid(kvid), "calendar", & 
    518             &                           values=cdcalendar), clinfo) 
    519       ENDIF 
    520       ! 
    521    END SUBROUTINE iom_nf90_gettime 
    522  
    523  
    524494   SUBROUTINE iom_nf90_rp0123d( kt, kwrite, kiomid, cdvar , kvid  , ktype,   & 
    525495         &                                  pv_r0d, pv_r1d, pv_r2d, pv_r3d ) 
Note: See TracChangeset for help on using the changeset viewer.