Changeset 5837 for branches/2014/dev_r4650_UKMO14.4_OBS_GENERAL_VINTERP/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_seaice.F90
- Timestamp:
- 2015-10-26T15:59:39+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO14.4_OBS_GENERAL_VINTERP/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_seaice.F90
r3651 r5837 110 110 & zphi, & 111 111 & zlam 112 REAL(dp), DIMENSION(:), ALLOCATABLE :: &112 real(wp), DIMENSION(:), ALLOCATABLE :: & 113 113 & zdat 114 114 LOGICAL :: llvalprof 115 115 TYPE(obfbdata), POINTER, DIMENSION(:) :: & 116 116 & inpfiles 117 REAL(dp), DIMENSION(knumfiles) :: &117 real(wp), DIMENSION(knumfiles) :: & 118 118 & djulini, & 119 119 & djulend 120 120 INTEGER :: iobs 121 121 INTEGER :: iobstot 122 INTEGER :: ios 123 INTEGER :: ioserrcount 122 124 CHARACTER(len=8) :: cl_refdate 123 125 … … 335 337 ityp (:) = 0 336 338 itypmpp(:) = 0 337 339 340 ioserrcount=0 341 338 342 DO jk = 1, iobstot 339 343 … … 382 386 383 387 ! Instrument type 384 READ( inpfiles(jj)%cdtyp(ji), '(I4)' ) itype 388 READ( inpfiles(jj)%cdtyp(ji), '(I4)', IOSTAT = ios, ERR = 901 ) itype 389 901 IF ( ios /= 0 ) THEN 390 IF (ioserrcount == 0) CALL ctl_warn ( 'Problem converting an instrument type to integer. Setting type to zero' ) 391 ioserrcount = ioserrcount + 1 392 itype = 0 393 ENDIF 385 394 seaicedata%ntyp(iobs) = itype 386 395 IF ( itype < iseaicemaxtype + 1 ) THEN
Note: See TracChangeset
for help on using the changeset viewer.