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

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

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

revision 1.18 by molod, Wed Jul 28 21:57:51 2004 UTC revision 1.19 by molod, Thu Jul 29 15:21:50 2004 UTC
# Line 191  C TURBULENCE Line 191  C TURBULENCE
191  C ==========  C ==========
192        IF ( alarm('turb') ) THEN        IF ( alarm('turb') ) THEN
193    
194  c     call turbio (im,jm,lm,1,nymd,nhms,bi,bj,ndturb,        call turbio (im,jm,lm,1,nymd,nhms,bi,bj,ndturb,
195  c    .  ptop,p,u,v,t,q,ntracer,ptracer,pl,ple,dpres,pkht,pkl,       .  ptop,p,u,v,t,q,ntracer,ptracer,pl,ple,dpres,pkht,pkl,
196  c    .  ctmt,xxmt,yymt,zetamt,xlmt,khmt,tke,       .  ctmt,xxmt,yymt,zetamt,xlmt,khmt,tke,
197  c    .  tgz,fracland,landtype,       .  tgz,fracland,landtype,
198  c    .  tcanopy,ecanopy,tdeep,swetshal,swetroot,swetdeep,snodep,capac,       .  tcanopy,ecanopy,tdeep,swetshal,swetroot,swetdeep,snodep,capac,
199  c    .  nchp,nchptot,nchpland,chfr,chlat,chlon,igrd,ityp,       .  nchp,nchptot,nchpland,chfr,chlat,chlon,igrd,ityp,
200  c    .  alai,agrn,sea_ice,lpnt,       .  alai,agrn,sea_ice,lpnt,
201  c    .  turbu,turbv,turbt,turbq,radlwg,st4,dst4,radswg,radswt,       .  turbu,turbv,turbt,turbq,radlwg,st4,dst4,radswg,radswt,
202  c    .  fdifpar,fdirpar,rainlsp,raincon,snowfall,tg0,       .  fdifpar,fdirpar,rainlsp,raincon,snowfall,tg0,
203  c    .  imstturblw,imstturbsw,qliqavelw,qliqavesw,fccavelw,fccavesw,qq,       .  imstturblw,imstturbsw,qliqavelw,qliqavesw,fccavelw,fccavesw,qq,
204  c    .  myid)       .  myid)
205    
206  c Add Gravity-Wave Drag Tendency  c Add Gravity-Wave Drag Tendency
207  c ------------------------------  c ------------------------------
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22