source:
trunk/NEMO/OPA_SRC/trc_oce.F90
@
765
Last change on this file since 765 was 719, checked in by ctlod, 17 years ago | |
---|---|
|
|
File size: 1.3 KB |
Rev | Line | |
---|---|---|
[187] | 1 | MODULE 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 | !!---------------------------------------------------------------------- | |
[189] | 9 | #if defined key_passivetrc && defined key_trc_pisces |
[187] | 10 | !!---------------------------------------------------------------------- |
[247] | 11 | !! OPA 9.0 , LOCEAN-IPSL (2005) |
[719] | 12 | !! $Header$ |
[247] | 13 | !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt |
[189] | 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 | !!---------------------------------------------------------------------- | |
[187] | 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 | |
[189] | 27 | #endif |
[187] | 28 | |
29 | END MODULE trc_oce |
Note: See TracBrowser
for help on using the repository browser.