Changeset 13295 for NEMO/trunk/src/OCE/ASM/asminc.F90
- Timestamp:
- 2020-07-10T20:24:21+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/ASM/asminc.F90
r13286 r13295 414 414 DO jk = 1, jpkm1 ! zhdiv = e1e1 * div 415 415 zhdiv(:,:) = 0._wp 416 DO_2D _00_00416 DO_2D( 0, 0, 0, 0 ) 417 417 zhdiv(ji,jj) = ( e2u(ji ,jj) * e3u(ji ,jj,jk,Kmm) * u_bkginc(ji ,jj,jk) & 418 418 & - e2u(ji-1,jj) * e3u(ji-1,jj,jk,Kmm) * u_bkginc(ji-1,jj,jk) & … … 423 423 CALL lbc_lnk( 'asminc', zhdiv, 'T', 1.0_wp ) ! lateral boundary cond. (no sign change) 424 424 ! 425 DO_2D _00_00425 DO_2D( 0, 0, 0, 0 ) 426 426 u_bkginc(ji,jj,jk) = u_bkginc(ji,jj,jk) & 427 427 & + 0.2_wp * ( zhdiv(ji+1,jj) - zhdiv(ji ,jj) ) * r1_e1u(ji,jj) * umask(ji,jj,jk)
Note: See TracChangeset
for help on using the changeset viewer.