New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
trcini.F90 in trunk/NEMO/TOP_SRC – NEMO

source: trunk/NEMO/TOP_SRC/trcini.F90 @ 935

Last change on this file since 935 was 719, checked in by ctlod, 16 years ago

get back to the nemo_v2_3 version for trunk

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 4.1 KB
Line 
1MODULE trcini
2   !!==========================================================================
3   !!                       *** MODULE trcini *** 
4   !! Ocean passive tracers:  Manage the passive tracer initialization
5   !!=========================================================================   
6#if defined key_passivetrc
7   !!----------------------------------------------------------------------
8   !!   trc_ini : Initialization for passive tracer
9   !!----------------------------------------------------------------------
10   !!----------------------------------------------------------------------
11   !!  TOP 1.0,  LOCEAN-IPSL (2005)
12   !! $Header$
13   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
14   !!----------------------------------------------------------------------
15   !! * Modules used
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   !! * Accessibility
26   PUBLIC trc_ini
27
28#if defined key_trc_lobster1
29   !!----------------------------------------------------------------------
30   !!   'key_trc_lobster1'                        LOBSTER1 biological model 
31   !!----------------------------------------------------------------------
32#  include "trcini.lobster1.h90"
33
34#elif defined key_trc_pisces
35   !!----------------------------------------------------------------------
36   !!   'key_trc_pisces'                            PISCES biological model                 
37   !!----------------------------------------------------------------------
38#  include "trcini.pisces.h90"
39
40#elif defined key_cfc
41   !!----------------------------------------------------------------------
42   !!   'key_cfc  '                                          CFC model                 
43   !!----------------------------------------------------------------------
44#  include "trcini.cfc.h90"
45
46#else
47   !!----------------------------------------------------------------------
48   !!   Default option                               
49   !!----------------------------------------------------------------------
50
51CONTAINS
52
53   SUBROUTINE trc_ini
54      !!---------------------------------------------------------------------
55      !!                    ***  ROUTINE trc_ini  ***
56      !!             
57      !! ** Purpose : Initialization for passive tracer
58      !!              for restart or not
59      !!
60      !! History :
61      !!        !  00-04  O. Aumont, M.A. Foujols HAMOCC3 and P3ZD
62      !!   8.5  !  05-03  O.Aumont and A.El Moussaoui  F90
63      !!   9.0  !  05-10  C. Ethe  Modularity
64      !!----------------------------------------------------------------------
65      !! * local declarations
66      INTEGER ::                   & 
67         ji ,jj ,jk ,jn, jl        ! dummy loop indices 
68      !!---------------------------------------------------------------------
69
70
71      !! 1. 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
81      DO jn = 1, jpdia2d
82         trc2d(:,:,jn)=0.e0
83      END DO
84
85      DO jn = 1, jpdia3d
86         trc3d(:,:,:,jn)=0.e0
87      END DO
88#endif
89
90#if defined key_trc_diabio
91      !! initialization of biological trends
92      DO jn=1,jpdiabio
93         trbio(:,:,:,jn) = 0.e0
94      END DO
95#endif
96
97#if defined key_trc_diatrd
98      !! initialization of tracer trends
99      DO jl = 1, jpdiatrc
100         DO jn = 1, jptra
101            IF (luttrd(jn)) trtrd(:,:,:,ikeep(jn),jl) = 0.e0
102         END DO
103      END DO
104#endif     
105
106      IF( lwp ) THEN
107         WRITE(numout,*) ' '
108         WRITE(numout,*) ' trcini: generic initialisation done '
109         WRITE(numout,*) ' '
110      ENDIF
111
112   END SUBROUTINE trc_ini
113
114#endif
115
116#else
117   !!----------------------------------------------------------------------
118   !!   Dummy module :                      NO passive tracer
119   !!----------------------------------------------------------------------
120CONTAINS
121   SUBROUTINE trc_ini              ! Empty routine
122
123   END SUBROUTINE trc_ini
124#endif
125
126   !!======================================================================
127END MODULE trcini
Note: See TracBrowser for help on using the repository browser.