Changeset 8045 for branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_init.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/bio_medusa_init.F90 (modified) (2 diffs)

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

@@ -46 +46 @@
       !! time (integer timestep)
       INTEGER, INTENT( in ) ::    kt
-
-! tmp - marc
-      write(numout,*) 'bbb1. kt=',kt
-      flush(numout)
-!
 
       IF( ln_diatrc ) THEN
@@ -831 +826 @@
       !! lk_iomput
 
-! tmp - marc
-      write(numout,*) 'bbb9. kt=',kt
-      flush(numout)
-!
-
    END SUBROUTINE bio_medusa_init