Changeset 5075 for branches/2014/dev_r4650_UKMO7_STARTHOUR/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_vel.F90
- Timestamp:
- 2015-02-11T11:50:34+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO7_STARTHOUR/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_vel.F90
r4292 r5075 118 118 & zphi, & 119 119 & zlam 120 REAL(dp), DIMENSION(:), ALLOCATABLE :: &120 real(wp), DIMENSION(:), ALLOCATABLE :: & 121 121 & zdat 122 122 LOGICAL :: & … … 124 124 TYPE(obfbdata), POINTER, DIMENSION(:) :: & 125 125 & inpfiles 126 REAL(dp), DIMENSION(knumfiles) :: &126 real(wp), DIMENSION(knumfiles) :: & 127 127 & djulini, & 128 128 & djulend … … 130 130 INTEGER :: iproftot 131 131 INTEGER :: iuv3dt 132 INTEGER :: ios 133 INTEGER :: ioserrcount 132 134 INTEGER, DIMENSION(kvars) :: iv3dt 133 135 CHARACTER(len=8) :: cl_refdate … … 459 461 460 462 ! Instrument type 461 READ( inpfiles(jj)%cdtyp(ji), '(I4)' ) itype 463 READ( inpfiles(jj)%cdtyp(ji), '(I4)', IOSTAT = ios, ERR = 901 ) itype 464 901 IF ( ios /= 0 ) THEN 465 IF (ioserrcount == 0) CALL ctl_warn ( 'Problem converting an instrument type to integer. Setting type to zero' ) 466 ioserrcount = ioserrcount + 1 467 itype = 0 468 ENDIF 462 469 profdata%ntyp(iprof) = itype 463 470
Note: See TracChangeset
for help on using the changeset viewer.