source:
tags/nemo_v2_2/NEMO/TOP_SRC/SMS/p4zsink.F
@
4310
Last change on this file since 4310 was 617, checked in by opalod, 17 years ago | |
---|---|
|
|
File size: 1.0 KB |
Line | |
---|---|
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---------------------------------------------------------------------- |
30 | CC parameters and commons |
31 | CC ====================== |
32 | CDIR$ NOLIST |
33 | USE oce_trc |
34 | USE trp_trc |
35 | USE sms |
36 | IMPLICIT NONE |
37 | #include "domzgr_substitute.h90" |
38 | |
39 | #if defined key_trc_kriest |
40 | |
41 | # include "p4zsink.kriest.h" |
42 | |
43 | #else |
44 | |
45 | # include "p4zsink.std.h" |
46 | |
47 | #endif |
48 | |
49 | #endif |
50 | RETURN |
51 | END |
Note: See TracBrowser
for help on using the repository browser.