- Timestamp:
- 2017-03-27T10:50:24+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5785_SSS_obsoper/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_surf.F90
r7740 r7837 77 77 CHARACTER(LEN=11), PARAMETER :: cpname='obs_rea_surf' 78 78 CHARACTER(len=8) :: clrefdate 79 CHARACTER(len= 6), DIMENSION(:), ALLOCATABLE :: clvars79 CHARACTER(len=8), DIMENSION(:), ALLOCATABLE :: clvars 80 80 INTEGER :: ji 81 81 INTEGER :: jj … … 172 172 173 173 !------------------------------------------------------------------ 174 ! Read the profile file into inpfiles174 ! Read the surface file into inpfiles 175 175 !------------------------------------------------------------------ 176 176 CALL init_obfbdata( inpfiles(jj) ) … … 196 196 END DO 197 197 ENDIF 198 199 IF (lwp) WRITE(numout,*)'Observation file contains ',inpfiles(jj)%nobs,' observations'200 198 201 199 !------------------------------------------------------------------ … … 347 345 348 346 iobs = 0 349 350 347 surfdata%cvars(:) = clvars(:) 351 348
Note: See TracChangeset
for help on using the changeset viewer.