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.
trc_oce.F90 in trunk/NEMO/OPA_SRC – NEMO

source: trunk/NEMO/OPA_SRC/trc_oce.F90 @ 1057

Last change on this file since 1057 was 923, checked in by cetlod, 16 years ago

key_passivetrc to key_top, see ticket:136

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.3 KB
Line 
1MODULE trc_oce
2   !!======================================================================
3   !!                      ***  MODULE  trc_oce  ***
4   !! Ocean passive tracer  :  share SMS/Ocean variables
5   !!======================================================================
6   !! History :
7   !!   9.0  !  04-03  (C. Ethe)  F90: Free form and module
8   !!----------------------------------------------------------------------
9#if defined key_top && defined key_pisces
10   !!----------------------------------------------------------------------
11   !!  OPA 9.0 , LOCEAN-IPSL (2005)
12   !! $Header$
13   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
14   !!----------------------------------------------------------------------
15   USE sms , ONLY :  &
16      etot3    =>   etot3   !!:  Biological fluxes for light
17   !! Shared module variables
18   LOGICAL, PUBLIC, PARAMETER ::   lk_qsr_sms = .TRUE. 
19#else
20   !!----------------------------------------------------------------------
21   !! Default option                         No Biological fluxes for light         
22   !!----------------------------------------------------------------------
23   USE par_oce
24   LOGICAL, PUBLIC, PARAMETER ::   lk_qsr_sms = .FALSE. 
25   REAL(wp), PUBLIC , DIMENSION (jpi,jpj,jpk) :: &
26      etot3
27#endif
28
29END MODULE trc_oce
Note: See TracBrowser for help on using the repository browser.