Changeset 13325
- Timestamp:
- 2020-07-20T09:12:12+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/DYN/dynspg_ts.F90
r10888 r13325 323 323 ! 324 324 DO jj = 1, jpjm1 325 zhf(:,jj) = zhf(:,jj) * (1._wp- umask(:,jj,1) * umask(:,jj+1,1)) 325 DO ji = 1, jpi 326 zhf(ji,jj) = zhf(ji,jj) * (1._wp- umask(ji,jj,1) * umask(ji,jj+1,1)) 327 ENDDO 326 328 END DO 327 329 ! 328 330 DO jk = 1, jpkm1 329 331 DO jj = 1, jpjm1 330 zhf(:,jj) = zhf(:,jj) + e3f_n(:,jj,jk) * umask(:,jj,jk) * umask(:,jj+1,jk) 332 DO ji = 1, jpi 333 zhf(ji,jj) = zhf(ji,jj) + e3f_n(ji,jj,jk) * umask(ji,jj,jk) * umask(ji,jj+1,jk) 334 ENDDO 331 335 END DO 332 336 END DO
Note: See TracChangeset
for help on using the changeset viewer.