/[MITgcm]/MITgcm/pkg/fizhi/fizhi_init_fixed.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/fizhi_init_fixed.F

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

revision 1.25 by molod, Tue May 31 21:33:41 2005 UTC revision 1.26 by molod, Wed Jun 1 18:08:02 2005 UTC
# Line 114  C     to send to fizhi init chem Line 114  C     to send to fizhi init chem
114       .      Nrphys,pressure,n2o,methane,co2,cfc11,cfc12,cfc22)       .      Nrphys,pressure,n2o,methane,co2,cfc11,cfc12,cfc22)
115    
116  C Read dataset that contains topography variance (10m by 10m in a 2x2.5 box)  C Read dataset that contains topography variance (10m by 10m in a 2x2.5 box)
117          _BEGIN_MASTER( myThid )         CALL READ_REC_XY_RL('topvar19232.data',tempoverlap,1,0,mythid )
118          CALL READ_REC_XY_RL('topvar19232.data',tempoverlap,1,0,mythid )         _BARRIER
         _END_MASTER(myThid)  
         _BARRIER  
119    
120         do bj = myByLo(myThid), myByHi(myThid)         do bj = myByLo(myThid), myByHi(myThid)
121         do bi = myBxLo(myThid), myBxHi(myThid)         do bi = myBxLo(myThid), myBxHi(myThid)
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22