/[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.22 by molod, Fri Feb 25 18:14:45 2005 UTC revision 1.23 by molod, Tue May 24 14:57:35 2005 UTC
# Line 112  C     to send to fizhi init chem Line 112  C     to send to fizhi init chem
112       .      nlatsq,nlevsq,ntimesq,latsq,levsq,stratq,       .      nlatsq,nlevsq,ntimesq,latsq,levsq,stratq,
113       .      Nrphys,pressure,n2o,methane,co2,cfc11,cfc12,cfc22)       .      Nrphys,pressure,n2o,methane,co2,cfc11,cfc12,cfc22)
114    
115         do bj = myByLo(myThid), myByHi(myThid)  C Read dataset that contains topography variance (10m by 10m in a 2x2.5 box)
116         do bi = myBxLo(myThid), myBxHi(myThid)          _BEGIN_MASTER( myThid )
117          do j=jm1,jm2          CALL READ_REC_XY_RL('topvar19232.data',phis_var,1,0,mythid )
118          do i=im1,im2          _END_MASTER(myThid)
119           phis_var(i,j,bi,bj) = 0.          _BARRIER
         enddo  
         enddo  
        enddo  
        enddo  
120    
121         return         return
122         end         end
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22