Changeset 5034 for branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90
- Timestamp:
- 2015-01-15T14:48:42+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90
r4828 r5034 208 208 !----------------------------------------------------------------------- 209 209 210 !Initalise all values in namelist arrays211 210 enactfiles(:) = '' 212 211 coriofiles(:) = '' … … 232 231 ln_profb_enatim(:) = .TRUE. 233 232 ln_velfb_av(:) = .FALSE. 234 ln_ignmis = .FALSE. 235 233 ln_ignmis = .FALSE. 234 236 235 CALL ini_date( dobsini ) 237 236 CALL fin_date( dobsend ) … … 484 483 CALL obs_grid_setup( ) 485 484 IF ( ( n1dint < 0 ).OR.( n1dint > 1 ) ) THEN 486 IF(lwp) WRITE(numout,cform_err) 487 IF(lwp) WRITE(numout,*) ' Choice of vertical (1D) interpolation method', & 488 & ' is not available' 489 nstop = nstop + 1 485 CALL ctl_stop(' Choice of vertical (1D) interpolation method', & 486 & ' is not available') 490 487 ENDIF 491 488 IF ( ( n2dint < 0 ).OR.( n2dint > 4 ) ) THEN 492 IF(lwp) WRITE(numout,cform_err) 493 IF(lwp) WRITE(numout,*) ' Choice of horizontal (2D) interpolation method', & 494 & ' is not available' 495 nstop = nstop + 1 489 CALL ctl_stop(' Choice of horizontal (2D) interpolation method', & 490 & ' is not available') 496 491 ENDIF 497 492
Note: See TracChangeset
for help on using the changeset viewer.