source: trunk/NEMO/TOP_SRC/PISCES/trcctl.pisces.h90 @ 935

Last change on this file since 935 was 935, checked in by cetlod, 13 years ago

adding modules for PISCES SMS model, see ticket 141

  • Property svn:executable set to *
File size: 1.4 KB
Line 
1   !!======================================================================
2   !!                         ***  trcctl.cfc.h90  ***
3   !! TOP :   Control of CFC chemical model
4   !!======================================================================
5   !!----------------------------------------------------------------------
6   !! History :   1.0  !  2005-10 (C. Ethe) assign a parameter to name individual tracers
7   !!----------------------------------------------------------------------
8   !!----------------------------------------------------------------------
9   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)
10   !! $Id: trcctl.pisces.h90 772 2007-12-17 11:59:33Z gm $
11   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
12   !!----------------------------------------------------------------------
13
14      IF(lwp) WRITE(numout,*)
15      IF(lwp) WRITE(numout,*) ' use PISCES biological model '
16
17   ! Check number of tracers
18   ! -----------------------
19#if  defined key_kriest
20      IF( jp_pisces /= 23) THEN
21#else
22      IF( jp_pisces /= 24) THEN
23#endif
24          IF (lwp) THEN
25              WRITE (numout,*) ' ===>>>> : w a r n i n g '
26              WRITE (numout,*) ' =======   ============= '
27              WRITE (numout,*)                               &
28              &   ' STOP, change jp_pisces',               &
29              &   ' in parameter.passivetrc.pisces.h ' 
30          END IF
31          STOP 'TRC_CTL'
32      END IF
33     
Note: See TracBrowser for help on using the repository browser.