Changeset 15062 for NEMO/trunk/src/OCE/DIA
- Timestamp:
- 2021-06-28T13:19:48+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/DIA/diahsb.F90
r15048 r15062 186 186 ! 187 187 DO jk = 1, jpkm1 ! volume 188 ztmpk(:,:,jk,1) = surf (:,:) * e3t (:,:,jk,Kmm)*tmask(:,:,jk) &188 ztmpk(:,:,jk,1) = surf (:,:) * e3t(:,:,jk,Kmm)*tmask(:,:,jk) & 189 189 & - surf_ini(:,:) * e3t_ini(:,:,jk )*tmask_ini(:,:,jk) 190 190 END DO
Note: See TracChangeset
for help on using the changeset viewer.