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

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

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

revision 1.35 by molod, Thu Aug 5 17:06:40 2004 UTC revision 1.36 by molod, Thu Aug 12 15:21:22 2004 UTC
# Line 28  c--------------------------------------- Line 28  c---------------------------------------
28    
29  C Argument list declarations  C Argument list declarations
30        integer myid,im1,im2,jm1,jm2,idim1,idim2,jdim1,jdim2        integer myid,im1,im2,jm1,jm2,idim1,idim2,jdim1,jdim2
31        integer Nrphin,Nsxin,Nsyin,bi,bj,nchp,nchptot,nchpland        integer Nrphin,Nsxin,Nsyin,bi,bj,nchp
32          integer nchptot(Nsxin,Nsyin),nchpland(Nsxin,Nsyin)
33        _RL uphy(idim1:idim2,jdim1:jdim2,Nrphin,Nsxin,Nsyin)        _RL uphy(idim1:idim2,jdim1:jdim2,Nrphin,Nsxin,Nsyin)
34        _RL vphy(idim1:idim2,jdim1:jdim2,Nrphin,Nsxin,Nsyin)        _RL vphy(idim1:idim2,jdim1:jdim2,Nrphin,Nsxin,Nsyin)
35        _RL thphy(idim1:idim2,jdim1:jdim2,Nrphin,Nsxin,Nsyin)        _RL thphy(idim1:idim2,jdim1:jdim2,Nrphin,Nsxin,Nsyin)
# Line 359  c     print *,' tgz ',tempij Line 360  c     print *,' tgz ',tempij
360       . dpres(1,1,1,bi,bj),pkle(1,1,1,bi,bj),pkl(1,1,1,bi,bj),       . dpres(1,1,1,bi,bj),pkle(1,1,1,bi,bj),pkl(1,1,1,bi,bj),
361       . fracland(1,1,bi,bj),landtype(1,1,bi,bj),radswt(1,1,bi,bj),       . fracland(1,1,bi,bj),landtype(1,1,bi,bj),radswt(1,1,bi,bj),
362       . phis_var(1,1,bi,bj),tgz(1,1,bi,bj),sea_ice,nchp,chlat(1,bi,bj),       . phis_var(1,1,bi,bj),tgz(1,1,bi,bj),sea_ice,nchp,chlat(1,bi,bj),
363       . chlon(1,bi,bj),igrd(1,bi,bj),nchptot,nchpland,chfr(1,bi,bj),       . chlon(1,bi,bj),igrd(1,bi,bj),nchptot(bi,bj),nchpland(bi,bj),
364       . ityp(1,bi,bj),tcanopy(1,bi,bj),tdeep(1,bi,bj),ecanopy(1,bi,bj),       . chfr(1,bi,bj),ityp(1,bi,bj),tcanopy(1,bi,bj),tdeep(1,bi,bj),
365       . swetshal(1,bi,bj),swetroot(1,bi,bj),swetdeep(1,bi,bj),       . ecanopy(1,bi,bj),swetshal(1,bi,bj),swetroot(1,bi,bj),
366       . capac(1,bi,bj),snodep(1,bi,bj),       . swetdeep(1,bi,bj),capac(1,bi,bj),snodep(1,bi,bj),
367       . ctmt(1,bi,bj),xxmt(1,bi,bj),yymt(1,bi,bj),zetamt(1,bi,bj),       . ctmt(1,bi,bj),xxmt(1,bi,bj),yymt(1,bi,bj),zetamt(1,bi,bj),
368       . xlmt(1,1,bi,bj),khmt(1,1,bi,bj),tke(1,1,bi,bj),       . xlmt(1,1,bi,bj),khmt(1,1,bi,bj),tke(1,1,bi,bj),
369       . albvisdr(1,1,bi,bj),albvisdf(1,1,bi,bj),albnirdr(1,1,bi,bj),       . albvisdr(1,1,bi,bj),albvisdf(1,1,bi,bj),albnirdr(1,1,bi,bj),
Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36
  ViewVC Help
Powered by ViewVC 1.1.22