Changeset 8045 for branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcsms_medusa.F90

Timestamp:

2017-05-19T11:21:44+02:00 (7 years ago)

Author:

marc

Message:

Broken up iron_chem_scav.F90 into sections

File:

• branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcsms_medusa.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcsms_medusa.F90

@@ -82 +82 @@
       CALL flush(numout)
 # else
-! tmp - marc
-      write(numout,*) 'bbb25. before call to trc_bio_medusa'
-      flush(numout)
-!
       CALL trc_bio_medusa( kt ) ! biological model
 #  if defined key_debug_medusa
       IF(lwp) WRITE(numout,*) ' MEDUSA done trc_bio_medusa'
       CALL flush(numout)
-! tmp - marc
-      write(numout,*) 'bbb26. after call to trc_bio_medusa'
-      flush(numout)
-!
 #  endif