source:
NEMO/trunk/src/TOP/PISCES/trcsms_pisces.F90
@
10223
Last change on this file since 10223 was 10068, checked in by nicolasmartin, 6 years ago | |
---|---|
|
|
File size: 1.9 KB |
Rev | Line | |
---|---|---|
[935] | 1 | MODULE 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 | !!---------------------------------------------------------------------- | |
[3680] | 11 | USE par_pisces |
[7646] | 12 | USE sms_pisces |
[3680] | 13 | USE p4zsms |
14 | USE p2zsms | |
[935] | 15 | |
16 | IMPLICIT NONE | |
17 | PRIVATE | |
18 | ||
19 | PUBLIC trc_sms_pisces ! called in trcsms.F90 | |
20 | !!---------------------------------------------------------------------- | |
[10067] | 21 | !! NEMO/TOP 4.0 , NEMO Consortium (2018) |
[1152] | 22 | !! $Id$ |
[10068] | 23 | !! Software governed by the CeCILL license (see ./LICENSE) |
[935] | 24 | !!---------------------------------------------------------------------- |
25 | CONTAINS | |
26 | ||
27 | SUBROUTINE trc_sms_pisces( kt ) | |
28 | !!--------------------------------------------------------------------- | |
29 | !! *** ROUTINE trc_sms_pisces *** | |
30 | !! | |
31 | !! ** Purpose : Managment of the call to Biological sources and sinks | |
[3680] | 32 | !! routines of PISCES or LOBSTER bio-model |
[935] | 33 | !! |
34 | !!--------------------------------------------------------------------- | |
[2715] | 35 | ! |
[935] | 36 | INTEGER, INTENT( in ) :: kt ! ocean time-step index |
37 | !!--------------------------------------------------------------------- | |
[3294] | 38 | ! |
[7646] | 39 | IF( ln_p4z .OR. ln_p5z ) THEN ; CALL p4z_sms( kt ) ! PISCES |
40 | ELSE ; CALL p2z_sms( kt ) ! LOBSTER | |
[3320] | 41 | ENDIF |
[4147] | 42 | |
[3294] | 43 | ! |
[1287] | 44 | END SUBROUTINE trc_sms_pisces |
[1185] | 45 | |
[935] | 46 | !!====================================================================== |
47 | END MODULE trcsms_pisces |
Note: See TracBrowser
for help on using the repository browser.