source: branches/CNRS/dev_r4826_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/trcsms_pisces.F90 @ 5266

Last change on this file since 5266 was 5266, checked in by cetlod, 6 years ago

PISCES_QUOTA : First commits, see ticket #1516

  • Property svn:keywords set to Id
File size: 3.0 KB
Line 
1MODULE trcsms_pisces
2   !!======================================================================
3   !!                         ***  MODULE trcsms_pisces  ***
4   !! TOP :   PISCES Source Minus Sink manager
5   !!======================================================================
6   !! History :   1.0  !  2004-03 (O. Aumont) Original code
7   !!             2.0  !  2007-12  (C. Ethe, G. Madec)  F90
8   !!----------------------------------------------------------------------
9#if defined key_pisces || defined key_pisces_reduced || defined key_pisces_quota
10   !!----------------------------------------------------------------------
11   !!   'key_pisces'                                       PISCES bio-model
12   !!----------------------------------------------------------------------
13   !!   trcsms_pisces        :  Time loop of passive tracers sms
14   !!----------------------------------------------------------------------
15   USE par_pisces
16   USE p5zsms
17   USE p4zsms
18   USE p2zsms
19
20   IMPLICIT NONE
21   PRIVATE
22
23   PUBLIC   trc_sms_pisces    ! called in trcsms.F90
24   !!----------------------------------------------------------------------
25   !! NEMO/TOP 3.3 , NEMO Consortium (2010)
26   !! $Id$
27   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
28   !!----------------------------------------------------------------------
29
30CONTAINS
31
32      !!----------------------------------------------------------------------
33      !!                   ***  ROUTINE trc_ini_pisces ***
34      !!
35      !! ** Purpose :   Initialisation of the PISCES biochemical model
36      !!----------------------------------------------------------------------
37
38
39   SUBROUTINE trc_sms_pisces( kt )
40      !!---------------------------------------------------------------------
41      !!                     ***  ROUTINE trc_sms_pisces  ***
42      !!
43      !! ** Purpose :   Managment of the call to Biological sources and sinks
44      !!                routines of PISCES or LOBSTER bio-model
45      !!
46      !!---------------------------------------------------------------------
47      !
48      INTEGER, INTENT( in ) ::   kt      ! ocean time-step index     
49      !!---------------------------------------------------------------------
50      !
51      SELECT CASE ( nn_p4z )
52
53      CASE(1)       ;        CALL p2z_sms( kt )   !  LOBSTER
54      CASE(2)       ;        CALL p4z_sms( kt )   !  PISCES
55      CASE(3)       ;        CALL p5z_sms( kt )   !  PISCES with variable stoichiometry
56
57      END SELECT
58
59      !
60   END SUBROUTINE trc_sms_pisces
61
62#else
63   !!======================================================================
64   !!  Dummy module :                                   No PISCES bio-model
65   !!======================================================================
66CONTAINS
67   SUBROUTINE trc_sms_pisces( kt )                   ! Empty routine
68      INTEGER, INTENT( in ) ::   kt
69      WRITE(*,*) 'trc_sms_pisces: You should not have seen this print! error?', kt
70   END SUBROUTINE trc_sms_pisces
71#endif 
72
73   !!======================================================================
74END MODULE trcsms_pisces 
Note: See TracBrowser for help on using the repository browser.