Changeset 15763 for NEMO/branches/UKMO/NEMO_4.0-TRUNK_r14960_HPG
- Timestamp:
- 2022-03-18T15:03:54+01:00 (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0-TRUNK_r14960_HPG/src/OCE/DYN/dynhpg.F90
r15728 r15763 1698 1698 zdz_i(ji,jj,jk) = cffx / SIGN( MAX( ABS(z1_cff), zep ), z1_cff ) 1699 1699 1700 cffy = 2._wp * zdzy (ji ,jj-1) * zdzy (ji,jj)1700 cffy = MAX( 2._wp * zdzy (ji ,jj-1) * zdzy (ji,jj), 0._wp) 1701 1701 z1_cff = zdzy(ji,jj-1) + zdzy(ji,jj) 1702 1702 zdz_j(ji,jj,jk) = cffy / SIGN( MAX( ABS(z1_cff), zep ), z1_cff )
Note: See TracChangeset
for help on using the changeset viewer.