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_medusa.F90 in branches/NERC/dev_r5107_NOC_MEDUSA/NEMOGCM/NEMO/TOP_SRC/MEDUSA – NEMO

source: branches/NERC/dev_r5107_NOC_MEDUSA/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcctl_medusa.F90 @ 5707

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

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

File size: 3.0 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: trcctl_medusa.F90 1162 2008-07-02 09:33:33Z cetlod $
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.