source: NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/PISCES/trcsms_pisces.F90 @ 10963

Last change on this file since 10963 was 10963, checked in by acc, 19 months ago

2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps : Convert TOP routines in top-level TOP directory and all knock on effects of these conversions. SETTE tested.

  • Property svn:keywords set to Id
File size: 1.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   !!   trcsms_pisces        :  Time loop of passive tracers sms
10   !!----------------------------------------------------------------------
11   USE par_pisces
12   USE sms_pisces
13   USE p4zsms
14   USE p2zsms
15
16   IMPLICIT NONE
17   PRIVATE
18
19   PUBLIC   trc_sms_pisces    ! called in trcsms.F90
20   !!----------------------------------------------------------------------
21   !! NEMO/TOP 4.0 , NEMO Consortium (2018)
22   !! $Id$
23   !! Software governed by the CeCILL license (see ./LICENSE)
24   !!----------------------------------------------------------------------
25CONTAINS
26
27   SUBROUTINE trc_sms_pisces( kt, Kmm )
28      !!---------------------------------------------------------------------
29      !!                     ***  ROUTINE trc_sms_pisces  ***
30      !!
31      !! ** Purpose :   Managment of the call to Biological sources and sinks
32      !!                routines of PISCES or LOBSTER bio-model
33      !!
34      !!---------------------------------------------------------------------
35      !
36      INTEGER, INTENT( in ) ::   kt      ! ocean time-step index     
37      INTEGER, INTENT( in ) ::   Kmm     ! time level index
38      !!---------------------------------------------------------------------
39      !
40      IF( ln_p4z .OR. ln_p5z ) THEN  ;   CALL p4z_sms( kt, Kmm )   !  PISCES
41      ELSE                           ;   CALL p2z_sms( kt )   !  LOBSTER
42      ENDIF
43
44      !
45   END SUBROUTINE trc_sms_pisces
46
47   !!======================================================================
48END MODULE trcsms_pisces 
Note: See TracBrowser for help on using the repository browser.