- Timestamp:
- 2019-12-06T21:40:27+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/UKMO_MERGE_2019/src/OCE/BDY/bdydta.F90
r11946 r12107 172 172 ii = idx_bdy(jbdy)%nbi(ib,igrd) 173 173 ij = idx_bdy(jbdy)%nbj(ib,igrd) 174 dta_bdy(jbdy)%tem(ib,ik) = ts(ii,ij,ik,jp_ bdytem,Kmm) * tmask(ii,ij,ik)175 dta_bdy(jbdy)%sal(ib,ik) = ts(ii,ij,ik,jp_ bdysal,Kmm) * tmask(ii,ij,ik)174 dta_bdy(jbdy)%tem(ib,ik) = ts(ii,ij,ik,jp_tem,Kmm) * tmask(ii,ij,ik) 175 dta_bdy(jbdy)%sal(ib,ik) = ts(ii,ij,ik,jp_sal,Kmm) * tmask(ii,ij,ik) 176 176 END DO 177 177 END DO
Note: See TracChangeset
for help on using the changeset viewer.