Changeset 8051 for branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_med_diag_trc.F90
- Timestamp:
- 2017-05-19T16:00:01+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_med_diag_trc.F90
r8025 r8051 613 613 ENDIF 614 614 615 ! I'm keeping this the same as before , but it looks like it should616 ! be i0100 and not i0200 - marc 8/5/17615 ! I'm keeping this the same as before for reproducibility, but it looks 616 ! like it should be i0100 and not i0200 - marc 8/5/17 617 617 IF (jk.eq.i0200) THEN 618 618 DO jj = 2,jpjm1
Note: See TracChangeset
for help on using the changeset viewer.