Changeset 12336 for NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DIA
- Timestamp:
- 2020-01-24T17:25:42+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DIA/diaar5.F90
r12193 r12336 299 299 ELSE 300 300 DO jk = 1, jpk 301 DO j i = 1, jpi302 DO j j = 1, jpj301 DO jj = 1, jpj 302 DO ji = 1, jpi 303 303 zpe(ji,jj) = zpe(ji,jj) + avt(ji,jj,jk) * MIN(0._wp,rn2(ji,jj,jk)) * rau0 * e3w(ji,jj,jk,Kmm) 304 304 END DO
Note: See TracChangeset
for help on using the changeset viewer.