source:
trunk/NEMO/TOP_SRC/SMS/p4zslow.F
@
333
| Last change on this file since 333 was 333, checked in by opalod, 19 years ago | |
|---|---|
|
|
| File size: 1.3 KB | |
| Line | |
|---|---|
| 1 | CDIR$ LIST |
| 2 | SUBROUTINE p4zslow(kt) |
| 3 | #if defined key_passivetrc && defined key_trc_pisces |
| 4 | CCC--------------------------------------------------------------------- |
| 5 | CCC |
| 6 | CCC ROUTINE p4zslow : PISCES MODEL |
| 7 | CCC ***************************** |
| 8 | CCC |
| 9 | CCC PURPOSE. |
| 10 | CCC -------- |
| 11 | CCC *P4ZSLOW* CALL VARIOUS ROUTINES ON A DAILY BASIS |
| 12 | CCC |
| 13 | CCC |
| 14 | CC EXTERNALS. |
| 15 | CC ---------- |
| 16 | CC p4zche, p4zint |
| 17 | CC |
| 18 | CC MODIFICATIONS: |
| 19 | CC -------------- |
| 20 | CC NEW : 2004 O. Aumont |
| 21 | CC---------------------------------------------------------------------- |
| 22 | CC parameters and commons |
| 23 | CC ====================== |
| 24 | CDIR$ nolist |
| 25 | USE oce_trc |
| 26 | USE trp_trc |
| 27 | USE sms |
| 28 | IMPLICIT NONE |
| 29 | CDIR$ list |
| 30 | CC---------------------------------------------------------------------- |
| 31 | CC local declarations |
| 32 | CC ================== |
| 33 | C |
| 34 | INTEGER iyy, imm, idd, kt |
| 35 | C |
| 36 | iyy = ndastp/10000 |
| 37 | imm = (ndastp - iyy*10000)/100 |
| 38 | idd = (ndastp - iyy*10000 - imm*100) |
| 39 | |
| 40 | IF (ndayflxtr /= idd) THEN |
| 41 | ndayflxtr = idd |
| 42 | C |
| 43 | C* 1. COMPUTATION OF THE CHEMICAL CONSTANTS |
| 44 | C ---------------------------------------- |
| 45 | C |
| 46 | CALL p4zche |
| 47 | C |
| 48 | C 2. COMPUTATION OF VARIOUS RATES FOR BIOGEOCHEMISTRY |
| 49 | C --------------------------------------------------- |
| 50 | C |
| 51 | CALL p4zint(kt) |
| 52 | C |
| 53 | ENDIF |
| 54 | C |
| 55 | #endif |
| 56 | C |
| 57 | RETURN |
| 58 | END |
Note: See TracBrowser
for help on using the repository browser.
