Changeset 5260 for branches/2014/dev_r4650_UKMO10_Tidally_Meaned_Diagnostics/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90
- Timestamp:
- 2015-05-12T12:37:15+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO10_Tidally_Meaned_Diagnostics/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90
r4624 r5260 208 208 !----------------------------------------------------------------------- 209 209 210 enactfiles(:) = '' 211 coriofiles(:) = '' 212 profbfiles(:) = '' 213 slafilesact(:) = '' 214 slafilespas(:) = '' 215 slafbfiles(:) = '' 216 sstfiles(:) = '' 217 sstfbfiles(:) = '' 218 seaicefiles(:) = '' 210 219 velcurfiles(:) = '' 211 220 veladcpfiles(:) = '' 221 velavcurfiles(:) = '' 222 velhrcurfiles(:) = '' 223 velavadcpfiles(:) = '' 224 velhradcpfiles(:) = '' 225 velfbfiles(:) = '' 226 velcurfiles(:) = '' 227 veladcpfiles(:) = '' 228 endailyavtypes(:) = -1 229 endailyavtypes(1) = 820 230 ln_profb_ena(:) = .FALSE. 231 ln_profb_enatim(:) = .TRUE. 232 ln_velfb_av(:) = .FALSE. 233 ln_ignmis = .FALSE. 234 212 235 CALL ini_date( dobsini ) 213 236 CALL fin_date( dobsend ) … … 460 483 CALL obs_grid_setup( ) 461 484 IF ( ( n1dint < 0 ).OR.( n1dint > 1 ) ) THEN 462 IF(lwp) WRITE(numout,cform_err) 463 IF(lwp) WRITE(numout,*) ' Choice of vertical (1D) interpolation method', & 464 & ' is not available' 465 nstop = nstop + 1 485 CALL ctl_stop(' Choice of vertical (1D) interpolation method', & 486 & ' is not available') 466 487 ENDIF 467 488 IF ( ( n2dint < 0 ).OR.( n2dint > 4 ) ) THEN 468 IF(lwp) WRITE(numout,cform_err) 469 IF(lwp) WRITE(numout,*) ' Choice of horizontal (2D) interpolation method', & 470 & ' is not available' 471 nstop = nstop + 1 489 CALL ctl_stop(' Choice of horizontal (2D) interpolation method', & 490 & ' is not available') 472 491 ENDIF 473 492
Note: See TracChangeset
for help on using the changeset viewer.