- Timestamp:
- 2014-12-01T11:08:54+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4879_UKMO_NOC_MERGE/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90
r4924 r4932 483 483 CALL obs_grid_setup( ) 484 484 IF ( ( n1dint < 0 ).OR.( n1dint > 1 ) ) THEN 485 IF(lwp) WRITE(numout,cform_err) 486 IF(lwp) WRITE(numout,*) ' Choice of vertical (1D) interpolation method', & 487 & ' is not available' 488 nstop = nstop + 1 485 CALL ctl_stop(' Choice of vertical (1D) interpolation method', & 486 & ' is not available') 489 487 ENDIF 490 488 IF ( ( n2dint < 0 ).OR.( n2dint > 4 ) ) THEN 491 IF(lwp) WRITE(numout,cform_err) 492 IF(lwp) WRITE(numout,*) ' Choice of horizontal (2D) interpolation method', & 493 & ' is not available' 494 nstop = nstop + 1 489 CALL ctl_stop(' Choice of horizontal (2D) interpolation method', & 490 & ' is not available') 495 491 ENDIF 496 492
Note: See TracChangeset
for help on using the changeset viewer.