Changeset 5208 for branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_sst.F90
- Timestamp:
- 2015-04-13T15:08:59+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_sst.F90
r3651 r5208 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 itypmpp(:) = 0 336 338 339 ioserrcount = 0 340 337 341 DO jk = 1, iobstot 338 342 … … 381 385 382 386 ! Instrument type 383 READ( inpfiles(jj)%cdtyp(ji), '(I4)' ) itype 387 READ( inpfiles(jj)%cdtyp(ji), '(I4)', IOSTAT = ios, ERR = 901 ) itype 388 901 IF ( ios /= 0 ) THEN 389 IF (ioserrcount == 0) CALL ctl_warn ( 'Problem converting an instrument type to integer. Setting type to zero' ) 390 ioserrcount = ioserrcount + 1 391 itype = 0 392 ENDIF 384 393 sstdata%ntyp(iobs) = itype 385 394 IF ( itype < isstmaxtype + 1 ) THEN
Note: See TracChangeset
for help on using the changeset viewer.