Changeset 11247 for branches/UKMO/dev_isf_gm_UKESM_GO6package_r9321/NEMOGCM/NEMO/OPA_SRC/LDF/ldfeiv.F90
- Timestamp:
- 2019-07-10T18:43:31+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_isf_gm_UKESM_GO6package_r9321/NEMOGCM/NEMO/OPA_SRC/LDF/ldfeiv.F90
r6793 r11247 94 94 ! eddies using the isopycnal slopes calculated in ldfslp.F : 95 95 ! T^-1 = sqrt(m_jpk(N^2*(r1^2+r2^2)*e3w)) 96 ze3w = fse3w(ji,jj,jk) * tmask(ji,jj,jk)96 ze3w = fse3w(ji,jj,jk) * wmask(ji,jj,jk) 97 97 zah(ji,jj) = zah(ji,jj) + zn2 * wslp2(ji,jj,jk) * ze3w 98 98 zhw(ji,jj) = zhw(ji,jj) + ze3w … … 112 112 ! eddies using the isopycnal slopes calculated in ldfslp.F : 113 113 ! T^-1 = sqrt(m_jpk(N^2*(r1^2+r2^2)*e3w)) 114 ze3w = fse3w(ji,jj,jk) * tmask(ji,jj,jk)114 ze3w = fse3w(ji,jj,jk) * wmask(ji,jj,jk) 115 115 zah(ji,jj) = zah(ji,jj) + zn2 * ( wslpi(ji,jj,jk) * wslpi(ji,jj,jk) & 116 116 & + wslpj(ji,jj,jk) * wslpj(ji,jj,jk) ) * ze3w
Note: See TracChangeset
for help on using the changeset viewer.