Changeset 15014 for NEMO/trunk/src/OCE/DOM/domain.F90
- Timestamp:
- 2021-06-17T19:02:04+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/DOM/domain.F90
r14834 r15014 148 148 END DO 149 149 ! 150 DO jk = 1, jpkm1151 hf_0( 1:jpim1,:) = hf_0(1:jpim1,:) + e3f_0(1:jpim1,:,jk)*vmask(1:jpim1,:,jk)*vmask(2:jpi,:,jk)152 END DO150 DO_3D( 0, 0, 0, 0, 1, jpkm1 ) 151 hf_0(ji,jj) = hf_0(ji,jj) + e3f_0(ji,jj,jk)*vmask(ji,jj,jk)*vmask(ji+1,jj,jk) 152 END_3D 153 153 CALL lbc_lnk('domain', hf_0, 'F', 1._wp) 154 154 !
Note: See TracChangeset
for help on using the changeset viewer.