/[MITgcm]/MITgcm/pkg/ecco/cost_obcse.F
ViewVC logotype

Diff of /MITgcm/pkg/ecco/cost_obcse.F

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

revision 1.2 by heimbach, Mon Oct 11 16:38:53 2004 UTC revision 1.3 by jmc, Tue Oct 9 00:02:50 2007 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  #include "COST_CPPOPTIONS.h"  #include "COST_CPPOPTIONS.h"
5  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
# Line 113  c--     Read time averages and the month Line 115  c--     Read time averages and the month
115       &                        optimcycle, mythid,       &                        optimcycle, mythid,
116       &                        xx_tbar_mean_dummy )       &                        xx_tbar_mean_dummy )
117    
118          call mdsreadfieldyz( OBEtFile, ReadBinaryPrec, 'RS',          call mdsreadfieldyz( OBEtFile, ReadBinaryPrec, 'RS',
119       &                       nr, OBEt, irec, mythid)       &                       nr, OBEt, irec, mythid)
120    
121          do bj = jtlo,jthi          do bj = jtlo,jthi
# Line 150  c--     Read time averages and the month Line 152  c--     Read time averages and the month
152       &                        optimcycle, mythid,       &                        optimcycle, mythid,
153       &                        xx_sbar_mean_dummy )       &                        xx_sbar_mean_dummy )
154    
155          call mdsreadfieldyz( OBEsFile, readBinaryPrec, 'RS',          call mdsreadfieldyz( OBEsFile, readBinaryPrec, 'RS',
156       &                       nr, OBEs, irec, mythid)       &                       nr, OBEs, irec, mythid)
157    
158          do bj = jtlo,jthi          do bj = jtlo,jthi
# Line 187  c--     Read time averages and the month Line 189  c--     Read time averages and the month
189       &                        optimcycle, mythid,       &                        optimcycle, mythid,
190       &                        dummy )       &                        dummy )
191    
192          call mdsreadfieldyz( OBEuFile, readBinaryPrec, 'RS',          call mdsreadfieldyz( OBEuFile, readBinaryPrec, 'RS',
193       &                       nr, OBEu, irec, mythid)       &                       nr, OBEu, irec, mythid)
194          do bj = jtlo,jthi          do bj = jtlo,jthi
195            do bi = itlo,ithi            do bi = itlo,ithi
# Line 223  c--     Read time averages and the month Line 225  c--     Read time averages and the month
225       &                        optimcycle, mythid,       &                        optimcycle, mythid,
226       &                        dummy )       &                        dummy )
227    
228          call mdsreadfieldyz( OBEvFile, readBinaryPrec, 'RS',          call mdsreadfieldyz( OBEvFile, readBinaryPrec, 'RS',
229       &                       nr, OBEv, irec, mythid)       &                       nr, OBEv, irec, mythid)
230    
231          do bj = jtlo,jthi          do bj = jtlo,jthi
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22