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

Timestamp:

2017-04-13T18:05:31+02:00 (7 years ago)

Author:

marc

Message:

Moved initialisation from trcbio_medusa.F90 into bio_medusa_init.F90

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