- Timestamp:
- 2016-11-28T18:44:31+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_INGV_UKMO_2016/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfqiao.F90
r7353 r7359 70 70 DO jj = 1, jpjm1 71 71 DO ji = 1, fs_jpim1 72 qbv(ji,jj,jk) = 1.0 * 0.353553 * swh(ji,jj) * tsd2d(ji,jj) * &73 & EXP(3.0 * wnum(ji,jj) * &74 & (-MIN( fsdepw(ji ,jj ,jk), fsdepw(ji+1,jj ,jk), &75 & fsdepw(ji ,jj+1,jk), fsdepw(ji+1,jj+1,jk)))) &72 qbv(ji,jj,jk) = 1.0 * 0.353553 * swh(ji,jj) * tsd2d(ji,jj) * & 73 & EXP(3.0 * wnum(ji,jj) * & 74 & (-MIN( gdepw_n(ji ,jj ,jk), gdepw_n(ji+1,jj ,jk), & 75 & gdepw_n(ji ,jj+1,jk), gdepw_n(ji+1,jj+1,jk)))) & 76 76 & * wmask(ji,jj,jk) 77 77 END DO
Note: See TracChangeset
for help on using the changeset viewer.