Changeset 13295 for NEMO/trunk/src/OCE/IOM/iom.F90
- Timestamp:
- 2020-07-10T20:24:21+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/IOM/iom.F90
r13286 r13295 2255 2255 ! 2256 2256 ! Cell vertices that can be defined 2257 DO_2D _00_002257 DO_2D( 0, 0, 0, 0 ) 2258 2258 z_bnds(1,ji,jj,1) = plat_cnr(ji+icnr, jj+jcnr ) ! Bottom-left 2259 2259 z_bnds(2,ji,jj,1) = plat_cnr(ji+icnr+1,jj+jcnr ) ! Bottom-right … … 2266 2266 END_2D 2267 2267 ! 2268 DO_2D _00_002268 DO_2D( 0, 0, 0, 0 ) 2269 2269 IF( z_fld(ji,jj) == -1. ) THEN 2270 2270 z_rot(1,:) = z_bnds(3,ji,jj,:) ; z_rot(2,:) = z_bnds(4,ji,jj,:)
Note: See TracChangeset
for help on using the changeset viewer.