Changeset 12145 for NEMO/branches/2019/dev_r11943_MERGE_2019/src
- Timestamp:
- 2019-12-10T13:58:21+01:00 (4 years ago)
- Location:
- NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/BDY/bdydta.F90
r11960 r12145 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 -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DYN/dynspg_ts.F90
r11949 r12145 689 689 hvr_e(2:jpim1,2:jpjm1) = ssvmask(2:jpim1,2:jpjm1) / ( hv_e(2:jpim1,2:jpjm1) + 1._wp - ssvmask(2:jpim1,2:jpjm1) ) 690 690 CALL lbc_lnk_multi( 'dynspg_ts', ua_e , 'U', -1._wp, va_e , 'V', -1._wp & 691 & , hu_e , 'U', -1._wp, hv_e , 'V', -1._wp &692 & , hur_e, 'U', -1._wp, hvr_e, 'V', -1._wp )691 & , hu_e , 'U', 1._wp, hv_e , 'V', 1._wp & 692 & , hur_e, 'U', 1._wp, hvr_e, 'V', 1._wp ) 693 693 ELSE 694 694 CALL lbc_lnk_multi( 'dynspg_ts', ua_e , 'U', -1._wp, va_e , 'V', -1._wp ) … … 805 805 806 806 IF ( ln_wd_dl .and. ln_wd_dl_bc) THEN 807 ! need to set lbc here because not done prior time averaging 808 CALL lbc_lnk_multi( 'dynspg_ts', zuwdav2, 'U', 1._wp, zvwdav2, 'V', 1._wp) 807 809 DO jk = 1, jpkm1 808 810 puu(:,:,jk,Kmm) = ( un_adv(:,:)*r1_hu(:,:,Kmm) & -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/traadv_fct.F90
r11949 r12145 660 660 DO ji = fs_2, fs_jpim1 661 661 ikt = mikt(ji,jj) + 1 ! w-point below the 1st wet point 662 ikb = mbkt(ji,jj)! - above the last wet point662 ikb = MAX(mbkt(ji,jj), 2) ! - above the last wet point 663 663 ! 664 664 zwd (ji,jj,ikt) = 1._wp ! top
Note: See TracChangeset
for help on using the changeset viewer.