source: branches/NERC/dev_r5518_GO6_CO2_cmip/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcctl_medusa.F90 @ 9309

Last change on this file since 9309 was 5726, checked in by jpalmier, 5 years ago

JPALM — 10-09-2015 — add MEDUSA in the branch ; adapted TOP_SRC to MEDUSA ; remove some svn keywords in the branch

File size: 2.9 KB
Line 
1MODULE trcctl_medusa
2   !!======================================================================
3   !!                         ***  trcctl_medusa.F90  ***
4   !! TOP :                Control of MEDUSA_TRC biogeochemical model
5   !!======================================================================
6   !!----------------------------------------------------------------------
7   !! History :   1.0  !  2000-12 (C. Ethe) assign a parameter to name individual tracers
8   !!              -   !  2008-08  (K. Popova) adaptation for MEDUSA
9   !!              -   !  2008-11  (A. Yool) continuing adaptation for MEDUSA
10   !!              -   !  2010-03  (A. Yool) updated for branch inclusion
11   !!----------------------------------------------------------------------
12
13#if defined key_medusa
14
15   USE oce_trc
16   USE trc
17   USE in_out_manager
18   USE par_medusa
19   
20   IMPLICIT NONE
21   PRIVATE
22
23   PUBLIC trc_ctl_medusa     ! called by ???
24
25
26   !!----------------------------------------------------------------------
27   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)
28   !! $Id$
29   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
30   !!----------------------------------------------------------------------
31
32CONTAINS
33
34   SUBROUTINE trc_ctl_medusa
35      !!----------------------------------------------------------------------
36      !!                     ***  ROUTINE trc_ctl_medusa  ***
37      !!
38      !! ** Purpose :   control the cpp options, namelist and files
39      !!----------------------------------------------------------------------
40
41!      IF(lwp) WRITE(numout,*)
42!      IF(lwp) WRITE(numout,*) 'use MEDUSA biological model  '
43
44! Check number of tracers
45! -----------------------
46# if defined key_roam
47      IF (jp_medusa /= 15) THEN
48          IF (lwp) THEN
49              WRITE (numout,*) ' ===>>>> : W A R N I N G '
50              WRITE (numout,*) ' =======   ============= '
51              WRITE (numout,*)                             &
52              &   ' STOP, change jp_medusa to 15 in '      &
53              &  ,' par_medusa.F90 ' 
54          END IF
55          STOP 'TRC_CTL'
56      END IF 
57# else
58      IF (jp_medusa /= 11) THEN
59          IF (lwp) THEN
60              WRITE (numout,*) ' ===>>>> : W A R N I N G '
61              WRITE (numout,*) ' =======   ============= '
62              WRITE (numout,*)                             &
63              &   ' STOP, change jp_medusa to 11 in '      &
64              &  ,' par_medusa.F90 ' 
65          END IF
66          STOP 'TRC_CTL'
67      END IF 
68# endif
69
70   END SUBROUTINE trc_ctl_medusa
71
72#else
73   !!----------------------------------------------------------------------
74   !!  Empty module :                                            No MEDUSA
75   !!----------------------------------------------------------------------
76CONTAINS
77   SUBROUTINE trc_ctl_medusa               ! Dummy routine
78   END SUBROUTINE trc_ctl_medusa
79#endif
80
81   !!======================================================================
82END MODULE trcctl_medusa
83     
Note: See TracBrowser for help on using the repository browser.