Changeset 9399 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DIA
- Timestamp:
- 2018-03-14T15:48:46+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90
r9124 r9399 280 280 ! 281 281 IF ( iom_use("eken") ) THEN 282 z3d(:,:,j k) = 0._wp282 z3d(:,:,jpk) = 0._wp 283 283 DO jk = 1, jpkm1 284 284 DO jj = 2, jpjm1
Note: See TracChangeset
for help on using the changeset viewer.