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 NEMO/trunk/src/TOP/PISCES – NEMO

source: NEMO/trunk/src/TOP/PISCES/trcsms_pisces.F90

Last change on this file was 15459, checked in by cetlod, 2 years ago

Various bug fixes and more comments in PISCES routines ; sette test OK in debug mode, nn_hls=1/2, with tiling ; run.stat unchanged ; of course tracer.stat different
  • Property svn:keywords set to Id
File size: 2.1 KB
Line 
1MODULE trcsms_pisces
2   !!======================================================================
3   !!                         ***  MODULE trcsms_pisces  ***
4   !! TOP :   PISCES Source Minus Sink manager
5   !!         This module is for LOBSTER, PISCES and PISCES-QUOTA
6   !!======================================================================
7   !! History :   1.0  !  2004-03 (O. Aumont) Original code
8   !!             2.0  !  2007-12  (C. Ethe, G. Madec)  F90
9   !!----------------------------------------------------------------------
10   !!   trcsms_pisces        :  Time loop of passive tracers sms
11   !!----------------------------------------------------------------------
12   USE par_pisces
13   USE sms_pisces
14   USE p4zsms
15   USE p2zsms
16
17   IMPLICIT NONE
18   PRIVATE
19
20   PUBLIC   trc_sms_pisces    ! called in trcsms.F90
21   !!----------------------------------------------------------------------
22   !! NEMO/TOP 4.0 , NEMO Consortium (2018)
23   !! $Id$
24   !! Software governed by the CeCILL license (see ./LICENSE)
25   !!----------------------------------------------------------------------
26CONTAINS
27
28   SUBROUTINE trc_sms_pisces( kt, Kbb, Kmm, Krhs )
29      !!---------------------------------------------------------------------
30      !!                     ***  ROUTINE trc_sms_pisces  ***
31      !!
32      !! ** Purpose :   Managment of the call to Biological sources and sinks
33      !!                routines of PISCES/PISCES-QUOTA or LOBSTER bio-model
34      !!
35      !!---------------------------------------------------------------------
36      !
37      INTEGER, INTENT( in ) ::   kt               ! ocean time-step index     
38      INTEGER, INTENT( in ) ::   Kbb, Kmm, Krhs   ! time level index
39      !!---------------------------------------------------------------------
40      !
41      IF( ln_p4z .OR. ln_p5z ) THEN  ;   CALL p4z_sms( kt, Kbb, Kmm, Krhs )   !  PISCES
42      ELSE                           ;   CALL p2z_sms( kt,      Kmm, Krhs )   !  LOBSTER
43      ENDIF
44
45      !
46   END SUBROUTINE trc_sms_pisces
47
48   !!======================================================================
49END MODULE trcsms_pisces 
Note: See TracBrowser for help on using the repository browser.