Changeset 12077 for NEMO/branches/2019/UKMO_MERGE_2019/src/OCE/LDF
- Timestamp:
- 2019-12-05T18:41:39+01:00 (5 years ago)
- Location:
- NEMO/branches/2019/UKMO_MERGE_2019/src/OCE/LDF
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/UKMO_MERGE_2019/src/OCE/LDF/ldfslp.F90
r12068 r12077 21 21 !!---------------------------------------------------------------------- 22 22 USE oce ! ocean dynamics and tracers 23 USE isf 23 USE isf_oce ! ice shelf 24 24 USE dom_oce ! ocean space and time domain 25 25 ! USE ldfdyn ! lateral diffusion: eddy viscosity coef. -
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.