source:
trunk/NEMO/TOP_SRC/trclsm.F
@
186
| Last change on this file since 186 was 186, checked in by opalod, 19 years ago | |
|---|---|
|
|
| File size: 1.3 KB | |
| Line | |
|---|---|
| 1 | C $Id$ |
| 2 | CDIR$ LIST |
| 3 | SUBROUTINE trclsm |
| 4 | CCC--------------------------------------------------------------------- |
| 5 | CCC |
| 6 | CCC ROUTINE trclsm |
| 7 | CCC ****************** |
| 8 | CCC |
| 9 | CCC PURPOSE : |
| 10 | CCC --------- |
| 11 | CCC READS specific NAMELIST for sms terms |
| 12 | CCC |
| 13 | CC METHOD : : no |
| 14 | CC ------- |
| 15 | CC |
| 16 | CC INPUT : |
| 17 | CC ----- |
| 18 | CC |
| 19 | CC OUTPUT : |
| 20 | CC ------ |
| 21 | CC |
| 22 | CC WORKSPACE : : no |
| 23 | CC --------- |
| 24 | CC |
| 25 | CC MODIFICATIONS: |
| 26 | CC -------------- |
| 27 | CC original : 99-10 (M.A. Foujols, M. Levy) passive tracer |
| 28 | CC 00-04 (O. Aumont, M.A. Foujols) HAMOCC3 and P3ZD |
| 29 | CC 02-05 (O. Aumont) AGE TRACER |
| 30 | CC---------------------------------------------------------------------- |
| 31 | CC parameters and commons |
| 32 | CC ====================== |
| 33 | CDIR$ NOLIST |
| 34 | USE oce_trc |
| 35 | USE trc |
| 36 | USE sms |
| 37 | IMPLICIT NONE |
| 38 | CDIR$ LIST |
| 39 | |
| 40 | #if defined key_passivetrc |
| 41 | |
| 42 | # if defined key_trc_npzd |
| 43 | # include "trclsm.npzd.h" |
| 44 | # elif defined key_trc_lobster1 |
| 45 | # include "trclsm.lobster1.h" |
| 46 | # elif defined key_trc_hamocc3 |
| 47 | # include "trclsm.hamocc3.h" |
| 48 | # elif defined key_trc_age |
| 49 | # include "trclsm.age.h" |
| 50 | # elif defined key_trc_pisces |
| 51 | # include "trclsm.pisces.h" |
| 52 | # else |
| 53 | C user can define here his own sms namelist |
| 54 | # endif |
| 55 | #else |
| 56 | C |
| 57 | C no passive tracers |
| 58 | C |
| 59 | #endif |
| 60 | RETURN |
| 61 | END |
Note: See TracBrowser
for help on using the repository browser.
