source:
trunk/NEMO/TOP_SRC/SMS/p4zsink.F
@
700
Last change on this file since 700 was 699, checked in by smasson, 17 years ago | |
---|---|
|
|
File size: 1.3 KB |
Rev | Line | |
---|---|---|
[186] | 1 | SUBROUTINE p4zsink |
2 | #if defined key_passivetrc && defined key_trc_pisces | |
3 | CCC--------------------------------------------------------------------- | |
4 | CCC | |
5 | CCC ROUTINE p4zsink : PISCES MODEL | |
6 | CCC ****************************** | |
7 | CCC | |
8 | CCC PURPOSE : | |
9 | CCC --------- | |
10 | CCC Compute vertical flux of particulate matter due to | |
11 | CCC gravitational sinking | |
12 | CCC | |
13 | CC INPUT : | |
14 | CC ----- | |
15 | CC common | |
16 | CC all the common defined in opa | |
17 | CC | |
18 | CC | |
19 | CC OUTPUT : : no | |
20 | CC ------ | |
21 | CC | |
22 | CC EXTERNAL : | |
23 | CC -------- | |
24 | CC p4zsink2 | |
25 | CC | |
26 | CC MODIFICATIONS: | |
27 | CC -------------- | |
28 | CC original : 2004 - O. Aumont | |
29 | CC---------------------------------------------------------------------- | |
[699] | 30 | |
31 | CC---------------------------------------------------------------------- | |
32 | CC TOP 1.0 , LOCEAN-IPSL (2005) | |
33 | CC $Id$ | |
34 | CC This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt | |
35 | CC---------------------------------------------------------------------- | |
36 | ||
[186] | 37 | CC parameters and commons |
38 | CC ====================== | |
39 | CDIR$ NOLIST | |
40 | USE oce_trc | |
41 | USE trp_trc | |
42 | USE sms | |
43 | IMPLICIT NONE | |
[339] | 44 | #include "domzgr_substitute.h90" |
45 | ||
[617] | 46 | #if defined key_trc_kriest |
[339] | 47 | |
[617] | 48 | # include "p4zsink.kriest.h" |
[186] | 49 | |
[617] | 50 | #else |
[186] | 51 | |
[617] | 52 | # include "p4zsink.std.h" |
[186] | 53 | |
[617] | 54 | #endif |
[186] | 55 | |
56 | #endif | |
57 | RETURN | |
58 | END |
Note: See TracBrowser
for help on using the repository browser.