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.
trcctl.lobster1.h90 in trunk/NEMO/TOP_SRC/SMS – NEMO

source: trunk/NEMO/TOP_SRC/SMS/trcctl.lobster1.h90 @ 719

Last change on this file since 719 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: 3.0 KB
Line 
1!!----------------------------------------------------------------------
2!!  TOP 1.0,  LOCEAN-IPSL (2005)
3!! $Header$
4!! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
5!!----------------------------------------------------------------------
6!!!
7!!! Modifications:
8!!! --------------
9!!!    00-12 (E. Kestenare):
10!!!           assign a parameter to name individual tracers
11!!!
12
13#if defined key_trc_lobster1
14      IF(lwp) THEN
15          WRITE(numout,*) ' use LOBSTER1 biological model '
16          WRITE(numout,*) ' '
17      ENDIF
18
19! Check number of tracers
20! -----------------------
21      IF (jptra /= 6) THEN
22          IF (lwp) THEN
23              WRITE (numout,*) ' ===>>>> : w a r n i n g '
24              WRITE (numout,*) ' =======   ============= '
25              WRITE (numout,*)                             &
26              &   ' STOP, change jptra to 6 in '           &
27              &   ,'parameter.passivetrc.lobster1.h ' 
28          END IF
29          STOP 'TRC_CTL'
30      END IF
31
32! Check tracer names
33! ------------------
34      IF (    ctrcnm(jpdet) /= 'DET' .OR. ctrcnm(jpzoo) /= 'ZOO'     &
35         & .OR. ctrcnm(jpphy) /= 'PHY' .OR. ctrcnm(jpno3) /= 'NO3'   &
36         & .OR. ctrcnm(jpnh4) /= 'NH4' .OR. ctrcnm(jpdom) /= 'DOM'   &
37         & .OR. ctrcnl(jpdet) /= 'Detritus'                          &
38         & .OR. ctrcnl(jpzoo) /= 'Zooplankton concentration'         &
39         & .OR. ctrcnl(jpphy) /= 'Phytoplankton concentration'       &
40         & .OR. ctrcnl(jpno3) /= 'Nitrate concentration'             &
41         & .OR. ctrcnl(jpnh4) /= 'Ammonium concentration'            &
42         & .OR. ctrcnl(jpdom) /= 'Dissolved organic matter' ) THEN
43          ctrcnm(jpdet)='DET'
44          ctrcnl(jpdet)='Detritus'
45          ctrcnm(jpzoo)='ZOO'
46          ctrcnl(jpzoo)='Zooplankton concentration'
47          ctrcnm(jpphy)='PHY'
48          ctrcnl(jpphy)='Phytoplankton concentration'
49          ctrcnm(jpno3)='NO3'
50          ctrcnl(jpno3)='Nitrate concentration'
51          ctrcnm(jpnh4)='NH4'
52          ctrcnl(jpnh4)='Ammonium concentration'
53          ctrcnm(jpdom)='DOM'
54          ctrcnl(jpdom)='Dissolved organic matter'         
55          IF (lwp) THEN
56              WRITE (numout,*) ' ===>>>> : w a r n i n g '
57              WRITE (numout,*) ' =======   ============= '
58              WRITE (numout,*) ' we force tracer names'
59              DO jn=1,jptra
60                WRITE(numout,*) ' tracer nb: ',jn,' name = ',ctrcnm(jn), ctrcnl(jn)
61              END DO
62              WRITE(numout,*) ' '
63          ENDIF
64      ENDIF
65
66! Check tracer units
67
68      DO jn=1,jptra
69        IF (ctrcun(jn) /= 'mmole-N/m3') THEN
70            ctrcun(jn)='mmole-N/m3'
71            IF (lwp) THEN
72                WRITE (numout,*) ' ===>>>> : w a r n i n g '
73                WRITE (numout,*) ' =======   ============= '
74                WRITE (numout,*) ' we force tracer unit'
75                WRITE(numout,*) ' tracer  ',ctrcnm(jn), 'UNIT= ',ctrcun(jn)
76                WRITE(numout,*) ' '
77            ENDIF
78        ENDIF
79      END DO             
80#endif
Note: See TracBrowser for help on using the repository browser.