/[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.23 by molod, Tue May 24 14:57:35 2005 UTC revision 1.24 by molod, Tue May 24 16:29:38 2005 UTC
# Line 45  c--------------------------------------- Line 45  c---------------------------------------
45         _RL pressure(Nrphys)         _RL pressure(Nrphys)
46         _RL lats(sNx,sNy,Nsx,Nsy), lons(sNx,sNy,Nsx,Nsy)         _RL lats(sNx,sNy,Nsx,Nsy), lons(sNx,sNy,Nsx,Nsy)
47         _RL fracland(sNx,sNy,Nsx,Nsy)         _RL fracland(sNx,sNy,Nsx,Nsy)
48           _RL tempoverlap(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nsx,Nsy)
49    
50         idim2 = sNx+OLx         idim2 = sNx+OLx
51         jdim2 = sNy+OLy         jdim2 = sNy+OLy
# Line 114  C     to send to fizhi init chem Line 115  C     to send to fizhi init chem
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 )          _BEGIN_MASTER( myThid )
118          CALL READ_REC_XY_RL('topvar19232.data',phis_var,1,0,mythid )          CALL READ_REC_XY_RL('topvar19232.data',tempoverlap,1,0,mythid )
119          _END_MASTER(myThid)          _END_MASTER(myThid)
120          _BARRIER          _BARRIER
121    
122           do bj = myByLo(myThid), myByHi(myThid)
123           do bi = myBxLo(myThid), myBxHi(myThid)
124            do j=jm1,jm2
125            do i=im1,im2
126             phis_var(i,j,bi,bj) = tempoverlap(i,j,bi,bj)
127            enddo
128            enddo
129           enddo
130           enddo
131    
132         return         return
133         end         end
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22