/[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.20 by molod, Thu Jul 29 22:49:34 2004 UTC revision 1.21 by molod, Fri Jul 30 18:59:32 2004 UTC
# Line 152  C ************************************** Line 152  C **************************************
152  C SHORT WAVE RADIATION  C SHORT WAVE RADIATION
153  C ====================  C ====================
154        IF ( alarm('radsw') ) THEN        IF ( alarm('radsw') ) THEN
       print *,' Time to do sw '  
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,im,jm,lm,       .   low_level,mid_level,im,jm,lm,
# Line 168  C ==================== Line 167  C ====================
167  C LONG WAVE RADIATION  C LONG WAVE RADIATION
168  C ===================  C ===================
169        IF ( alarm('radlw') ) THEN        IF ( alarm('radlw') ) THEN
       print *,' Time to do lw '  
170    
171  c Set Reference Ground Temperature  c Set Reference Ground Temperature
172  c --------------------------------  c --------------------------------
# Line 193  C TURBULENCE Line 191  C TURBULENCE
191  C ==========  C ==========
192        IF ( alarm('turb') ) THEN        IF ( alarm('turb') ) THEN
193    
       print *,' Time to do turb '  
194        if(bi.eq.1 .and. 2.eq.1)then        if(bi.eq.1 .and. 2.eq.1)then
195        print *,' In fizhi driver, before turb - bi = ',bi        print *,' In fizhi driver, before turb - bi = ',bi
196        do j = 1,jm        do j = 1,jm
# Line 252  C ========== Line 249  C ==========
249        print *,' tg0 ',tempij        print *,' tg0 ',tempij
250        endif        endif
251    
252        call turbio (im,jm,lm,1,nymd,nhms,bi,bj,ndturb,        call turbio (im,jm,lm,istrip,nymd,nhms,bi,bj,ndturb,
253       .  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,
254       .  ctmt,xxmt,yymt,zetamt,xlmt,khmt,tke,       .  ctmt,xxmt,yymt,zetamt,xlmt,khmt,tke,
255       .  tgz,fracland,landtype,       .  tgz,fracland,landtype,
# Line 278  c    .   imglobal) Line 275  c    .   imglobal)
275  C MOIST PROCESSES  C MOIST PROCESSES
276  C ===============  C ===============
277        if ( alarm('moist') ) then        if ( alarm('moist') ) then
       print *,' Time to do moist '  
278        call moistio (ndmoist,istrip,npcs,        call moistio (ndmoist,istrip,npcs,
279       .    low_level,mid_level,nltop,nsubmin,nsubmax,Lup,       .    low_level,mid_level,nltop,nsubmin,nsubmax,Lup,
280       .    p,pl,ple,dpres,pkht,pkl,t,q,bi,bj,ntracer,ptracer,qq,       .    p,pl,ple,dpres,pkht,pkl,t,q,bi,bj,ntracer,ptracer,qq,
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22