Changeset 5965 for branches/2014/dev_r4650_UKMO14.5_SST_BIAS_CORRECTION/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90
- Timestamp:
- 2015-12-01T16:35:30+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO14.5_SST_BIAS_CORRECTION/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90
r4768 r5965 242 242 ln_velfb_av(:) = .FALSE. 243 243 ln_ignmis = .FALSE. 244 244 245 CALL ini_date( dobsini ) 245 246 CALL fin_date( dobsend ) … … 499 500 CALL obs_grid_setup( ) 500 501 IF ( ( n1dint < 0 ).OR.( n1dint > 1 ) ) THEN 501 IF(lwp) WRITE(numout,cform_err) 502 IF(lwp) WRITE(numout,*) ' Choice of vertical (1D) interpolation method', & 503 & ' is not available' 504 nstop = nstop + 1 502 CALL ctl_stop(' Choice of vertical (1D) interpolation method', & 503 & ' is not available') 505 504 ENDIF 506 505 IF ( ( n2dint < 0 ).OR.( n2dint > 4 ) ) THEN 507 IF(lwp) WRITE(numout,cform_err) 508 IF(lwp) WRITE(numout,*) ' Choice of horizontal (2D) interpolation method', & 509 & ' is not available' 510 nstop = nstop + 1 506 CALL ctl_stop(' Choice of horizontal (2D) interpolation method', & 507 & ' is not available') 511 508 ENDIF 512 509
Note: See TracChangeset
for help on using the changeset viewer.