/[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.16 by molod, Wed Jul 28 01:25:07 2004 UTC revision 1.17 by molod, Wed Jul 28 20:38:53 2004 UTC
# Line 109  c --------------- Line 109  c ---------------
109        integer low_level,mid_level,nltop,nsubmin,nsubmax,Lup        integer low_level,mid_level,nltop,nsubmin,nsubmax,Lup
110        integer ndmoist,ndturb,ndlw,ndsw        integer ndmoist,ndturb,ndlw,ndsw
111        integer istrip,npcs        integer istrip,npcs
112        integer i,j        integer i,j,L
113        integer ndum,ndpnt        integer ndum,ndpnt
114        _RL akap,getcon        _RL akap,getcon
115        _RL ptop        _RL ptop
116        logical lpnt        logical lpnt
117    
118          _RL tempij(im,jm)
119    
120        istrip = im*jm        istrip = im*jm
121        npcs   = 1        npcs   = 1
122    
# Line 146  C Fill array of model levels closest to Line 148  C Fill array of model levels closest to
148  C **********************************************************************          C **********************************************************************        
149  C ****                  Call Physics Mini-Drivers                   ****          C ****                  Call Physics Mini-Drivers                   ****        
150  C **********************************************************************          C **********************************************************************        
151                                                                                    
152  C SHORT WAVE RADIATION  C SHORT WAVE RADIATION
153  C ====================  C ====================
154        IF ( alarm('radsw') ) THEN        IF ( alarm('radsw') ) THEN
155    
156        call swrio ( nymd,nhms,bi,bj,ndsw,myid,istrip,npcs,        call swrio ( nymd,nhms,bi,bj,ndsw,myid,istrip,npcs,
157       .   low_level,mid_level,       .   low_level,mid_level,im,jm,lm,
158       .   p,pl,ple,dpres,pkht,pkl,t,chemq,chemo3,co2,       .   p,pl,ple,dpres,pkht,pkl,t,chemq,chemo3,co2,
159       .   albvisdr,albvisdf,albnirdr,albnirdf,swdt,swdtclr,       .   albvisdr,albvisdf,albnirdr,albnirdf,swdt,swdtclr,
160       .   radswg,swgclr,fdifpar,fdirpar,osr,osrclr,im,jm,lm,       .   radswg,swgclr,fdifpar,fdirpar,osr,osrclr,
161       .   ptop,nswcld,cldtot_sw,cldras_sw,nswlz,swlz,       .   ptop,nswcld,cldtot_sw,cldras_sw,nswlz,swlz,
162       .   .false.,imstturbsw,qliqavesw,       .   .false.,imstturbsw,qliqavesw,
163       .   fccavesw,landtype,xlats,xlons )       .   fccavesw,landtype,xlats,xlons )
164    
   
        print *,' In fizhi driver - Done with sw radiation '  
        stop  
   
165        ENDIF        ENDIF
166                                                                                                                                                                    
167           stop
168    
169  C LONG WAVE RADIATION  C LONG WAVE RADIATION
170  C ===================  C ===================
# Line 180  c -------------------------------- Line 179  c --------------------------------
179        enddo        enddo
180    
181        call lwrio ( nymd,nhms,bi,bj,istrip,npcs,        call lwrio ( nymd,nhms,bi,bj,istrip,npcs,
182       .   low_level,mid_level,       .   low_level,mid_level,im,jm,lm,
183       .   p,pl,ple,dpres,pkht,pkl,t,chemq,chemo3,co2,       .   p,pl,ple,dpres,pkht,pkl,t,chemq,chemo3,co2,
184       .   cfc11,cfc12,cfc22,methane,n2o,emiss,tgz,radlwg,st4,dst4,       .   cfc11,cfc12,cfc22,methane,n2o,emiss,tgz,radlwg,st4,dst4,
185       .   lwdt,dlwdtg,lwdtclr,lwgclr,im,jm,lm,ptop,       .   lwdt,dlwdtg,lwdtclr,lwgclr,ptop,
186       .   nlwcld,cldtot_lw,cldras_lw,nlwlz,lwlz,       .   nlwcld,cldtot_lw,cldras_lw,nlwlz,lwlz,
187       .   .false.,imstturblw,qliqavelw,       .   .false.,imstturblw,qliqavelw,
188       .   fccavelw,landtype )       .   fccavelw,landtype )
# Line 194  C TURBULENCE Line 193  C TURBULENCE
193  C ==========  C ==========
194        IF ( alarm('turb') ) THEN        IF ( alarm('turb') ) THEN
195    
196           print *,' In fizhi driver - about to call turb '
197    
198        call turbio (im,jm,lm,1,nymd,nhms,bi,bj,ndturb,        call turbio (im,jm,lm,1,nymd,nhms,bi,bj,ndturb,
199       .  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,
200       .  ctmt,xxmt,yymt,zetamt,xlmt,khmt,tke,       .  ctmt,xxmt,yymt,zetamt,xlmt,khmt,tke,
# Line 215  c     call gwdrag (myid,p,pl,ple,dpres,p Line 216  c     call gwdrag (myid,p,pl,ple,dpres,p
216  c    .   turbu,turbv,turbt,im,jm,lm,ptop,istrip,npcs,  c    .   turbu,turbv,turbt,im,jm,lm,ptop,istrip,npcs,
217  c    .   imglobal)  c    .   imglobal)
218    
219    
220           print *,' In fizhi driver - Done with turb '
221           stop
222    
223        endif        endif
224                                                                                                                                                                    
225  C MOIST PROCESSES  C MOIST PROCESSES
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22