/[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.15 by molod, Tue Jul 27 04:10:57 2004 UTC revision 1.16 by molod, Wed Jul 28 01:25:07 2004 UTC
# Line 108  c Do not use a zero field as the top edg Line 108  c Do not use a zero field as the top edg
108       .        surftype,tilefrac,fracland)       .        surftype,tilefrac,fracland)
109  c  c
110  c Compute physics increments  c Compute physics increments
111          call do_fizhi(myThid,uphy,vphy,thphy,sphy,pephy4fiz,xC,yC,  
112            call do_fizhi(myThid,
113         .  idim1,idim2,jdim1,jdim2,Nrphys,Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,
114         .  nchp,nchptot,nchpland,
115         .  uphy,vphy,thphy,sphy,pephy4fiz,xC,yC,
116       .  ctmt,xxmt,yymt,zetamt,xlmt,khmt,tke,       .  ctmt,xxmt,yymt,zetamt,xlmt,khmt,tke,
117       .  tgz,sst,sice,phis_var,landtype,fracland,emiss,albnirdr,albnirdf,       .  tgz,sst,sice,phis_var,landtype,fracland,emiss,albnirdr,albnirdf,
118       .  albvisdr,albvisdf,ityp,chfr,alai,agrn,igrd,chlt,chlon,       .  albvisdr,albvisdf,ityp,chfr,alai,agrn,igrd,chlt,chlon,
119       .  tcanopy,tdeep,ecanopy,swetshal,swetroot,swetdeep,snodep,capac,       .  tcanopy,tdeep,ecanopy,swetshal,swetroot,swetdeep,snodep,capac,
120       .  o3,qstr,co2,cfc11,cfc12,cfc22,n2o,methane,       .  o3,qstr,co2,cfc11,cfc12,cfc22,n2o,methane,
      .  idim1,idim2,jdim1,jdim2,Nrphys,Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,  
      .  nchp,nchptot,nchpland,  
121       .  duphy,dvphy,dthphy,dsphy)       .  duphy,dvphy,dthphy,dsphy)
122         enddo         enddo
123         enddo         enddo
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22