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 | |
| 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 | |
| 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 | |
| 37 | CC parameters and commons |
| 38 | CC ====================== |
| 39 | CDIR$ NOLIST |
| 40 | USE oce_trc |
| 41 | USE trp_trc |
| 42 | USE sms |
| 43 | IMPLICIT NONE |
| 44 | #include "domzgr_substitute.h90" |
| 45 | |
| 46 | #if defined key_trc_kriest |
| 47 | |
| 48 | # include "p4zsink.kriest.h" |
| 49 | |
| 50 | #else |
| 51 | |
| 52 | # include "p4zsink.std.h" |
| 53 | |
| 54 | #endif |
| 55 | |
| 56 | #endif |
| 57 | RETURN |
| 58 | END |
Note: See TracBrowser
for help on using the repository browser.
