Changeset 14210 for NEMO/trunk/src/OCE
- Timestamp:
- 2020-12-18T11:03:04+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/TRA/tramle.F90
r14045 r14210 246 246 zmvw = MAX( 0._wp , ( 1._wp - zcvw ) * ( 1._wp + r5_21 * zcvw ) ) 247 247 ! 248 zpsi_uw(ji,jj,jk) = zpsim_u(ji,jj) * zmuw * umask(ji,jj,jk)249 zpsi_vw(ji,jj,jk) = zpsim_v(ji,jj) * zmvw * vmask(ji,jj,jk)248 zpsi_uw(ji,jj,jk) = zpsim_u(ji,jj) * zmuw * wumask(ji,jj,jk) * wumask(ji,jj,1) 249 zpsi_vw(ji,jj,jk) = zpsim_v(ji,jj) * zmvw * wvmask(ji,jj,jk) * wvmask(ji,jj,1) 250 250 END_3D 251 251 ! … … 258 258 DO_2D( 0, 0, 0, 0 ) 259 259 pw(ji,jj,jk) = pw(ji,jj,jk) - ( zpsi_uw(ji,jj,jk) - zpsi_uw(ji-1,jj,jk) & 260 & + zpsi_vw(ji,jj,jk) - zpsi_vw(ji,jj-1,jk) ) 260 & + zpsi_vw(ji,jj,jk) - zpsi_vw(ji,jj-1,jk) ) * wmask(ji,jj,1) 261 261 END_2D 262 262 END DO
Note: See TracChangeset
for help on using the changeset viewer.