- Timestamp:
- 2020-04-20T09:15:34+02:00 (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.1_biharmonic_GM/src/OCE/DYN/dynldf_lap_blp.F90
r12691 r12775 248 248 & -0.5_wp*(zmu(ji+1,jj ,jk)+zmu(ji,jj,jk))*(pub (ji,jj,jk-1) - pub (ji,jj,jk)) ) * wumask(ji,jj,jk) / e3uw_n(ji,jj,jk) 249 249 zvlapdz(ji,jj,jk) = ( -0.5_wp*(bhm(ji ,jj+1,jk)+bhm(ji,jj,jk))*(zvlap(ji,jj,jk-1) - zvlap(ji,jj,jk)) & 250 & -0.5_wp*(zmu(ji ,jj+1,jk)+zmu(ji,jj,jk))*(pvb (ji,jj,jk-1) - pvb (ji,jj,jk)) ) * w umask(ji,jj,jk) / e3uw_n(ji,jj,jk)250 & -0.5_wp*(zmu(ji ,jj+1,jk)+zmu(ji,jj,jk))*(pvb (ji,jj,jk-1) - pvb (ji,jj,jk)) ) * wvmask(ji,jj,jk) / e3vw_n(ji,jj,jk) 251 251 ENDDO 252 252 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.
