97 |
|
|
98 |
C If the above condition is met then we need to read in |
C If the above condition is met then we need to read in |
99 |
C data for the period ahead and the period behind myTime. |
C data for the period ahead and the period behind myTime. |
100 |
WRITE(*,*) |
WRITE(standardMessageUnit,'(A,2I5,I10,1P1E20.12)') |
101 |
& 'S/R OBCS_EXTERNAL_FIELDS_LOAD: Reading new data',myTime,myIter |
& 'S/R OBCS_EXTERNAL_FIELDS_LOAD: Reading new data:', |
102 |
|
& intime0, intime1, myIter, myTime |
103 |
|
|
104 |
#ifdef ALLOW_OBCS_EAST |
#ifdef ALLOW_OBCS_EAST |
105 |
C Eastern boundary |
C Eastern boundary |
107 |
CALL MDSREADFIELDYZ ( OBEuFile, readBinaryPrec, |
CALL MDSREADFIELDYZ ( OBEuFile, readBinaryPrec, |
108 |
& 'RL', Nr, OBEu0, intime0, myThid ) |
& 'RL', Nr, OBEu0, intime0, myThid ) |
109 |
CALL MDSREADFIELDXz ( OBEuFile, readBinaryPrec, |
CALL MDSREADFIELDXz ( OBEuFile, readBinaryPrec, |
110 |
& 'RL', Nr, OBEu1, intime0, myThid ) |
& 'RL', Nr, OBEu1, intime1, myThid ) |
111 |
ENDIF |
ENDIF |
112 |
IF ( OBEvFile .NE. ' ' ) THEN |
IF ( OBEvFile .NE. ' ' ) THEN |
113 |
CALL MDSREADFIELDYZ ( OBEvFile, readBinaryPrec, |
CALL MDSREADFIELDYZ ( OBEvFile, readBinaryPrec, |
114 |
& 'RL', Nr, OBEv0, intime0, myThid ) |
& 'RL', Nr, OBEv0, intime0, myThid ) |
115 |
CALL MDSREADFIELDYZ ( OBEvFile, readBinaryPrec, |
CALL MDSREADFIELDYZ ( OBEvFile, readBinaryPrec, |
116 |
& 'RL', Nr, OBEv1, intime0, myThid ) |
& 'RL', Nr, OBEv1, intime1, myThid ) |
117 |
ENDIF |
ENDIF |
118 |
IF ( OBEtFile .NE. ' ' ) THEN |
IF ( OBEtFile .NE. ' ' ) THEN |
119 |
CALL MDSREADFIELDYZ ( OBEtFile, readBinaryPrec, |
CALL MDSREADFIELDYZ ( OBEtFile, readBinaryPrec, |
120 |
& 'RL', Nr, OBEt0, intime0, myThid ) |
& 'RL', Nr, OBEt0, intime0, myThid ) |
121 |
CALL MDSREADFIELDYZ ( OBEtFile, readBinaryPrec, |
CALL MDSREADFIELDYZ ( OBEtFile, readBinaryPrec, |
122 |
& 'RL', Nr, OBEt1, intime0, myThid ) |
& 'RL', Nr, OBEt1, intime1, myThid ) |
123 |
ENDIF |
ENDIF |
124 |
IF ( OBEsFile .NE. ' ' ) THEN |
IF ( OBEsFile .NE. ' ' ) THEN |
125 |
CALL MDSREADFIELDYZ ( OBEsFile, readBinaryPrec, |
CALL MDSREADFIELDYZ ( OBEsFile, readBinaryPrec, |
126 |
& 'RL', Nr, OBEs0, intime0, myThid ) |
& 'RL', Nr, OBEs0, intime0, myThid ) |
127 |
CALL MDSREADFIELDYZ ( OBEsFile, readBinaryPrec, |
CALL MDSREADFIELDYZ ( OBEsFile, readBinaryPrec, |
128 |
& 'RL', Nr, OBEs1, intime0, myThid ) |
& 'RL', Nr, OBEs1, intime1, myThid ) |
129 |
ENDIF |
ENDIF |
130 |
#endif /* ALLOW_OBCS_WEST */ |
#endif /* ALLOW_OBCS_WEST */ |
131 |
#ifdef ALLOW_OBCS_WEST |
#ifdef ALLOW_OBCS_WEST |
134 |
CALL MDSREADFIELDYZ ( OBWuFile, readBinaryPrec, |
CALL MDSREADFIELDYZ ( OBWuFile, readBinaryPrec, |
135 |
& 'RL', Nr, OBWu0, intime0, myThid ) |
& 'RL', Nr, OBWu0, intime0, myThid ) |
136 |
CALL MDSREADFIELDXz ( OBWuFile, readBinaryPrec, |
CALL MDSREADFIELDXz ( OBWuFile, readBinaryPrec, |
137 |
& 'RL', Nr, OBWu1, intime0, myThid ) |
& 'RL', Nr, OBWu1, intime1, myThid ) |
138 |
ENDIF |
ENDIF |
139 |
IF ( OBWvFile .NE. ' ' ) THEN |
IF ( OBWvFile .NE. ' ' ) THEN |
140 |
CALL MDSREADFIELDYZ ( OBWvFile, readBinaryPrec, |
CALL MDSREADFIELDYZ ( OBWvFile, readBinaryPrec, |
141 |
& 'RL', Nr, OBWv0, intime0, myThid ) |
& 'RL', Nr, OBWv0, intime0, myThid ) |
142 |
CALL MDSREADFIELDYZ ( OBWvFile, readBinaryPrec, |
CALL MDSREADFIELDYZ ( OBWvFile, readBinaryPrec, |
143 |
& 'RL', Nr, OBWv1, intime0, myThid ) |
& 'RL', Nr, OBWv1, intime1, myThid ) |
144 |
ENDIF |
ENDIF |
145 |
IF ( OBWtFile .NE. ' ' ) THEN |
IF ( OBWtFile .NE. ' ' ) THEN |
146 |
CALL MDSREADFIELDYZ ( OBWtFile, readBinaryPrec, |
CALL MDSREADFIELDYZ ( OBWtFile, readBinaryPrec, |
147 |
& 'RL', Nr, OBWt0, intime0, myThid ) |
& 'RL', Nr, OBWt0, intime0, myThid ) |
148 |
CALL MDSREADFIELDYZ ( OBWtFile, readBinaryPrec, |
CALL MDSREADFIELDYZ ( OBWtFile, readBinaryPrec, |
149 |
& 'RL', Nr, OBWt1, intime0, myThid ) |
& 'RL', Nr, OBWt1, intime1, myThid ) |
150 |
ENDIF |
ENDIF |
151 |
IF ( OBWsFile .NE. ' ' ) THEN |
IF ( OBWsFile .NE. ' ' ) THEN |
152 |
CALL MDSREADFIELDYZ ( OBWsFile, readBinaryPrec, |
CALL MDSREADFIELDYZ ( OBWsFile, readBinaryPrec, |
153 |
& 'RL', Nr, OBWs0, intime0, myThid ) |
& 'RL', Nr, OBWs0, intime0, myThid ) |
154 |
CALL MDSREADFIELDYZ ( OBWsFile, readBinaryPrec, |
CALL MDSREADFIELDYZ ( OBWsFile, readBinaryPrec, |
155 |
& 'RL', Nr, OBWs1, intime0, myThid ) |
& 'RL', Nr, OBWs1, intime1, myThid ) |
156 |
ENDIF |
ENDIF |
157 |
#endif /* ALLOW_OBCS_WEST */ |
#endif /* ALLOW_OBCS_WEST */ |
158 |
#ifdef ALLOW_OBCS_NORTH |
#ifdef ALLOW_OBCS_NORTH |
161 |
CALL MDSREADFIELDXZ ( OBNuFile, readBinaryPrec, |
CALL MDSREADFIELDXZ ( OBNuFile, readBinaryPrec, |
162 |
& 'RL', Nr, OBNu0, intime0, myThid ) |
& 'RL', Nr, OBNu0, intime0, myThid ) |
163 |
CALL MDSREADFIELDXz ( OBNuFile, readBinaryPrec, |
CALL MDSREADFIELDXz ( OBNuFile, readBinaryPrec, |
164 |
& 'RL', Nr, OBNu1, intime0, myThid ) |
& 'RL', Nr, OBNu1, intime1, myThid ) |
165 |
ENDIF |
ENDIF |
166 |
IF ( OBNvFile .NE. ' ' ) THEN |
IF ( OBNvFile .NE. ' ' ) THEN |
167 |
CALL MDSREADFIELDXZ ( OBNvFile, readBinaryPrec, |
CALL MDSREADFIELDXZ ( OBNvFile, readBinaryPrec, |
168 |
& 'RL', Nr, OBNv0, intime0, myThid ) |
& 'RL', Nr, OBNv0, intime0, myThid ) |
169 |
CALL MDSREADFIELDXZ ( OBNvFile, readBinaryPrec, |
CALL MDSREADFIELDXZ ( OBNvFile, readBinaryPrec, |
170 |
& 'RL', Nr, OBNv1, intime0, myThid ) |
& 'RL', Nr, OBNv1, intime1, myThid ) |
171 |
ENDIF |
ENDIF |
172 |
IF ( OBNtFile .NE. ' ' ) THEN |
IF ( OBNtFile .NE. ' ' ) THEN |
173 |
CALL MDSREADFIELDXZ ( OBNtFile, readBinaryPrec, |
CALL MDSREADFIELDXZ ( OBNtFile, readBinaryPrec, |
174 |
& 'RL', Nr, OBNt0, intime0, myThid ) |
& 'RL', Nr, OBNt0, intime0, myThid ) |
175 |
CALL MDSREADFIELDXZ ( OBNtFile, readBinaryPrec, |
CALL MDSREADFIELDXZ ( OBNtFile, readBinaryPrec, |
176 |
& 'RL', Nr, OBNt1, intime0, myThid ) |
& 'RL', Nr, OBNt1, intime1, myThid ) |
177 |
ENDIF |
ENDIF |
178 |
IF ( OBNsFile .NE. ' ' ) THEN |
IF ( OBNsFile .NE. ' ' ) THEN |
179 |
CALL MDSREADFIELDXZ ( OBNsFile, readBinaryPrec, |
CALL MDSREADFIELDXZ ( OBNsFile, readBinaryPrec, |
180 |
& 'RL', Nr, OBNs0, intime0, myThid ) |
& 'RL', Nr, OBNs0, intime0, myThid ) |
181 |
CALL MDSREADFIELDXZ ( OBNsFile, readBinaryPrec, |
CALL MDSREADFIELDXZ ( OBNsFile, readBinaryPrec, |
182 |
& 'RL', Nr, OBNs1, intime0, myThid ) |
& 'RL', Nr, OBNs1, intime1, myThid ) |
183 |
ENDIF |
ENDIF |
184 |
#endif /* ALLOW_OBCS_NORTH */ |
#endif /* ALLOW_OBCS_NORTH */ |
185 |
#ifdef ALLOW_OBCS_SOUTH |
#ifdef ALLOW_OBCS_SOUTH |
188 |
CALL MDSREADFIELDXZ ( OBSuFile, readBinaryPrec, |
CALL MDSREADFIELDXZ ( OBSuFile, readBinaryPrec, |
189 |
& 'RL', Nr, OBSu0, intime0, myThid ) |
& 'RL', Nr, OBSu0, intime0, myThid ) |
190 |
CALL MDSREADFIELDXz ( OBSuFile, readBinaryPrec, |
CALL MDSREADFIELDXz ( OBSuFile, readBinaryPrec, |
191 |
& 'RL', Nr, OBSu1, intime0, myThid ) |
& 'RL', Nr, OBSu1, intime1, myThid ) |
192 |
ENDIF |
ENDIF |
193 |
IF ( OBSvFile .NE. ' ' ) THEN |
IF ( OBSvFile .NE. ' ' ) THEN |
194 |
CALL MDSREADFIELDXZ ( OBSvFile, readBinaryPrec, |
CALL MDSREADFIELDXZ ( OBSvFile, readBinaryPrec, |
195 |
& 'RL', Nr, OBSv0, intime0, myThid ) |
& 'RL', Nr, OBSv0, intime0, myThid ) |
196 |
CALL MDSREADFIELDXZ ( OBSvFile, readBinaryPrec, |
CALL MDSREADFIELDXZ ( OBSvFile, readBinaryPrec, |
197 |
& 'RL', Nr, OBSv1, intime0, myThid ) |
& 'RL', Nr, OBSv1, intime1, myThid ) |
198 |
ENDIF |
ENDIF |
199 |
IF ( OBStFile .NE. ' ' ) THEN |
IF ( OBStFile .NE. ' ' ) THEN |
200 |
CALL MDSREADFIELDXZ ( OBStFile, readBinaryPrec, |
CALL MDSREADFIELDXZ ( OBStFile, readBinaryPrec, |
201 |
& 'RL', Nr, OBSt0, intime0, myThid ) |
& 'RL', Nr, OBSt0, intime0, myThid ) |
202 |
CALL MDSREADFIELDXZ ( OBStFile, readBinaryPrec, |
CALL MDSREADFIELDXZ ( OBStFile, readBinaryPrec, |
203 |
& 'RL', Nr, OBSt1, intime0, myThid ) |
& 'RL', Nr, OBSt1, intime1, myThid ) |
204 |
ENDIF |
ENDIF |
205 |
IF ( OBSsFile .NE. ' ' ) THEN |
IF ( OBSsFile .NE. ' ' ) THEN |
206 |
CALL MDSREADFIELDXZ ( OBSsFile, readBinaryPrec, |
CALL MDSREADFIELDXZ ( OBSsFile, readBinaryPrec, |
207 |
& 'RL', Nr, OBSs0, intime0, myThid ) |
& 'RL', Nr, OBSs0, intime0, myThid ) |
208 |
CALL MDSREADFIELDXZ ( OBSsFile, readBinaryPrec, |
CALL MDSREADFIELDXZ ( OBSsFile, readBinaryPrec, |
209 |
& 'RL', Nr, OBSs1, intime0, myThid ) |
& 'RL', Nr, OBSs1, intime1, myThid ) |
210 |
ENDIF |
ENDIF |
211 |
#endif /* ALLOW_OBCS_SOUTH */ |
#endif /* ALLOW_OBCS_SOUTH */ |
212 |
_END_MASTER(myThid) |
_END_MASTER(myThid) |