- Timestamp:
- 2020-10-19T10:48:19+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/TRA/traadv_ubs.F90
r13571 r13630 138 138 ! 139 139 END DO 140 #if defined key_mpi3 141 CALL lbc_lnk_nc_multi( 'traadv_ubs', zltu, 'T', 1.0_wp ) ; CALL lbc_lnk_nc_multi( 'traadv_ubs', zltv, 'T', 1.0_wp ) ! Lateral boundary cond. (unchanged sgn) 142 #else 140 143 CALL lbc_lnk( 'traadv_ubs', zltu, 'T', 1.0_wp ) ; CALL lbc_lnk( 'traadv_ubs', zltv, 'T', 1.0_wp ) ! Lateral boundary cond. (unchanged sgn) 144 #endif 141 145 ! 142 146 DO_3D( 1, 0, 1, 0, 1, jpkm1 ) !== Horizontal advective fluxes ==! (UBS) … … 209 213 zti(ji,jj,jk) = ( pt(ji,jj,jk,jn,Kbb) + p2dt * ( ztak + zltu(ji,jj,jk) ) ) * tmask(ji,jj,jk) 210 214 END_3D 215 #if defined key_mpi3 216 CALL lbc_lnk_nc_multi( 'traadv_ubs', zti, 'T', 1.0_wp ) ! Lateral boundary conditions on zti, zsi (unchanged sign) 217 #else 211 218 CALL lbc_lnk( 'traadv_ubs', zti, 'T', 1.0_wp ) ! Lateral boundary conditions on zti, zsi (unchanged sign) 219 #endif 212 220 ! 213 221 ! !* anti-diffusive flux : high order minus low order
Note: See TracChangeset
for help on using the changeset viewer.