/[MITgcm]/MITgcm/pkg/obcs/obcs_external_fields_load.F
ViewVC logotype

Diff of /MITgcm/pkg/obcs/obcs_external_fields_load.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by jmc, Wed Apr 6 18:43:35 2005 UTC revision 1.4 by mlosch, Wed Jul 6 08:22:00 2005 UTC
# Line 97  C Now calculate whether it is time to up Line 97  C Now calculate whether it is time to up
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
# Line 106  C     Eastern boundary Line 107  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
# Line 133  C     Western boundary Line 134  C     Western boundary
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
# Line 160  C     Northern boundary Line 161  C     Northern boundary
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
# Line 187  C     Southern boundary Line 188  C     Southern boundary
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)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22