Changeset 7912 for branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/trcsms.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/trcsms.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/trcsms.F90

@@ -53 +53 @@
       !
       IF( lk_pisces  )   CALL trc_sms_pisces ( kt )    ! main program of PISCES 
+! tmp - marc
+      write(numout,*) 'bbb32. before call to trc_bio_medusa'
+      flush(numout)
+!
       IF( lk_medusa  )   CALL trc_sms_medusa ( kt )    ! MEDUSA  tracers
+! tmp - marc
+      write(numout,*) 'bbb33. after call to trc_bio_medusa'
+      flush(numout)
+!
 # if defined key_debug_medusa
          IF(lwp) WRITE(numout,*) '--trcsms : MEDUSA OK --  next IDTRA -- '