/[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.26 by molod, Tue Oct 26 17:46:16 2004 UTC revision 1.27 by jmc, Tue Mar 15 18:03:18 2005 UTC
# Line 107  c Do not use a zero field as the top edg Line 107  c Do not use a zero field as the top edg
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,          call get_landfrac(im2,jm2,Nsx,Nsy,bi,bj,maxtyp,
110       .        surftype,tilefrac,fracland)       .        surftype,tilefrac,fracland(1,1,bi,bj))
111  c  c
112  c Compute physics increments  c Compute physics increments
113    
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27
  ViewVC Help
Powered by ViewVC 1.1.22