- Timestamp:
- 2018-07-29T11:23:51+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/BDY/bdydta.F90
r9810 r10009 111 111 ii = idx_bdy(jbdy)%nbi(ib,igrd) 112 112 ij = idx_bdy(jbdy)%nbj(ib,igrd) 113 dta_bdy(jbdy)%ssh(ib) = ssh n(ii,ij) * tmask(ii,ij,1)113 dta_bdy(jbdy)%ssh(ib) = ssh(ii,ij,Nnn) * tmask(ii,ij,1) 114 114 END DO 115 115 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.