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

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

dev_001_GM - Style only addition in TOP F90 h90 routines

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 4.3 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#if defined key_passivetrc
11   !!----------------------------------------------------------------------
12   !!   'key_passivetrc'                                    Passive tracers
13   !!----------------------------------------------------------------------
14   !!   trc_ini :   Initialization for passive tracer
15   !!----------------------------------------------------------------------
16   USE oce_trc
17   USE trc
18   USE sms
19   USE lib_mpp
20   USE lbclnk
21
22   IMPLICIT NONE
23   PRIVATE
24
25   PUBLIC   trc_ini   ! called by ???
26
27# if defined key_trc_lobster1
28   !!----------------------------------------------------------------------
29   !!   'key_trc_lobster1'                        LOBSTER1 biological model 
30   !!----------------------------------------------------------------------
31#  include "trcini.lobster1.h90"
32
33# elif defined key_trc_pisces
34   !!----------------------------------------------------------------------
35   !!   'key_trc_pisces'                            PISCES biological model                 
36   !!----------------------------------------------------------------------
37#  include "trcini.pisces.h90"
38
39# elif defined key_cfc
40   !!----------------------------------------------------------------------
41   !!   'key_cfc  '                                          CFC model                 
42   !!----------------------------------------------------------------------
43#  include "trcini.cfc.h90"
44
45# else
46   !!----------------------------------------------------------------------
47   !!   Default option                               
48   !!----------------------------------------------------------------------
49   !!----------------------------------------------------------------------
50   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)
51   !! $Header:$
52   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
53   !!----------------------------------------------------------------------
54
55CONTAINS
56
57   SUBROUTINE trc_ini
58      !!-------------------------------------------------------------------
59      !!                    ***  ROUTINE trc_ini  ***
60      !!             
61      !! ** Purpose :   Initialization of all passive tracer to zero
62      !!              (default case)
63      !!-------------------------------------------------------------------
64      INTEGER ::   ji ,jj ,jk ,jn, jl        ! dummy loop indices 
65      !!-------------------------------------------------------------------
66
67      IF(lwp) WRITE(numout,*)
68      IF(lwp) WRITE(numout,*) 'trc_ini : initial set up of the passive tracers'
69      IF(lwp) WRITE(numout,*) '~~~~~~~'
70
71      ! initialization of passives tracers field
72      ! ----------------------------------------
73      DO jn = 1, jptra
74         trn(:,:,:,jn) = 0.e0
75         tra(:,:,:,jn) = 0.e0
76      END DO
77
78#  if defined key_trc_diaadd
79      ! initialization of output 2d and 3d arrays
80      DO jn = 1, jpdia2d
81         trc2d(:,:,jn) = 0.e0
82      END DO
83      DO jn = 1, jpdia3d
84         trc3d(:,:,:,jn) = 0.e0
85      END DO
86#  endif
87
88#  if defined key_trc_diabio
89      ! initialization of biological trends
90      DO jn = 1, jpdiabio
91         trbio(:,:,:,jn) = 0.e0
92      END DO
93#  endif
94
95#  if defined key_trc_diatrd
96      ! initialization of tracer trends
97      DO jl = 1, jpdiatrc
98         DO jn = 1, jptra
99            IF( luttrd(jn) )   trtrd(:,:,:,ikeep(jn),jl) = 0.e0
100         END DO
101      END DO
102#  endif     
103      !
104   END SUBROUTINE trc_ini
105
106# endif
107
108#else
109   !!----------------------------------------------------------------------
110   !!   Dummy module :                      NO passive tracer
111   !!----------------------------------------------------------------------
112CONTAINS
113   SUBROUTINE trc_ini              ! Empty routine
114   END SUBROUTINE trc_ini
115#endif
116
117   !!======================================================================
118END MODULE trcini
Note: See TracBrowser for help on using the repository browser.