/[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.12 by molod, Fri Jul 23 22:32:27 2004 UTC revision 1.13 by molod, Mon Jul 26 18:45:17 2004 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3                                                                                                                                                                    
4  #include "CPP_OPTIONS.h"  #include "FIZHI_OPTIONS.h"
5        subroutine fizhi_driver (myid,im,jm,lm,bi,bj,ptracer,ntracer,        subroutine fizhi_driver (myid,im,jm,lm,bi,bj,ptracer,ntracer,
6       . xlats,xlons,       . xlats,xlons,
7       . p,u,v,t,q,pl,ple,dpres,pkht,pkl,fracland,landtype,radswt,       . p,u,v,t,q,pl,ple,dpres,pkht,pkl,fracland,landtype,radswt,
# Line 51  c ---------------- Line 51  c ----------------
51        integer iras,nlwcld,nlwlz,nswcld,nswlz        integer iras,nlwcld,nlwlz,nswcld,nswlz
52        integer imstturbsw,imstturblw        integer imstturbsw,imstturblw
53    
54        real xlats(im,jm), xlons(im,jm)        _RL xlats(im,jm), xlons(im,jm)
55        real p(im,jm)        _RL p(im,jm)
56        real u(im,jm,lm), v(im,jm,lm), t(im,jm,lm)        _RL u(im,jm,lm),v(im,jm,lm),t(im,jm,lm)
57        real q(im,jm,lm,ntracer)        _RL q(im,jm,lm,ntracer)
58        real pl(im,jm,lm),ple(im,jm,lm+1),dpres(im,jm,lm),pkht(im,jm,lm)        _RL pl(im,jm,lm),ple(im,jm,lm+1),dpres(im,jm,lm)
59        real pkl(im,jm,lm)        _RL pkht(im,jm,lm)
60        real radswt(im,jm), fracland(im,jm), landtype(im,jm)        _RL pkl(im,jm,lm)
61        real phis_var(im,jm), sea_ice(im,jm)        _RL radswt(im,jm), fracland(im,jm), landtype(im,jm)
62        real chlat(nchp),chlon(nchp),chfr(nchp)        _RL phis_var(im,jm), sea_ice(im,jm)
63        real tcanopy(nchp),tdeep(nchp),ecanopy(nchp),swetshal(nchp)        _RL chlat(nchp),chlon(nchp),chfr(nchp)
64        real swetroot(nchp),swetdeep(nchp),capac(nchp),snodep(nchp)        _RL tcanopy(nchp),tdeep(nchp),ecanopy(nchp),swetshal(nchp)
65        real ctmt(nchp),xxmt(nchp),yymt(nchp),zetamt(nchp)        _RL swetroot(nchp),swetdeep(nchp),capac(nchp),snodep(nchp)
66        real xlmt(nchp,lm),khmt(nchp,lm),tke(nchp,lm)        _RL ctmt(nchp),xxmt(nchp),yymt(nchp),zetamt(nchp)
67        real co2,cfc11,cfc12,cfc22,methane(lm),n2o(lm)        _RL xlmt(nchp,lm),khmt(nchp,lm),tke(nchp,lm)
68        real lwdt(im,jm,lm),lwdtclr(im,jm,lm)        _RL co2,cfc11,cfc12,cfc22,methane(lm),n2o(lm)
69        real swdt(im,jm,lm),swdtclr(im,jm,lm)        _RL lwdt(im,jm,lm),lwdtclr(im,jm,lm)
70        real turbu(im,jm,lm),turbv(im,jm,lm),turbt(im,jm,lm)        _RL swdt(im,jm,lm),swdtclr(im,jm,lm)
71        real turbq(im,jm,lm)        _RL turbu(im,jm,lm),turbv(im,jm,lm),turbt(im,jm,lm)
72        real moistu(im,jm,lm),moistv(im,jm,lm),moistt(im,jm,lm)        _RL turbq(im,jm,lm)
73        real moistq(im,jm,lm)        _RL moistu(im,jm,lm),moistv(im,jm,lm),moistt(im,jm,lm)
74        real chemo3(im,jm,lm),chemq(im,jm,lm)        _RL moistq(im,jm,lm)
75        real albvisdr(im,jm),albvisdf(im,jm),albnirdr(im,jm)        _RL chemo3(im,jm,lm),chemq(im,jm,lm)
76        real albnirdf(im,jm),emiss(im,jm)        _RL albvisdr(im,jm),albvisdf(im,jm),albnirdr(im,jm)
77        real alai(nchp),agrn(nchp)        _RL albnirdf(im,jm),emiss(im,jm)
78        real radswg(im,jm),swgclr(im,jm)        _RL alai(nchp),agrn(nchp)
79        real fdirpar(im,jm),fdifpar(im,jm),osr(im,jm),osrclr(im,jm)        _RL radswg(im,jm),swgclr(im,jm)
80        real tg0(im,jm),radlwg(im,jm),lwgclr(im,jm),st4(im,jm),dst4(im,jm)        _RL fdirpar(im,jm),fdifpar(im,jm),osr(im,jm),osrclr(im,jm)
81        real dlwdtg(im,jm,lm)        _RL tg0(im,jm),radlwg(im,jm),lwgclr(im,jm),st4(im,jm)
82        real rainlsp(im,jm),raincon(im,jm),snowfall(im,jm)        _RL dst4(im,jm)
83        real cldtot_lw(im,jm,lm),cldras_lw(im,jm,lm),cldlsp_lw(im,jm,lm)        _RL dlwdtg(im,jm,lm)
84        real lwlz(im,jm,lm)        _RL rainlsp(im,jm),raincon(im,jm),snowfall(im,jm)
85        real cldtot_sw(im,jm,lm),cldras_sw(im,jm,lm),cldlsp_sw(im,jm,lm)        _RL cldtot_lw(im,jm,lm),cldras_lw(im,jm,lm)
86        real swlz(im,jm,lm)        _RL cldlsp_lw(im,jm,lm)
87        real qliqavesw(im,jm,lm),qliqavelw(im,jm,lm)        _RL lwlz(im,jm,lm)
88        real fccavesw(im,jm,lm),fccavelw(im,jm,lm)        _RL cldtot_sw(im,jm,lm),cldras_sw(im,jm,lm)
89        real qq(im,jm,lm)        _RL cldlsp_sw(im,jm,lm)
90        real tgz(im,jm)        _RL swlz(im,jm,lm)
91          _RL qliqavesw(im,jm,lm),qliqavelw(im,jm,lm)
92          _RL fccavesw(im,jm,lm),fccavelw(im,jm,lm)
93          _RL qq(im,jm,lm)
94          _RL tgz(im,jm)
95    
96  c Local Variables  c Local Variables
97  c ---------------  c ---------------
# Line 96  c --------------- Line 100  c ---------------
100        integer numpcheck        integer numpcheck
101        parameter (numpcheck = 5)        parameter (numpcheck = 5)
102        integer pchecklevs(numpcheck)        integer pchecklevs(numpcheck)
103        real pcheckpress(numpcheck)        _RL pcheckpress(numpcheck)
104        data pcheckpress/950.,750.,700.,400.,10./        data pcheckpress/950.,750.,700.,400.,10./
105    
106        integer low_level,mid_level,nltop,nsubmin,nsubmax,Lup        integer low_level,mid_level,nltop,nsubmin,nsubmax,Lup
# Line 104  c --------------- Line 108  c ---------------
108        integer istrip,npcs        integer istrip,npcs
109        integer i,j        integer i,j
110        integer ndum,ndpnt        integer ndum,ndpnt
111        real akap,getcon        _RL akap,getcon
112        real ptop        _RL ptop
113        logical lpnt        logical lpnt
114    
115        istrip = min( im*jm,71 )        istrip = min( im*jm,71 )
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22