Changeset 13511 for NEMO/releases/r4.0/r4.0-HEAD/src/OCE
- Timestamp:
- 2020-09-24T10:55:10+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/releases/r4.0/r4.0-HEAD/src/OCE/ZDF/zdfgls.F90
r13492 r13511 225 225 ! 226 226 DO jk = 2, jpkm1 !== Compute dissipation rate ==! 227 DO jj = 1, jpjm1228 DO ji = 1, jpim1227 DO jj = 2, jpjm1 228 DO ji = 2, jpim1 229 229 eps(ji,jj,jk) = rc03 * en(ji,jj,jk) * SQRT( en(ji,jj,jk) ) / hmxl_n(ji,jj,jk) 230 230 END DO
Note: See TracChangeset
for help on using the changeset viewer.