- Timestamp:
- 2019-03-15T15:47:53+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/DOM/domvvl.F90
r10743 r10767 665 665 hv_n(:,:) = hv_a(:,:) ; r1_hv_n(:,:) = r1_hv_a(:,:) 666 666 ! 667 ht_n(:,:) = e3t _n(:,:,1) * tmask(:,:,1)667 ht_n(:,:) = e3t(:,:,1,kNnn) * tmask(:,:,1) 668 668 DO jk = 2, jpkm1 669 ht_n(:,:) = ht_n(:,:) + e3t _n(:,:,jk) * tmask(:,:,jk)669 ht_n(:,:) = ht_n(:,:) + e3t(:,:,jk,kNnn) * tmask(:,:,jk) 670 670 END DO 671 671
Note: See TracChangeset
for help on using the changeset viewer.