Changeset 8051 for branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.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/trcbio_medusa.F90
r8025 r8051 556 556 # endif 557 557 # if defined key_debug_medusa 558 ! I'M NOT SURE THIS USEFUL NOW THAT I'VE SPLIT THE DO LOOP - marc 8/5/17558 ! I'M NOT SURE THIS IS USEFUL NOW THAT I'VE SPLIT THE DO LOOP - marc 8/5/17 559 559 ! if (idf.eq.1.AND.idfval.eq.1) then 560 560 ! DO jj = 2,jpjm1 … … 588 588 589 589 # if defined key_debug_medusa 590 ! I'M NOT SURE THIS USEFUL NOW THAT I'VE SPLIT THE DO LOOP - marc 8/5/17590 ! I'M NOT SURE THIS IS USEFUL NOW THAT I'VE SPLIT THE DO LOOP - marc 8/5/17 591 591 ! if (idf.eq.1.AND.idfval.eq.1.AND.jk.eq.1) then 592 592 ! DO jj = 2,jpjm1
Note: See TracChangeset
for help on using the changeset viewer.