Changeset 10871 for branches/UKMO/dev_r5518_GO6_fix_diaar5
- Timestamp:
- 2019-04-15T13:47:30+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_fix_diaar5/NEMOGCM/NEMO/OPA_SRC/DIA/diaar5.F90
r10870 r10871 208 208 ! work is not being done against stratification 209 209 zpe(:,:) = 0._wp 210 IF( l n_zdfddm ) THEN210 IF( lk_zdfddm ) THEN 211 211 DO jk = 2, jpk 212 212 DO jj = 1, jpj … … 225 225 - avs(ji,jj,jk) * zbw * (tsn(ji,jj,jk-1,jp_sal) - tsn(ji,jj,jk,jp_sal) ) ) 226 226 227 ENDIF 227 228 ENDDO 228 229 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.