Changeset 4245 for branches/2013/dev_LOCEAN_CMCC_INGV_MERC_UKMO_2013/NEMOGCM/NEMO/OPA_SRC/IOM/iom_nf90.F90
- Timestamp:
- 2013-11-19T12:19:21+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_CMCC_INGV_MERC_UKMO_2013/NEMOGCM/NEMO/OPA_SRC/IOM/iom_nf90.F90
r4161 r4245 217 217 CALL iom_nf90_check(NF90_Inquire_Variable(if90id, ivarid, dimids = idimid(1:i_nvd)), clinfo) ! dimensions ids 218 218 iom_file(kiomid)%luld(kiv) = .FALSE. ! default value 219 iom_file(kiomid)%dimsz(:,kiv) = 0 ! reset dimsz in case previously used 219 220 DO ji = 1, i_nvd ! dimensions size 220 221 CALL iom_nf90_check(NF90_Inquire_Dimension(if90id, idimid(ji), len = iom_file(kiomid)%dimsz(ji,kiv)), clinfo) … … 251 252 252 253 253 SUBROUTINE iom_nf90_g0d( kiomid, kvid, pvar )254 SUBROUTINE iom_nf90_g0d( kiomid, kvid, pvar, kstart ) 254 255 !!----------------------------------------------------------------------- 255 256 !! *** ROUTINE iom_nf90_g0d *** … … 257 258 !! ** Purpose : read a scalar with NF90 258 259 !!----------------------------------------------------------------------- 259 INTEGER , INTENT(in ) :: kiomid ! Identifier of the file 260 INTEGER , INTENT(in ) :: kvid ! variable id 261 REAL(wp), INTENT( out) :: pvar ! read field 260 INTEGER , INTENT(in ) :: kiomid ! Identifier of the file 261 INTEGER , INTENT(in ) :: kvid ! variable id 262 REAL(wp), INTENT( out) :: pvar ! read field 263 INTEGER , DIMENSION(1), INTENT(in ), OPTIONAL :: kstart ! start position of the reading in each axis 262 264 ! 263 265 CHARACTER(LEN=100) :: clinfo ! info character 264 266 !--------------------------------------------------------------------- 265 267 clinfo = 'iom_nf90_g0d , file: '//TRIM(iom_file(kiomid)%name)//', var: '//TRIM(iom_file(kiomid)%cn_var(kvid)) 266 CALL iom_nf90_check(NF90_GET_VAR(iom_file(kiomid)%nfid, iom_file(kiomid)%nvid(kvid), pvar ), clinfo )268 CALL iom_nf90_check(NF90_GET_VAR(iom_file(kiomid)%nfid, iom_file(kiomid)%nvid(kvid), pvar, start = kstart), clinfo ) 267 269 ! 268 270 END SUBROUTINE iom_nf90_g0d
Note: See TracChangeset
for help on using the changeset viewer.