source: branches/dev_001_GM/NEMO/TOP_SRC/trcini.F90 @ 766

Last change on this file since 766 was 766, checked in by gm, 13 years ago

dev_001_GM - create 1 trcini_ module by trc model (CFC, LOBSTER, PISCES..) - never compiled

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.7 KB
Line 
1MODULE 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   !!----------------------------------------------------------------------
10   !!   trc_ini :   Initialization for passive tracer
11   !!----------------------------------------------------------------------
12   USE par_trc         ! TOP parameters
13   USE trcini_cfc      ! CFC     initialisation
14   USE trcini_lobster  ! LOBSTER initialisation
15   USE trcini_pisces   ! PISCES  initialisation
16   USE trcini_my_trc   ! MY_TRC  initialisation
17
18   IMPLICIT NONE
19   PRIVATE
20
21   PUBLIC   trc_ini   ! called by ???
22
23   !!----------------------------------------------------------------------
24   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)
25   !! $Header:$
26   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
27   !!----------------------------------------------------------------------
28
29CONTAINS
30
31   SUBROUTINE trc_ini
32      !!-------------------------------------------------------------------
33      !!                    ***  ROUTINE trc_ini  ***
34      !!             
35      !! ** Purpose :   Initialization of passive tracer to zero
36      !!
37      !! ** Method  :   call the initialisation of each defined tracer
38      !!             model (LOBSTER, PISCES, CFC, MY_TRC)
39      !!-------------------------------------------------------------------
40
41      IF(lwp) WRITE(numout,*)
42      IF(lwp) WRITE(numout,*) 'trc_ini : initial set up of the tracer models'
43      IF(lwp) WRITE(numout,*) '~~~~~~~'
44      !
45      IF( lk_trc_lobster ) THEN   ;   CALL trc_ini_lobster      ! LOBSTER bio-model
46      ELSE                        ;   IF(lwp) WRITE(numout,*) '          LOBSTER not used'
47      ENDIF
48
49      IF( lk_trc_pisces  ) THEN   ;   CALL trc_init_pisces      ! PISCES  bio-model
50      ELSE                        ;   IF(lwp) WRITE(numout,*) '          PISCES not used'
51      ENDIF
52
53      IF( lk_trc_cfc     ) THEN   ;   CALL trc_init_cfc         ! CFC     tracers
54      ELSE                        ;   IF(lwp) WRITE(numout,*) '          CFC not used'
55      ENDIF
56
57      IF( lk_trc_my_trc  ) THEN   ;   CALL trc_init_my_trc      ! MY_TRC  tracers
58      ELSE                        ;   IF(lwp) WRITE(numout,*) '          MY_TRC not used'
59      ENDIF
60      !
61   END SUBROUTINE trc_ini
62
63   !!======================================================================
64END MODULE trcini
Note: See TracBrowser for help on using the repository browser.