- Timestamp:
- 2019-12-05T18:41:39+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/UKMO_MERGE_2019/src/OCE/LDF/ldftra.F90
r11822 r12077 664 664 ! eddies using the isopycnal slopes calculated in ldfslp.F : 665 665 ! T^-1 = sqrt(m_jpk(N^2*(r1^2+r2^2)*e3w)) 666 ze3w = e3w(ji,jj,jk,Kmm) * tmask(ji,jj,jk)666 ze3w = e3w(ji,jj,jk,Kmm) * wmask(ji,jj,jk) 667 667 zah(ji,jj) = zah(ji,jj) + zn2 * wslp2(ji,jj,jk) * ze3w 668 668 zhw(ji,jj) = zhw(ji,jj) + ze3w … … 682 682 ! eddies using the isopycnal slopes calculated in ldfslp.F : 683 683 ! T^-1 = sqrt(m_jpk(N^2*(r1^2+r2^2)*e3w)) 684 ze3w = e3w(ji,jj,jk,Kmm) * tmask(ji,jj,jk)684 ze3w = e3w(ji,jj,jk,Kmm) * wmask(ji,jj,jk) 685 685 zah(ji,jj) = zah(ji,jj) + zn2 * ( wslpi(ji,jj,jk) * wslpi(ji,jj,jk) & 686 686 & + wslpj(ji,jj,jk) * wslpj(ji,jj,jk) ) * ze3w
Note: See TracChangeset
for help on using the changeset viewer.