[247] | 1 | |
---|
| 2 | CCC $Header$ |
---|
| 3 | CCC TOP 1.0 , LOCEAN-IPSL (2005) |
---|
| 4 | C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt |
---|
| 5 | C --------------------------------------------------------------------------- |
---|
[186] | 6 | C $Id$ |
---|
| 7 | CCC |
---|
| 8 | CCC trclsm.age.h |
---|
| 9 | CCC ********************** |
---|
| 10 | CCC |
---|
| 11 | CCC PURPOSE : |
---|
| 12 | CCC --------- |
---|
| 13 | CCC READ the specific NAMELIST for AGE TRACER model |
---|
| 14 | CCC |
---|
| 15 | CC METHOD : : no |
---|
| 16 | CC ------- |
---|
| 17 | CC |
---|
| 18 | CC INPUT : |
---|
| 19 | CC ----- |
---|
| 20 | CC the namelist FILE ( UNIT numnat ) : |
---|
| 21 | CC &natage : biological parameters |
---|
| 22 | CC |
---|
| 23 | CC OUTPUT : |
---|
| 24 | CC ------ |
---|
| 25 | CC COMMON : |
---|
| 26 | CC /cotage/ : biological parameters |
---|
| 27 | CC |
---|
| 28 | CC WORKSPACE : : no |
---|
| 29 | CC --------- |
---|
| 30 | CC |
---|
| 31 | CC MODIFICATIONS: |
---|
| 32 | CC -------------- |
---|
| 33 | CC original : 02-05 O. Aumont |
---|
| 34 | CC---------------------------------------------------------------------- |
---|
| 35 | CDIR$ LIST |
---|
| 36 | CC---------------------------------------------------------------------- |
---|
| 37 | CC local declarations |
---|
| 38 | CC ================== |
---|
| 39 | |
---|
| 40 | #if defined key_passivetrc && defined key_trc_age |
---|
| 41 | INTEGER ji |
---|
| 42 | CHARACTER*32 clname |
---|
| 43 | |
---|
| 44 | CC |
---|
| 45 | CCC--------------------------------------------------------------------- |
---|
| 46 | CCC OPA8, LODYC (15/11/96) |
---|
| 47 | CCC--------------------------------------------------------------------- |
---|
| 48 | C |
---|
| 49 | C 0. initializations |
---|
| 50 | C ------------------ |
---|
| 51 | C |
---|
| 52 | namelist/natage/tauage1,tauage2 |
---|
| 53 | |
---|
| 54 | |
---|
| 55 | IF(lwp) THEN |
---|
| 56 | WRITE(numout,*) ' ' |
---|
| 57 | WRITE(numout,*) ' ROUTINE trclsm' |
---|
| 58 | WRITE(numout,*) ' **************' |
---|
| 59 | WRITE(numout,*) ' ' |
---|
| 60 | WRITE(numout,*) ' namelist for age tracer model' |
---|
| 61 | WRITE(numout,*) ' ***************************' |
---|
| 62 | WRITE(numout,*) ' ' |
---|
| 63 | ENDIF |
---|
| 64 | C |
---|
| 65 | numnat=80 |
---|
| 66 | clname ='namelist_age' |
---|
| 67 | OPEN( numnat, FILE= clname, FORM='formatted', STATUS = 'old') |
---|
| 68 | |
---|
| 69 | |
---|
| 70 | C |
---|
| 71 | C |
---|
| 72 | C |
---|
| 73 | C 1.4 namelist natage : restoring time constant |
---|
| 74 | C |
---|
| 75 | tauage1 = 7. |
---|
| 76 | tauage2 = 1. |
---|
| 77 | C |
---|
| 78 | C |
---|
| 79 | READ(numnat,natage) |
---|
| 80 | C |
---|
| 81 | IF(lwp) THEN |
---|
| 82 | WRITE(numout,*) 'natage' |
---|
| 83 | WRITE(numout,*) ' ' |
---|
| 84 | WRITE(numout,*) |
---|
| 85 | $ ' restoring time constant tauage1 =', tauage1 |
---|
| 86 | WRITE(numout,*) |
---|
| 87 | $ ' incrementation constant tauage2 =', tauage2 |
---|
| 88 | ENDIF |
---|
| 89 | C |
---|
| 90 | #else |
---|
| 91 | C |
---|
| 92 | C no passive tracers |
---|
| 93 | C |
---|
| 94 | #endif |
---|