/[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.20 by molod, Thu Oct 7 00:06:09 2004 UTC
# Line 119  c Compute physics increments Line 119  c Compute physics increments
119       .  albvisdr,albvisdf,ityp,chfr,alai,agrn,igrd,chlt,chlon,       .  albvisdr,albvisdf,ityp,chfr,alai,agrn,igrd,chlt,chlon,
120       .  tcanopy,tdeep,ecanopy,swetshal,swetroot,swetdeep,snodep,capac,       .  tcanopy,tdeep,ecanopy,swetshal,swetroot,swetdeep,snodep,capac,
121       .  o3,qstr,co2,cfc11,cfc12,cfc22,n2o,methane,       .  o3,qstr,co2,cfc11,cfc12,cfc22,n2o,methane,
122         .  iras,nlwcld,cldtot_lw,cldras_lw,cldlsp_lw,nlwlz,lwlz,
123         .  nswcld,cldtot_sw,cldras_sw,cldlsp_sw,nswlz,swlz,
124         .  imstturbsw,imstturblw,qliqavesw,qliqavelw,fccavesw,fccavelw,
125       .  duphy,dvphy,dthphy,dsphy)       .  duphy,dvphy,dthphy,dsphy)
126         enddo         enddo
127         enddo         enddo
# Line 169  C   into bottom-up arrays for interpolat Line 172  C   into bottom-up arrays for interpolat
172       . Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,gsphy)       . Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,gsphy)
173    
174    
175          if( (1.eq.1) ) then          if( (2.eq.1) ) then
176          print *,' In fizhi wrapper after phys2dyn before exchange ',bi          print *,' In fizhi wrapper after phys2dyn before exchange ',bi
177          do L = 1,Nr          do L = 1,Nr
178           do j = 1,sNy           do j = 1,sNy
# Line 177  C   into bottom-up arrays for interpolat Line 180  C   into bottom-up arrays for interpolat
180            tempij(i,j) = guphy(i,j,L,bi,bj)            tempij(i,j) = guphy(i,j,L,bi,bj)
181           enddo           enddo
182           enddo           enddo
183           print *,' guphy at level ',l,' ',tempij  c        print *,' guphy at level ',l,' ',tempij
184          enddo          enddo
185          do L = 1,Nr          do L = 1,Nr
186           do j = 1,sNy           do j = 1,sNy
# Line 185  C   into bottom-up arrays for interpolat Line 188  C   into bottom-up arrays for interpolat
188            tempij(i,j) = gvphy(i,j,L,bi,bj)            tempij(i,j) = gvphy(i,j,L,bi,bj)
189           enddo           enddo
190           enddo           enddo
191           print *,' gvphy at level ',l,' ',tempij  c        print *,' gvphy at level ',l,' ',tempij
192          enddo          enddo
193          do L = 1,Nr          do L = 1,Nr
194           do j = 1,sNy           do j = 1,sNy
# Line 201  C   into bottom-up arrays for interpolat Line 204  C   into bottom-up arrays for interpolat
204            tempij(i,j) = gsphy(i,j,L,bi,bj)            tempij(i,j) = gsphy(i,j,L,bi,bj)
205           enddo           enddo
206           enddo           enddo
207           print *,' gsphy at level ',l,' ',tempij  c        print *,' gsphy at level ',l,' ',tempij
208          enddo          enddo
209          endif          endif
210         enddo         enddo
# Line 227  c Call the a-grid exchange routine to fi Line 230  c Call the a-grid exchange routine to fi
230    
231         do bj = myByLo(myThid), myByHi(myThid)         do bj = myByLo(myThid), myByHi(myThid)
232         do bi = myBxLo(myThid), myBxHi(myThid)         do bi = myBxLo(myThid), myBxHi(myThid)
233          if( (1.eq.1) ) then          if( (2.eq.1) ) then
234          print *,' In fizhi wrapper after phys2dyn before exchange ',bi          print *,' In fizhi wrapper after exchange ',bi
235          do L = 1,Nr          do L = 1,Nr
236           do j = 1,sNy           do j = 1,sNy
237           do i = 1,sNx           do i = 1,sNx
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22