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/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/PISCES – NEMO

source: branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/PISCES/trcsms_pisces.F90 @ 7041

Last change on this file since 7041 was 7041, checked in by cetlod, 7 years ago

ROBUST5_CNRS : implementation of part I of new TOP interface - 1st step -, see ticket #1782

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