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.
sms.F90 in branches/dev_001_GM/NEMO/TOP_SRC – NEMO

source: branches/dev_001_GM/NEMO/TOP_SRC/sms.F90 @ 772

Last change on this file since 772 was 772, checked in by gm, 16 years ago

dev_001_GM - change the name of cpp key to key_top, key_lobster, key_pisces, key_kriest and the corresponding lk_

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.8 KB
Line 
1MODULE sms
2   !!======================================================================
3   !!                        ***  sms  ***
4   !! passive tracers :   set the passive tracers variables
5   !!======================================================================
6   !! History :    -   !  2004-03  (C. Ethe)  Free form and module
7   !!----------------------------------------------------------------------
8   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)
9   !! $Header:$
10   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
11   !!----------------------------------------------------------------------
12#if defined key_top
13   !!----------------------------------------------------------------------
14   !!   'key_top'                                                TOP models
15   !!----------------------------------------------------------------------
16   USE par_oce
17   USE par_trc
18
19   IMPLICIT NONE
20   PUBLIC
21
22# if defined key_lobster
23   !!----------------------------------------------------------------------
24   !!   'key_lobster'                                     LOBSTER bio-model 
25   !!----------------------------------------------------------------------
26#  include "sms_lobster1.h90"
27
28# elif defined key_pisces
29   !!----------------------------------------------------------------------
30   !!   'key_pisces'                                       PISCES bio-model                 
31   !!----------------------------------------------------------------------
32#  include "sms_pisces.h90"
33
34# endif
35
36#else
37   !!----------------------------------------------------------------------
38   !!  Empty module :                                     No passive tracer
39   !!----------------------------------------------------------------------
40#endif
41
42   !!======================================================================
43END MODULE sms
Note: See TracBrowser for help on using the repository browser.