MODULE trcsms_pisces !!====================================================================== !! *** MODULE trcsms_pisces *** !! TOP : PISCES Source Minus Sink manager !!====================================================================== !! History : 1.0 ! 2004-03 (O. Aumont) Original code !! 2.0 ! 2007-12 (C. Ethe, G. Madec) F90 !!---------------------------------------------------------------------- #if defined key_pisces || defined key_pisces_reduced !!---------------------------------------------------------------------- !! 'key_pisces' PISCES bio-model !!---------------------------------------------------------------------- !! trcsms_pisces : Time loop of passive tracers sms !!---------------------------------------------------------------------- USE par_pisces USE p4zsms USE p2zsms IMPLICIT NONE PRIVATE PUBLIC trc_sms_pisces ! called in trcsms.F90 !!---------------------------------------------------------------------- !! NEMO/TOP 3.3 , NEMO Consortium (2010) !! $Id$ !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) !!---------------------------------------------------------------------- CONTAINS !!---------------------------------------------------------------------- !! *** ROUTINE trc_ini_pisces *** !! !! ** Purpose : Initialisation of the PISCES biochemical model !!---------------------------------------------------------------------- SUBROUTINE trc_sms_pisces( kt ) !!--------------------------------------------------------------------- !! *** ROUTINE trc_sms_pisces *** !! !! ** Purpose : Managment of the call to Biological sources and sinks !! routines of PISCES or LOBSTER bio-model !! !!--------------------------------------------------------------------- ! INTEGER, INTENT( in ) :: kt ! ocean time-step index !!--------------------------------------------------------------------- ! IF( lk_p4z ) THEN ; CALL p4z_sms( kt ) ! PISCES ELSE ; CALL p2z_sms( kt ) ! LOBSTER ENDIF ! END SUBROUTINE trc_sms_pisces #else !!====================================================================== !! Dummy module : No PISCES bio-model !!====================================================================== CONTAINS SUBROUTINE trc_sms_pisces( kt ) ! Empty routine INTEGER, INTENT( in ) :: kt WRITE(*,*) 'trc_sms_pisces: You should not have seen this print! error?', kt END SUBROUTINE trc_sms_pisces #endif !!====================================================================== END MODULE trcsms_pisces