Changeset 13783
- Timestamp:
- 2020-11-11T19:47:59+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13747_ENHANCE-04_dford_OBSOP_BGC/src/OCE/OBS/obs_oper.F90
r13760 r13783 218 218 DO jobs = prodatqc%nprofup + 1, prodatqc%nprofup + ipro 219 219 iobs = jobs - prodatqc%nprofup 220 igrdi(1,1,iobs) = prodatqc%mi(jobs, 1)-1221 igrdj(1,1,iobs) = prodatqc%mj(jobs, 1)-1222 igrdi(1,2,iobs) = prodatqc%mi(jobs, 1)-1223 igrdj(1,2,iobs) = prodatqc%mj(jobs, 1)224 igrdi(2,1,iobs) = prodatqc%mi(jobs, 1)225 igrdj(2,1,iobs) = prodatqc%mj(jobs, 1)-1226 igrdi(2,2,iobs) = prodatqc%mi(jobs, 1)227 igrdj(2,2,iobs) = prodatqc%mj(jobs, 1)220 igrdi(1,1,iobs) = prodatqc%mi(jobs,kvar)-1 221 igrdj(1,1,iobs) = prodatqc%mj(jobs,kvar)-1 222 igrdi(1,2,iobs) = prodatqc%mi(jobs,kvar)-1 223 igrdj(1,2,iobs) = prodatqc%mj(jobs,kvar) 224 igrdi(2,1,iobs) = prodatqc%mi(jobs,kvar) 225 igrdj(2,1,iobs) = prodatqc%mj(jobs,kvar)-1 226 igrdi(2,2,iobs) = prodatqc%mi(jobs,kvar) 227 igrdj(2,2,iobs) = prodatqc%mj(jobs,kvar) 228 228 END DO 229 229 … … 403 403 404 404 CALL obs_int_h2d( 1, 1, zweig, interp_corner(:,:,ikn), & 405 & prodatqc%var( 1)%vmod(iend:iend) )405 & prodatqc%var(kvar)%vmod(iend:iend) ) 406 406 407 407 ! Set QC flag for any observations found below the bottom
Note: See TracChangeset
for help on using the changeset viewer.