Changeset 6111 for branches/2015/dev_merge_2015
- Timestamp:
- 2015-12-18T09:49:42+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_merge_2015/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_mus.F90
r6108 r6111 173 173 z0v = SIGN( 0.5, pvn(ji,jj,jk) ) 174 174 zalpha = 0.5 - z0v 175 zv = z0v - 0.5 * pvn(ji,jj,jk) * p2dt * r1_e1e2v(ji,jj) *e3v_n(ji,jj,jk)175 zv = z0v - 0.5 * pvn(ji,jj,jk) * p2dt * r1_e1e2v(ji,jj) / e3v_n(ji,jj,jk) 176 176 zzwx = ptb(ji,jj+1,jk,jn) + xind(ji,jj,jk) * zv * zslpy(ji,jj+1,jk) 177 177 zzwy = ptb(ji,jj ,jk,jn) + xind(ji,jj,jk) * zv * zslpy(ji,jj ,jk)
Note: See TracChangeset
for help on using the changeset viewer.