- 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/obs_grid.F90
r2715 r4932 412 412 ENDIF 413 413 414 IF (MAXVAL(ixpos(ipx1:ipx,ipy1:ipy)) == -1) CYCLE! cycle if no lookup points found 414 IF (.NOT. llfourflag) THEN 415 IF (MAXVAL(ixpos(ipx1:ipx,ipy1:ipy)) == -1) CYCLE! cycle if no lookup points found 416 ENDIF 415 417 416 418 jimin = 0 … … 996 998 df = ABS( iypos(ji+1,jj) - iypos(ji,jj) ) 997 999 tmpy1 = df 998 IF ( df < lim xdiff ) numy1 = numy1 + 11000 IF ( df < limydiff ) numy1 = numy1 + 1 999 1001 IF ( df < histsize ) histy1(df+1) = histy1(df+1) + 1 1000 1002 ENDIF … … 1002 1004 df = ABS( iypos(ji,jj+1) - iypos(ji,jj) ) 1003 1005 tmpy2 = df 1004 IF ( df < lim xdiff ) numy2 = numy2+11006 IF ( df < limydiff ) numy2 = numy2+1 1005 1007 IF ( df < histsize ) histy2(df+1) = histy2(df+1)+1 1006 1008 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.