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 |
Line | |
---|---|
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.