SUBROUTINE p4zsink
#if defined key_passivetrc && defined key_trc_pisces
CCC---------------------------------------------------------------------
CCC
CCC          ROUTINE p4zsink : PISCES MODEL
CCC          ******************************
CCC
CCC  PURPOSE :
CCC  ---------
CCC         Compute vertical flux of particulate matter due to
CCC         gravitational sinking
CCC
CC   INPUT :
CC   -----
CC      common
CC              all the common defined in opa
CC
CC
CC   OUTPUT :                   : no
CC   ------
CC
CC   EXTERNAL :
CC   --------
CC            p4zsink2
CC
CC   MODIFICATIONS:
CC   --------------
CC      original  : 2004 - O. Aumont 
CC----------------------------------------------------------------------

CC----------------------------------------------------------------------
CC  TOP 1.0 , LOCEAN-IPSL (2005) 
CC $Id$
CC This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
CC----------------------------------------------------------------------

CC parameters and commons
CC ======================
CDIR$ NOLIST
      USE oce_trc
      USE trp_trc
      USE sms
      IMPLICIT NONE
#include "domzgr_substitute.h90"

#if defined key_trc_kriest

# include "p4zsink.kriest.h"

#else

# include "p4zsink.std.h"

#endif

#endif
      RETURN
      END