27 |
#ifdef ALLOW_EXF |
#ifdef ALLOW_EXF |
28 |
# include "exf_param.h" |
# include "exf_param.h" |
29 |
#endif |
#endif |
30 |
|
#ifdef ALLOW_PTRACERS.h |
31 |
|
# include "PARAMS.h" |
32 |
|
# include "PTRACERS_SIZE.h" |
33 |
|
# include "PTRACERS.h" |
34 |
|
# include "OBCS_PTRACERS.h" |
35 |
|
#endif /* ALLOW_PTRACERS */ |
36 |
|
|
37 |
c == routine arguments == |
c == routine arguments == |
38 |
|
|
44 |
|
|
45 |
c == local variables == |
c == local variables == |
46 |
|
|
47 |
|
#ifdef ALLOW_EXF |
48 |
logical first, changed |
logical first, changed |
49 |
integer count0, count1 |
integer count0, count1 |
50 |
integer year0, year1 |
integer year0, year1 |
51 |
_RL fac |
_RL fac |
52 |
|
#ifdef ALLOW_PTRACERS |
53 |
|
integer iTracer, i,j,k |
54 |
|
#endif /* ALLOW_PTRACERS */ |
55 |
|
#endif /* ALLOW_EXF */ |
56 |
|
|
57 |
c == end of interface == |
c == end of interface == |
58 |
|
|
62 |
I obcsNstartdate, obcsNperiod |
I obcsNstartdate, obcsNperiod |
63 |
I , obcsNstartdate1, obcsNstartdate2 |
I , obcsNstartdate1, obcsNstartdate2 |
64 |
I , .false. |
I , .false. |
65 |
O , fac, first, changed, |
O , fac, first, changed |
66 |
O , count0, count1, year0, year1 |
O , count0, count1, year0, year1 |
67 |
I , mycurrenttime, mycurrentiter, mythid |
I , mycurrenttime, mycurrentiter, mythid |
68 |
& ) |
& ) |
79 |
call exf_set_obcs_xz( OBNs, OBNs0, OBNs1, OBNsfile, 's' |
call exf_set_obcs_xz( OBNs, OBNs0, OBNs1, OBNsfile, 's' |
80 |
I , fac, first, changed, count0, count1 |
I , fac, first, changed, count0, count1 |
81 |
I , mycurrenttime, mycurrentiter, mythid ) |
I , mycurrenttime, mycurrentiter, mythid ) |
82 |
|
#ifdef ALLOW_PTRACERS |
83 |
|
if ( usePTRACERS ) then |
84 |
|
do itracer = 1, PTRACERS_numInUse |
85 |
|
call exf_set_obcs_xz( OBNptr (1-Olx,1,1,1,iTracer) |
86 |
|
I , OBNptr0(1-Olx,1,1,1,iTracer) |
87 |
|
I , OBNptr1(1-Olx,1,1,1,iTracer) |
88 |
|
I , OBNptrFile(iTracer), 's' |
89 |
|
I , fac, first, changed, count0, count1 |
90 |
|
I , mycurrenttime, mycurrentiter, mythid ) |
91 |
|
enddo |
92 |
|
endif |
93 |
|
#endif /* ALLOW_PTRACERS */ |
94 |
#endif |
#endif |
95 |
|
|
96 |
#ifdef ALLOW_OBCS_SOUTH |
#ifdef ALLOW_OBCS_SOUTH |
116 |
I , fac, first, changed, count0, count1 |
I , fac, first, changed, count0, count1 |
117 |
I , mycurrenttime, mycurrentiter, mythid ) |
I , mycurrenttime, mycurrentiter, mythid ) |
118 |
|
|
119 |
|
#ifdef ALLOW_PTRACERS |
120 |
|
if ( usePTRACERS ) then |
121 |
|
do itracer = 1, PTRACERS_numInUse |
122 |
|
call exf_set_obcs_xz( OBSptr (1-Olx,1,1,1,iTracer) |
123 |
|
I , OBSptr0(1-Olx,1,1,1,iTracer) |
124 |
|
I , OBSptr1(1-Olx,1,1,1,iTracer) |
125 |
|
I , OBSptrFile(iTracer), 's' |
126 |
|
I , fac, first, changed, count0, count1 |
127 |
|
I , mycurrenttime, mycurrentiter, mythid ) |
128 |
|
enddo |
129 |
|
endif |
130 |
|
#endif /* ALLOW_PTRACERS */ |
131 |
#endif |
#endif |
132 |
|
|
133 |
#ifdef ALLOW_OBCS_EAST |
#ifdef ALLOW_OBCS_EAST |
152 |
call exf_set_obcs_yz( OBEs, OBEs0, OBEs1, OBEsfile, 's' |
call exf_set_obcs_yz( OBEs, OBEs0, OBEs1, OBEsfile, 's' |
153 |
I , fac, first, changed, count0, count1 |
I , fac, first, changed, count0, count1 |
154 |
I , mycurrenttime, mycurrentiter, mythid ) |
I , mycurrenttime, mycurrentiter, mythid ) |
155 |
|
#ifdef ALLOW_PTRACERS |
156 |
|
if ( usePTRACERS ) then |
157 |
|
do itracer = 1, PTRACERS_numInUse |
158 |
|
call exf_set_obcs_yz( OBEptr (1-Oly,1,1,1,iTracer) |
159 |
|
I , OBEptr0(1-Oly,1,1,1,iTracer) |
160 |
|
I , OBEptr1(1-Oly,1,1,1,iTracer) |
161 |
|
I , OBEptrFile(iTracer), 's' |
162 |
|
I , fac, first, changed, count0, count1 |
163 |
|
I , mycurrenttime, mycurrentiter, mythid ) |
164 |
|
enddo |
165 |
|
endif |
166 |
|
#endif /* ALLOW_PTRACERS */ |
167 |
#endif |
#endif |
168 |
|
|
169 |
#ifdef ALLOW_OBCS_WEST |
#ifdef ALLOW_OBCS_WEST |
188 |
call exf_set_obcs_yz( OBWs, OBWs0, OBWs1, OBWsfile, 's' |
call exf_set_obcs_yz( OBWs, OBWs0, OBWs1, OBWsfile, 's' |
189 |
I , fac, first, changed, count0, count1 |
I , fac, first, changed, count0, count1 |
190 |
I , mycurrenttime, mycurrentiter, mythid ) |
I , mycurrenttime, mycurrentiter, mythid ) |
191 |
|
#ifdef ALLOW_PTRACERS |
192 |
|
if ( usePTRACERS ) then |
193 |
|
do itracer = 1, PTRACERS_numInUse |
194 |
|
call exf_set_obcs_yz( OBWptr (1-Oly,1,1,1,iTracer) |
195 |
|
I , OBWptr0(1-Oly,1,1,1,iTracer) |
196 |
|
I , OBWptr1(1-Oly,1,1,1,iTracer) |
197 |
|
I , OBWptrFile(iTracer), 's' |
198 |
|
I , fac, first, changed, count0, count1 |
199 |
|
I , mycurrenttime, mycurrentiter, mythid ) |
200 |
|
enddo |
201 |
|
endif |
202 |
|
#endif /* ALLOW_PTRACERS */ |
203 |
#endif |
#endif |
204 |
|
|
205 |
#ifdef ALLOW_OBCS_CONTROL |
#ifdef ALLOW_OBCS_CONTROL |
231 |
|
|
232 |
#endif /* ALLOW_OBCS */ |
#endif /* ALLOW_OBCS */ |
233 |
|
|
234 |
end |
RETURN |
235 |
|
END |