- Timestamp:
- 2017-05-19T16:00:01+02:00 (7 years ago)
- Location:
- branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC
- Files:
-
- 4 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 -
branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_mod.F90
r8039 r8051 335 335 ! fifd_c(jpi,jpj),fifd_a(jpi,jpj),fifd_o2(jpi,jpj), & 336 336 ! fofd_c(jpi,jpj),fofd_a(jpi,jpj),fofd_o2(jpi,jpj), & 337 fifd_c(jpi,jpj), & 338 fofd_c(jpi,jpj), & 337 fifd_c(jpi,jpj), fofd_c(jpi,jpj), & 339 338 # endif 340 339 fzmi_i(jpi,jpj),fzmi_o(jpi,jpj),fzme_i(jpi,jpj), & -
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 -
branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/trcsms.F90
r7912 r8051 53 53 ! 54 54 IF( lk_pisces ) CALL trc_sms_pisces ( kt ) ! main program of PISCES 55 ! tmp - marc56 write(numout,*) 'bbb32. before call to trc_bio_medusa'57 flush(numout)58 !59 55 IF( lk_medusa ) CALL trc_sms_medusa ( kt ) ! MEDUSA tracers 60 ! tmp - marc61 write(numout,*) 'bbb33. after call to trc_bio_medusa'62 flush(numout)63 !64 56 # if defined key_debug_medusa 65 57 IF(lwp) WRITE(numout,*) '--trcsms : MEDUSA OK -- next IDTRA -- '
Note: See TracChangeset
for help on using the changeset viewer.