1 | MODULE trcini |
---|
2 | !!====================================================================== |
---|
3 | !! *** MODULE trcini *** |
---|
4 | !! TOP : Manage the passive tracer initialization |
---|
5 | !!====================================================================== |
---|
6 | !! History : - ! 2000-04 (O. Aumont, M.A. Foujols) original code |
---|
7 | !! 1.0 ! 2005-03 (O. Aumont, A. El Moussaoui) F90 |
---|
8 | !! - ! 2005-10 (C. Ethe) Module |
---|
9 | !! 2.0 ! 2007-12 (C. Ethe, G. Madec) re-writing |
---|
10 | !!---------------------------------------------------------------------- |
---|
11 | !! trc_ini : Initialization for passive tracer |
---|
12 | !!---------------------------------------------------------------------- |
---|
13 | USE par_trc ! TOP parameters |
---|
14 | USE trcini_cfc ! CFC initialisation |
---|
15 | USE trcini_lobster ! LOBSTER initialisation |
---|
16 | USE trcini_pisces ! PISCES initialisation |
---|
17 | USE trcini_my_trc ! MY_TRC initialisation |
---|
18 | USE in_out_manager ! I/O manager |
---|
19 | |
---|
20 | IMPLICIT NONE |
---|
21 | PRIVATE |
---|
22 | |
---|
23 | PUBLIC trc_ini ! called by ??? |
---|
24 | |
---|
25 | !!---------------------------------------------------------------------- |
---|
26 | !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) |
---|
27 | !! $Header:$ |
---|
28 | !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) |
---|
29 | !!---------------------------------------------------------------------- |
---|
30 | |
---|
31 | CONTAINS |
---|
32 | |
---|
33 | SUBROUTINE trc_ini |
---|
34 | !!------------------------------------------------------------------- |
---|
35 | !! *** ROUTINE trc_ini *** |
---|
36 | !! |
---|
37 | !! ** Purpose : Initialization of passive tracer to zero |
---|
38 | !! |
---|
39 | !! ** Method : call the initialisation of each defined tracer |
---|
40 | !! model (LOBSTER, PISCES, CFC, MY_TRC) |
---|
41 | !!------------------------------------------------------------------- |
---|
42 | ! |
---|
43 | IF(lwp) WRITE(numout,*) |
---|
44 | IF(lwp) WRITE(numout,*) 'trc_ini : initial set up of the tracer models' |
---|
45 | IF(lwp) WRITE(numout,*) '~~~~~~~' |
---|
46 | ! |
---|
47 | IF( lk_lobster ) THEN ; CALL trc_ini_lobster ! LOBSTER bio-model |
---|
48 | ELSE ; IF(lwp) WRITE(numout,*) ' LOBSTER not used' |
---|
49 | ENDIF |
---|
50 | |
---|
51 | IF( lk_pisces ) THEN ; CALL trc_ini_pisces ! PISCES bio-model |
---|
52 | ELSE ; IF(lwp) WRITE(numout,*) ' PISCES not used' |
---|
53 | ENDIF |
---|
54 | |
---|
55 | IF( lk_cfc ) THEN ; CALL trc_ini_cfc ! CFC tracers |
---|
56 | ELSE ; IF(lwp) WRITE(numout,*) ' CFC not used' |
---|
57 | ENDIF |
---|
58 | |
---|
59 | IF( lk_my_trc ) THEN ; CALL trc_ini_my_trc ! MY_TRC tracers |
---|
60 | ELSE ; IF(lwp) WRITE(numout,*) ' MY_TRC not used' |
---|
61 | ENDIF |
---|
62 | ! |
---|
63 | END SUBROUTINE trc_ini |
---|
64 | |
---|
65 | !!====================================================================== |
---|
66 | END MODULE trcini |
---|