/[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.3 by molod, Thu Jun 17 16:07:06 2004 UTC revision 1.4 by molod, Thu Jun 17 21:45:29 2004 UTC
# Line 13  C $Name$ Line 13  C $Name$
13       . chemq,chemo3,co2,cfc11,cfc12,cfc22,methane,n2o,       . chemq,chemo3,co2,cfc11,cfc12,cfc22,methane,n2o,
14       . lwdt,lwdtclr,swdt,swdtclr,turbu,turbv,turbt,turbq,       . lwdt,lwdtclr,swdt,swdtclr,turbu,turbv,turbt,turbq,
15       . moistu,moistv,moistt,moistq,       . moistu,moistv,moistt,moistq,
16       . radswg,swgclr,albedo,fdirpar,fdifpar,osr,osrclr,tg0,radlwg,       . radswg,swgclr,fdirpar,fdifpar,osr,osrclr,tg0,radlwg,
17       . st4,dst4,dlwdtg,rainlsp,raincon,snowfall,iras,nlwcld,       . st4,dst4,dlwdtg,rainlsp,raincon,snowfall,iras,nlwcld,
18       . cldtot_lw,clras_lw,cldlsp_lw,nlwlz,lwlz,nswcld,cldtot_sw,       . cldtot_lw,clras_lw,cldlsp_lw,nlwlz,lwlz,nswcld,cldtot_sw,
19       . clras_sw,cldlsp_sw,nswlz,swlz,imstturbsw,imstturblw,qliqavesw,       . clras_sw,cldlsp_sw,nswlz,swlz,imstturbsw,imstturblw,qliqavesw,
20       . qliqavelw,fccavesw,fccavelw,qq,u2m,v2m,t2m,q2m,u10m,v10m,t10m,       . qliqavelw,fccavesw,fccavelw,qq)
      . q10m,gwet,snow)  
21  C***********************************************************************          C***********************************************************************        
22  C  Purpose                                                                        C  Purpose                                                                      
23  C  -------                                                                        C  -------                                                                      
# Line 81  c ---------------- Line 80  c ----------------
80        real albvisdr(im,jm),albvisdf(im,jm),albnirdr(im,jm)        real albvisdr(im,jm),albvisdf(im,jm),albnirdr(im,jm)
81        real albnirdf(im,jm),emiss(im,jm)        real albnirdf(im,jm),emiss(im,jm)
82        real alai(nchp),agrn(nchp)        real alai(nchp),agrn(nchp)
83        real radswg(im,jm),swgclr(im,jm),albedo(im,jm)        real radswg(im,jm),swgclr(im,jm)
84        real fdirpar(im,jm),fdifpar(im,jm),osr(im,jm),osrclr(im,jm)        real fdirpar(im,jm),fdifpar(im,jm),osr(im,jm),osrclr(im,jm)
85        real tg0(im,jm),radlwg(im,jm),st4(im,jm),dst4(im,jm)        real tg0(im,jm),radlwg(im,jm),st4(im,jm),dst4(im,jm)
86        real dlwdtg(im,jm,lm)        real dlwdtg(im,jm,lm)
# Line 93  c ---------------- Line 92  c ----------------
92        real qliqavesw(im,jm,lm),qliqavelw(im,jm,lm)        real qliqavesw(im,jm,lm),qliqavelw(im,jm,lm)
93        real fccavesw(im,jm,lm),fccavelw(im,jm,lm)        real fccavesw(im,jm,lm),fccavelw(im,jm,lm)
94        real qq(im,jm,lm)        real qq(im,jm,lm)
95        real u2m(im,jm),v2m(im,jm),t2m(im,jm),q2m(im,jm),u10m(im,jm)        real tgz(im,jm)
       real v10m(im,jm),t10m(im,jm),q10m(im,jm),tgz(im,jm)  
       real gwet(im,jm),snow(im,jm)  
96    
97  c Local Variables  c Local Variables
98  c ---------------  c ---------------
# Line 142  C ==================== Line 139  C ====================
139        call swrio ( nymd,nhms,ndsw,myid,istrip,npcs,        call swrio ( nymd,nhms,ndsw,myid,istrip,npcs,
140       .   p,pl,ple,dpres,pkht,pkl,t,chemq,chemo3,co2,       .   p,pl,ple,dpres,pkht,pkl,t,chemq,chemo3,co2,
141       .   albvisdr,albvisdf,albnirdr,albnirdf,swdt,swdtclr,       .   albvisdr,albvisdf,albnirdr,albnirdf,swdt,swdtclr,
142       .   radswg,swgclr,albedo,fdifpar,fdirpar,osr,osrclr,im,jm,lm,       .   radswg,swgclr,fdifpar,fdirpar,osr,osrclr,im,jm,lm,
143       .   ptop,nswcld,cldtot_sw,cldras_sw,nswlz,swlz,       .   ptop,nswcld,cldtot_sw,cldras_sw,nswlz,swlz,
144       .   .false.,imstturbsw,qliqavesw,       .   .false.,imstturbsw,qliqavesw,
145       .   fccavesw,landtype,xlats,xlons )       .   fccavesw,landtype,xlats,xlons )
# Line 178  C ========== Line 175  C ==========
175        call turbio (im,jm,lm,1,nymd,nhms,ndturb,        call turbio (im,jm,lm,1,nymd,nhms,ndturb,
176       .   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,
177       .   ctmt,xxmt,yymt,zetamt,xlmt,khmt,tke,       .   ctmt,xxmt,yymt,zetamt,xlmt,khmt,tke,
178       .   tgz,gwet,snow,fracland,landtype,       .   tgz,fracland,landtype,
179       .   tcanopy,ecanopy,tdeep,swetshal,swetroot,swetdeep,snodep,capac,       .   tcanopy,ecanopy,tdeep,swetshal,swetroot,swetdeep,snodep,capac,
180       .   nchp,nchpland,chfr,chlt,chlon,igrd,ityp,alai,agrn,sea_ice,lpnt,       .   nchp,nchpland,chfr,chlt,chlon,igrd,ityp,alai,agrn,sea_ice,lpnt,
181       .   turbu,turbv,turbt,turbq,radlwg,st4,dst4,radswg,radswt,       .   turbu,turbv,turbt,turbq,radlwg,st4,dst4,radswg,radswt,
182       .   fdifpar,fdirpar,rainlsp,rainconv,snowfall,tg0,       .   fdifpar,fdirpar,rainlsp,rainconv,snowfall,tg0,
183       .   imstturblw,imstturbsw,qliqavelw,qliqavesw,fccavelw,fccavesw,qq,       .   imstturblw,imstturbsw,qliqavelw,qliqavesw,fccavelw,fccavesw,qq,
184       .   u2m ,v2m ,t2m ,q2m,u10m,v10m,t10m,q10m,myid,comm )       .   myid,comm )
185    
186  c Add Gravity-Wave Drag Tendency  c Add Gravity-Wave Drag Tendency
187  c ------------------------------  c ------------------------------
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22