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

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

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

revision 1.17 by molod, Fri Jul 30 20:37:50 2004 UTC revision 1.18 by molod, Wed Aug 4 18:23:44 2004 UTC
# Line 177  C   into bottom-up arrays for interpolat Line 177  C   into bottom-up arrays for interpolat
177            tempij(i,j) = guphy(i,j,L,bi,bj)            tempij(i,j) = guphy(i,j,L,bi,bj)
178           enddo           enddo
179           enddo           enddo
180           print *,' guphy at level ',l,' ',tempij  c        print *,' guphy at level ',l,' ',tempij
181          enddo          enddo
182          do L = 1,Nr          do L = 1,Nr
183           do j = 1,sNy           do j = 1,sNy
# Line 185  C   into bottom-up arrays for interpolat Line 185  C   into bottom-up arrays for interpolat
185            tempij(i,j) = gvphy(i,j,L,bi,bj)            tempij(i,j) = gvphy(i,j,L,bi,bj)
186           enddo           enddo
187           enddo           enddo
188           print *,' gvphy at level ',l,' ',tempij  c        print *,' gvphy at level ',l,' ',tempij
189          enddo          enddo
190          do L = 1,Nr          do L = 1,Nr
191           do j = 1,sNy           do j = 1,sNy
# Line 201  C   into bottom-up arrays for interpolat Line 201  C   into bottom-up arrays for interpolat
201            tempij(i,j) = gsphy(i,j,L,bi,bj)            tempij(i,j) = gsphy(i,j,L,bi,bj)
202           enddo           enddo
203           enddo           enddo
204           print *,' gsphy at level ',l,' ',tempij  c        print *,' gsphy at level ',l,' ',tempij
205          enddo          enddo
206          endif          endif
207         enddo         enddo
# Line 227  c Call the a-grid exchange routine to fi Line 227  c Call the a-grid exchange routine to fi
227    
228         do bj = myByLo(myThid), myByHi(myThid)         do bj = myByLo(myThid), myByHi(myThid)
229         do bi = myBxLo(myThid), myBxHi(myThid)         do bi = myBxLo(myThid), myBxHi(myThid)
230          if( (1.eq.1) ) then          if( (2.eq.1) ) then
231          print *,' In fizhi wrapper after phys2dyn before exchange ',bi          print *,' In fizhi wrapper after exchange ',bi
232          do L = 1,Nr          do L = 1,Nr
233           do j = 1,sNy           do j = 1,sNy
234           do i = 1,sNx           do i = 1,sNx
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22