/[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.9 by molod, Tue Jun 15 21:18:18 2004 UTC revision 1.10 by molod, Wed Jun 16 19:19:49 2004 UTC
# Line 37  c pe on dynamics and physics grid refers Line 37  c pe on dynamics and physics grid refers
37         _RL pephy(1-OLx:sNx+Olx,1-Oly:sNy+Oly,Nrphys+1,nSx,nSy)         _RL pephy(1-OLx:sNx+Olx,1-Oly:sNy+Oly,Nrphys+1,nSx,nSy)
38         _RL pedyn(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr+1,nSx,nSy)         _RL pedyn(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr+1,nSx,nSy)
39         _RL tempphy(1-OLx:sNx+Olx,1-Oly:sNy+Oly,Nrphys,nSx,nSy)         _RL tempphy(1-OLx:sNx+Olx,1-Oly:sNy+Oly,Nrphys,nSx,nSy)
40           _RL fracland(sNx,sNy,Nsx,Nsy)
41    
42         integer i, j, L, Lbotij, bi, bj         integer i, j, L, Lbotij, bi, bj
43         integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2         integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2
# Line 105  c Do not use a zero field as the top edg Line 106  c Do not use a zero field as the top edg
106         CALL TIMER_START ('DO_FIZHI          [FIZHI_WRAPPER]',mythid)         CALL TIMER_START ('DO_FIZHI          [FIZHI_WRAPPER]',mythid)
107         do bj = myByLo(myThid), myByHi(myThid)         do bj = myByLo(myThid), myByHi(myThid)
108         do bi = myBxLo(myThid), myBxHi(myThid)         do bi = myBxLo(myThid), myBxHi(myThid)
109            call get_landfrac(im2,jm2,Nsx,Nsy,bi,bj,maxtyp,
110         .        surftype,tilefrac,fracland)
111  c  c
112  c Compute physics increments  c Compute physics increments
113          call do_fizhi(uphy,vphy,thphy,sphy,pephy4fiz,xC,yC,          call do_fizhi(myThid,uphy,vphy,thphy,sphy,pephy4fiz,xC,yC,
114       .   ctmt,xxmt,yymt,zetamt,xlmt,khmt,tke,       .   ctmt,xxmt,yymt,zetamt,xlmt,khmt,tke,
115       .   sst,sice,phis_var,landtype,emiss,albnidr,albnirdf,       .   tgz,sst,sice,phis_var,landtype,fracland,emiss,albnidr,albnirdf,
116       .   albvisdr,albvisdf,ityp,chfr,alai,agrn,igrd,chlat,chlon,       .   albvisdr,albvisdf,ityp,chfr,alai,agrn,igrd,chlat,chlon,
117       .   tcanopy,tdeep,ecanopy,swetshal,swetroot,swetdeep,snodep,capac,       .   tcanopy,tdeep,ecanopy,swetshal,swetroot,swetdeep,snodep,capac,
118       .   o3,qstr,co2,cfc11,cfc12,cfc22,n2o,methane,       .   o3,qstr,co2,cfc11,cfc12,cfc22,n2o,methane,
119       .   idim1,idim2,jdim1,jdim2,Nrphys,Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,       .   idim1,idim2,jdim1,jdim2,Nrphys,Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,
120       .   nchp,       .   nchp,nchpland,
121       .   duphy,dvphy,dthphy,dsphy)       .   duphy,dvphy,dthphy,dsphy)
122         enddo         enddo
123         enddo         enddo
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22