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_pisces.F90 in branches/DEV_r1879_FCM/NEMOGCM/NEMO/TOP_SRC/PISCES – NEMO

source: branches/DEV_r1879_FCM/NEMOGCM/NEMO/TOP_SRC/PISCES/trcctl_pisces.F90 @ 2013

Last change on this file since 2013 was 2013, checked in by smasson, 14 years ago

remove propertie svn:executabe of fortran files in DEV_r1879_FCM

  • Property svn:keywords set to Id
File size: 2.3 KB
Line 
1MODULE trcctl_pisces
2   !!======================================================================
3   !!                         ***  trcctl_pisces.F90  ***
4   !! TOP :                Control of PISCES biogeochemical model
5   !!======================================================================
6   !!----------------------------------------------------------------------
7   !! History :   1.0  !  2000-12 (C. Ethe) assign a parameter to name individual tracers
8   !!----------------------------------------------------------------------
9
10#if defined key_pisces
11
12   USE oce_trc
13   USE trc
14
15
16   IMPLICIT NONE
17   PRIVATE
18
19   PUBLIC trc_ctl_pisces     ! called by ???
20
21
22   !!----------------------------------------------------------------------
23   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)
24   !! $Id$
25   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
26   !!----------------------------------------------------------------------
27
28CONTAINS
29
30   SUBROUTINE trc_ctl_pisces
31      !!----------------------------------------------------------------------
32      !!                     ***  ROUTINE trc_ctl_pisces  ***
33      !!
34      !! ** Purpose :   control the cpp options, namelist and files
35      !!----------------------------------------------------------------------
36
37      IF(lwp) WRITE(numout,*)
38      IF(lwp) WRITE(numout,*) ' use PISCES biological model '
39
40   ! Check number of tracers
41   ! -----------------------
42#if  defined key_kriest
43      IF( jp_pisces /= 23) THEN 
44#else
45      IF( jp_pisces /= 24) THEN
46#endif
47          IF (lwp) THEN
48              WRITE (numout,*) ' ===>>>> : w a r n i n g '
49              WRITE (numout,*) ' =======   ============= '
50              WRITE (numout,*)                               &
51              &   ' STOP, change jp_pisces',               & 
52              &   ' in par_pisces.F90' 
53          END IF
54          STOP 'TRC_CTL'
55      END IF
56
57   END SUBROUTINE trc_ctl_pisces
58
59#else
60   !!----------------------------------------------------------------------
61   !!  Empty module :                                            No PISCES
62   !!----------------------------------------------------------------------
63CONTAINS
64   SUBROUTINE trc_ctl_pisces                 ! Dummy routine
65   END SUBROUTINE trc_ctl_pisces
66#endif
67
68   !!======================================================================
69END MODULE trcctl_pisces
Note: See TracBrowser for help on using the repository browser.