New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
trcsms_pisces.F90 in branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/TOP_SRC/PISCES – NEMO

source: branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/TOP_SRC/PISCES/trcsms_pisces.F90 @ 4147

Last change on this file since 4147 was 4147, checked in by cetlod, 10 years ago

merge in dev_LOCEAN_2013, the 1st development branch dev_r3853_CNRS9_Confsetting, from its starting point ( r3853 ) on the trunk: see ticket #1169

  • Property svn:keywords set to Id
File size: 2.9 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
10   !!----------------------------------------------------------------------
11   !!   'key_pisces'                                       PISCES bio-model
12   !!----------------------------------------------------------------------
13   !!   trcsms_pisces        :  Time loop of passive tracers sms
14   !!----------------------------------------------------------------------
15   USE par_pisces
16   USE p4zsms
17   USE p2zsms
18
19   IMPLICIT NONE
20   PRIVATE
21
22   PUBLIC   trc_sms_pisces    ! called in trcsms.F90
23   !!----------------------------------------------------------------------
24   !! NEMO/TOP 3.3 , NEMO Consortium (2010)
25   !! $Id$
26   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
27   !!----------------------------------------------------------------------
28
29CONTAINS
30
31      !!----------------------------------------------------------------------
32      !!                   ***  ROUTINE trc_ini_pisces ***
33      !!
34      !! ** Purpose :   Initialisation of the PISCES biochemical model
35      !!----------------------------------------------------------------------
36
37
38   SUBROUTINE trc_sms_pisces( kt )
39      !!---------------------------------------------------------------------
40      !!                     ***  ROUTINE trc_sms_pisces  ***
41      !!
42      !! ** Purpose :   Managment of the call to Biological sources and sinks
43      !!                routines of PISCES or LOBSTER bio-model
44      !!
45      !!---------------------------------------------------------------------
46      !
47      INTEGER, INTENT( in ) ::   kt      ! ocean time-step index     
48      !!---------------------------------------------------------------------
49      !
50      IF( lk_p4z ) THEN  ;   CALL p4z_sms( kt )   !  PISCES
51      ELSE               ;   CALL p2z_sms( kt )   !  LOBSTER
52      ENDIF
53
54      !
55   END SUBROUTINE trc_sms_pisces
56
57#else
58   !!======================================================================
59   !!  Dummy module :                                   No PISCES bio-model
60   !!======================================================================
61CONTAINS
62   SUBROUTINE trc_sms_pisces( kt )                   ! Empty routine
63      INTEGER, INTENT( in ) ::   kt
64      WRITE(*,*) 'trc_sms_pisces: You should not have seen this print! error?', kt
65   END SUBROUTINE trc_sms_pisces
66#endif 
67
68   !!======================================================================
69END MODULE trcsms_pisces 
Note: See TracBrowser for help on using the repository browser.