Ignore:
Timestamp:
2017-04-13T18:05:31+02:00 (3 years ago)
Author:
marc
Message:

Moved initialisation from trcbio_medusa.F90 into bio_medusa_init.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/trcsms.F90

    r6715 r7912  
    5353      ! 
    5454      IF( lk_pisces  )   CALL trc_sms_pisces ( kt )    ! main program of PISCES  
     55! tmp - marc 
     56      write(numout,*) 'bbb32. before call to trc_bio_medusa' 
     57      flush(numout) 
     58! 
    5559      IF( lk_medusa  )   CALL trc_sms_medusa ( kt )    ! MEDUSA  tracers 
     60! tmp - marc 
     61      write(numout,*) 'bbb33. after call to trc_bio_medusa' 
     62      flush(numout) 
     63! 
    5664# if defined key_debug_medusa 
    5765         IF(lwp) WRITE(numout,*) '--trcsms : MEDUSA OK --  next IDTRA -- ' 
Note: See TracChangeset for help on using the changeset viewer.