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/MEDUSA/trcsms_medusa.F90

    r7766 r7912  
    8282      CALL flush(numout) 
    8383# else 
     84! tmp - marc 
     85      write(numout,*) 'bbb25. before call to trc_bio_medusa' 
     86      flush(numout) 
     87! 
    8488      CALL trc_bio_medusa( kt ) ! biological model 
    8589#  if defined key_debug_medusa 
    8690      IF(lwp) WRITE(numout,*) ' MEDUSA done trc_bio_medusa' 
    8791      CALL flush(numout) 
     92! tmp - marc 
     93      write(numout,*) 'bbb26. after call to trc_bio_medusa' 
     94      flush(numout) 
     95! 
    8896#  endif 
    8997       
Note: See TracChangeset for help on using the changeset viewer.