Ignore:
Timestamp:
2017-09-14T17:42:14+02:00 (3 years ago)
Author:
marc
Message:

gmed:#346 Merging branches/NERC/dev_r5518_GO6_MEDUSA_conserv

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcsms_medusa.F90

    r8074 r8521  
    88   !!              -   !  2008-11  (A. Yool) continuing adaptation for MEDUSA 
    99   !!              -   !  2010-03  (A. Yool) updated for branch inclusion 
     10   !!              -   !  2017-08  (A. Yool) amend for slow detritus bug 
    1011   !!---------------------------------------------------------------------- 
    1112#if defined key_medusa 
     
    8889#  endif 
    8990       
    90       CALL trc_sed_medusa( kt ) ! sedimentation model 
    91 #  if defined key_debug_medusa 
    92       IF(lwp) WRITE(numout,*) ' MEDUSA done trc_sed_medusa' 
    93       CALL flush(numout) 
    94 #  endif 
     91!! AXY (08/08/2017): remove call to buggy subroutine (now handled by detritus.F90) 
     92!!       CALL trc_sed_medusa( kt ) ! sedimentation model 
     93!! #  if defined key_debug_medusa 
     94!!       IF(lwp) WRITE(numout,*) ' MEDUSA done trc_sed_medusa' 
     95!!       CALL flush(numout) 
     96!! #  endif 
    9597# endif 
    9698 
Note: See TracChangeset for help on using the changeset viewer.