- Timestamp:
- 2021-06-18T15:21:42+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/ticket2680_C1D_PAPA/src/OCE/DOM/domvvl.F90
r14834 r15020 713 713 ! 714 714 CASE( 'F' ) !* from U-point to F-point : hor. surface weighted mean 715 DO_3D( 1, 0, 1, 0, 1, jpk )715 DO_3D( 0, 0, 0, 0, 1, jpk ) 716 716 pe3_out(ji,jj,jk) = 0.5_wp * ( umask(ji,jj,jk) * umask(ji,jj+1,jk) * (1.0_wp - zlnwd) + zlnwd ) & 717 717 & * r1_e1e2f(ji,jj) &
Note: See TracChangeset
for help on using the changeset viewer.