/[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.8 by molod, Wed Jul 7 19:33:48 2004 UTC revision 1.9 by molod, Thu Jul 8 20:24:08 2004 UTC
# Line 47  c ------------- Line 47  c -------------
47  c Input Parameters  c Input Parameters
48  c ----------------  c ----------------
49        integer myid,im,jm,lm,bi,bj,ptracer,ntracer        integer myid,im,jm,lm,bi,bj,ptracer,ntracer
50        integer nchp,chlat,chlon,igrd,nchpland,chfr,ityp        integer nchp,igrd(nchp),nchpland,ityp(nchp)
       integer nwatlevs,nwatlats  
       integer nozolevs,nozolats  
51        integer iras,nlwcld,nlwlz,nswcld,nswlz        integer iras,nlwcld,nlwlz,nswcld,nswlz
52        integer imstturbsw,imstturblw        integer imstturbsw,imstturblw
53    
# Line 58  c ---------------- Line 56  c ----------------
56        real u(im,jm,lm), v(im,jm,lm), t(im,jm,lm)        real u(im,jm,lm), v(im,jm,lm), t(im,jm,lm)
57        real q(im,jm,lm,ntracer)        real q(im,jm,lm,ntracer)
58        real pl(im,jm,lm),ple(im,jm,lm+1),dpres(im,jm,lm),pkht(im,jm,lm)        real pl(im,jm,lm),ple(im,jm,lm+1),dpres(im,jm,lm),pkht(im,jm,lm)
59          real pkl(im,jm,lm)
60        real radswt(im,jm), fracland(im,jm), landtype(im,jm)        real radswt(im,jm), fracland(im,jm), landtype(im,jm)
61        real phis_var(im,jm), sea_ice(im,jm)        real phis_var(im,jm), sea_ice(im,jm)
62          real chlat(nchp),chlon(nchp),chfr(nchp)
63        real tcanopy(nchp),tdeep(nchp),ecanopy(nchp),swetshal(nchp)        real tcanopy(nchp),tdeep(nchp),ecanopy(nchp),swetshal(nchp)
64        real swetroot(nchp),swetdeep(nchp),capac(nchp),snodep(nchp)        real swetroot(nchp),swetdeep(nchp),capac(nchp),snodep(nchp)
65        real ctmt(nchp),xxmt(nchp),yymt(nchp),zetamt(nchp)        real ctmt(nchp),xxmt(nchp),yymt(nchp),zetamt(nchp)
66        real xlmt(nchp,lm),khmt(nchp,lm),tke(nchp,lm)        real xlmt(nchp,lm),khmt(nchp,lm),tke(nchp,lm)
       real stratq(nwatlats,nwatlevs )  
       real watlats(nwatlats)  
       real watlevs(nwatlevs)  
       real ozone(nozolats,nozolevs)  
       real ozolevs(nozolevs),ozolats(nozlats)  
67        real co2,cfc11,cfc12,cfc22,methane(lm),n2o(lm)        real co2,cfc11,cfc12,cfc22,methane(lm),n2o(lm)
68        real lwdt(im,jm,lm),lwdtclr(im,jm,lm)        real lwdt(im,jm,lm),lwdtclr(im,jm,lm)
69        real swdt(im,jm,lm),swdtclr(im,jm,lm)        real swdt(im,jm,lm),swdtclr(im,jm,lm)
# Line 98  c Local Variables Line 93  c Local Variables
93  c ---------------  c ---------------
94        logical     alarm        logical     alarm
95        external    alarm        external    alarm
       real massinlayer(im,jm,lm)  
96        integer numpcheck        integer numpcheck
97        parameter (numpcheck = 5)        parameter (numpcheck = 5)
98        integer pchecklevs(numpcheck)        integer pchecklevs(numpcheck)
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22