source: branches/NERC/dev_r5107_NOC_MEDUSA/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcctl_idtra.F90 @ 5707

Last change on this file since 5707 was 5707, checked in by acc, 5 years ago

JPALM —25-08-2015 — add MEDUSA in the branch. MEDUSA version already up-to-date with this trunk revision

File size: 3.4 KB
Line 
1MODULE trcctl_idtra
2   !!======================================================================
3   !!                         ***  trcctl.idtra.F90  ***
4   !! TOP :                Control of IDEAL-TRA chemical model
5   !!======================================================================
6   !!----------------------------------------------------------------------
7   !! History :   1.0  !  2005-10 (C. Ethe) assign a parameter to name individual tracers
8   !!----------------------------------------------------------------------
9
10#if defined key_idtra
11
12   USE oce_trc
13   USE trc
14
15
16   IMPLICIT NONE
17   PRIVATE
18
19   PUBLIC trc_ctl_idtra      ! called by ???
20
21   !!----------------------------------------------------------------------
22   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)
23   !! $Id: trcctl_idtra.F90 1255 2009-01-13 10:20:17Z cetlod $
24   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
25   !!----------------------------------------------------------------------
26
27CONTAINS
28
29   SUBROUTINE trc_ctl_idtra
30      !!----------------------------------------------------------------------
31      !!                     ***  ROUTINE trc_ctl_idtra  ***
32      !!
33      !! ** Purpose :   control the cpp options, namelist and files
34      !!----------------------------------------------------------------------
35      INTEGER :: jl, jn
36
37      IF(lwp) THEN
38          WRITE(numout,*) ' IDEAL-TRA Model '
39          WRITE(numout,*) ' '
40      ENDIF
41
42      ! Check number of tracers
43      ! -----------------------
44      IF( jp_idtra > 5) THEN
45          IF(lwp) THEN
46              WRITE (numout,*) ' ===>>>> : w a r n i n g '
47              WRITE (numout,*) ' =======   ============= '
48              WRITE (numout,*)                             &
49              &   ' STOP, change jp_idtra to 1 in par_IDEAL-TRA module '
50          END IF
51          STOP 'TRC_CTL'
52      END IF
53
54      ! Check tracer names
55      ! ------------------
56      IF ( ctrcnm(jpidtra) /= 'Ideal-Tracer' ) THEN
57            ctrcnm(jpidtra) = 'Ideal-Tracer'
58            ctrcln(jpidtra) = 'Ideal-Tracer concentration'
59      ENDIF
60
61      IF(lwp) THEN
62         WRITE (numout,*) ' ===>>>> : w a r n i n g '
63         WRITE (numout,*) ' =======   ============= '
64         WRITE (numout,*) ' we force tracer names'
65         DO jl = 1, jp_idtra
66            jn = jp_idtra0 + jl - 1
67            WRITE(numout,*) ' tracer nb: ',jn,' name = ',ctrcnm(jn), ctrcln(jn)
68         END DO
69         WRITE(numout,*) ' '
70      ENDIF
71
72
73      ! Check tracer units
74      ! ------------------
75      DO jl = 1, jp_idtra
76         jn = jp_idtra0 + jl - 1
77        IF( ctrcun(jn) /= 'unit' ) THEN
78            ctrcun(jn) = 'unit'
79            IF(lwp) THEN
80               WRITE (numout,*) ' ===>>>> : w a r n i n g '
81               WRITE (numout,*) ' =======   ============= '
82               WRITE (numout,*) ' we force tracer unit'
83               WRITE(numout,*) ' tracer  ',ctrcnm(jn), 'UNIT= ',ctrcun(jn)
84               WRITE(numout,*) ' '
85            ENDIF
86         ENDIF
87      END DO
88      !
89   END SUBROUTINE trc_ctl_idtra
90
91#else
92   !!----------------------------------------------------------------------
93   !!  Empty module :                                                No IDEAL-TRA
94   !!----------------------------------------------------------------------
95CONTAINS
96   SUBROUTINE trc_ctl_idtra                      ! Dummy routine
97   END SUBROUTINE trc_ctl_idtra
98#endif
99
100   !!======================================================================
101END MODULE trcctl_idtra
102
103
104
105
Note: See TracBrowser for help on using the repository browser.