source:
trunk/NEMO/TOP_SRC/initrc.F90
@
261
Last change on this file since 261 was 259, checked in by opalod, 19 years ago | |
---|---|
|
|
File size: 2.3 KB |
Rev | Line | |
---|---|---|
[259] | 1 | MODULE initrc |
2 | !!=========================================================================================== | |
3 | !! | |
4 | !! *** MODULE initrc *** | |
5 | !! Initialisation the tracer model | |
6 | !!=========================================================================================== | |
7 | !!---------------------------------------------------------------------- | |
8 | !! * Modules used | |
9 | !! ============== | |
10 | USE oce_trc | |
11 | USE trc | |
12 | USE trcrst | |
13 | USE trcctl | |
14 | USE trclec | |
15 | USE trcdtr | |
16 | USE trcini | |
17 | ||
18 | IMPLICIT NONE | |
19 | PRIVATE | |
20 | ||
21 | ||
22 | !! * Accessibility | |
23 | PUBLIC ini_trc | |
24 | ||
25 | CONTAINS | |
26 | ||
27 | #if defined key_passivetrc | |
28 | ||
29 | SUBROUTINE ini_trc | |
30 | !!--------------------------------------------------------------------- | |
31 | !! | |
32 | !! ROUTINE ini_trc | |
33 | !! ****************** | |
34 | !! | |
35 | !! PURPOSE : | |
36 | !! --------- | |
37 | !! initialize the tracer model | |
38 | !! | |
39 | !! METHOD : | |
40 | !! ------- | |
41 | !! | |
42 | !! | |
43 | !! History: | |
44 | !! ------- | |
45 | !! original : 91-03 () | |
46 | !! additions : 92-01 (C. Levy) | |
47 | !! 05-03 (O. Aumont and A. El Moussaoui) F90 | |
48 | !!---------------------------------------------------------------------- | |
49 | ||
50 | !!--------------------------------------------------------------------- | |
51 | !! OPA.9, 03-2005 | |
52 | !!--------------------------------------------------------------------- | |
53 | ||
54 | !! 0.b PRINT the number of tracer | |
55 | !! ------------------------------ | |
56 | ||
57 | IF(lwp) WRITE(numout,*) ' ' | |
58 | IF(lwp) WRITE(numout,*) ' *** number of passive tracer jptra = ',jptra | |
59 | IF(lwp) WRITE(numout,*) ' ' | |
60 | ||
61 | ! 1. READ passive tracers namelists | |
62 | ! --------------------------------- | |
63 | ||
64 | CALL trc_lec | |
65 | ||
66 | ! 2. control consistency between parameters, cpp key and namelists | |
67 | ! ---------------------------------------------------------------- | |
68 | ||
69 | CALL trc_ctl | |
70 | ||
71 | ! 3. computes some initializations | |
72 | ! -------------------------------- | |
73 | ||
74 | CALL trc_ini | |
75 | ||
76 | ! 4. restart from a FILE (nutrst) | |
77 | ! ---------------------- | |
78 | ||
79 | IF(lrsttr) THEN | |
80 | ||
81 | CALL trc_rst | |
82 | ||
83 | ELSE | |
84 | ||
85 | ! start from anything ELSE | |
86 | ||
87 | CALL trc_dtr | |
88 | ||
89 | ENDIF | |
90 | ||
91 | END SUBROUTINE ini_trc | |
92 | ||
93 | #else | |
94 | SUBROUTINE ini_trc | |
95 | ! no passive tracers | |
96 | END SUBROUTINE ini_trc | |
97 | #endif | |
98 | ||
99 | END MODULE initrc |
Note: See TracBrowser
for help on using the repository browser.