- Timestamp:
- 2020-03-27T20:55:44+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/TRA/traldf_iso.F90
r12606 r12622 173 173 IF( ln_traldf_blp ) THEN ! bilaplacian operator 174 174 DO_3D_10_10( 2, jpkm1 ) 175 akz(ji,jj,jk) = 16._wp * ah_wslp2(ji,jj,jk) & 176 & * ( akz(ji,jj,jk) + ah_wslp2(ji,jj,jk) & 177 & / ( e3w(ji,jj,jk,Kmm) * e3w(ji,jj,jk,Kmm) ) ) 175 akz(ji,jj,jk) = 16._wp & 176 & * ah_wslp2 (ji,jj,jk) & 177 & * ( akz (ji,jj,jk) & 178 & + ah_wslp2(ji,jj,jk) & 179 & / ( e3w(ji,jj,jk,Kmm) * e3w(ji,jj,jk,Kmm) ) ) 178 180 END_3D 179 181 ELSEIF( ln_traldf_lap ) THEN ! laplacian operator
Note: See TracChangeset
for help on using the changeset viewer.