Newer
Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
MODULE trcsms_pisces
!!======================================================================
!! *** MODULE trcsms_pisces ***
!! TOP : PISCES Source Minus Sink manager
!! This module is for LOBSTER, PISCES and PISCES-QUOTA
!!======================================================================
!! History : 1.0 ! 2004-03 (O. Aumont) Original code
!! 2.0 ! 2007-12 (C. Ethe, G. Madec) F90
!!----------------------------------------------------------------------
!! trcsms_pisces : Time loop of passive tracers sms
!!----------------------------------------------------------------------
USE par_pisces
USE sms_pisces
USE p4zsms
USE p2zsms
IMPLICIT NONE
PRIVATE
PUBLIC trc_sms_pisces ! called in trcsms.F90
!!----------------------------------------------------------------------
!! NEMO/TOP 4.0 , NEMO Consortium (2018)
!! $Id: trcsms_pisces.F90 15459 2021-10-29 08:19:18Z cetlod $
!! Software governed by the CeCILL license (see ./LICENSE)
!!----------------------------------------------------------------------
CONTAINS
SUBROUTINE trc_sms_pisces( kt, Kbb, Kmm, Krhs )
!!---------------------------------------------------------------------
!! *** ROUTINE trc_sms_pisces ***
!!
!! ** Purpose : Managment of the call to Biological sources and sinks
!! routines of PISCES/PISCES-QUOTA or LOBSTER bio-model
!!
!!---------------------------------------------------------------------
!
INTEGER, INTENT( in ) :: kt ! ocean time-step index
INTEGER, INTENT( in ) :: Kbb, Kmm, Krhs ! time level index
!!---------------------------------------------------------------------
!
IF( ln_p4z .OR. ln_p5z ) THEN ; CALL p4z_sms( kt, Kbb, Kmm, Krhs ) ! PISCES
ELSE ; CALL p2z_sms( kt, Kmm, Krhs ) ! LOBSTER
ENDIF
!
END SUBROUTINE trc_sms_pisces
!!======================================================================
END MODULE trcsms_pisces